第一范文网 - 专业文章范例文档资料分享平台

黄永刚单晶塑性有限元umat子程序

来源:用户分享 时间:2025/5/15 11:24:18 本文由loading 分享 下载这篇文档手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ:xxxxxx 处理(尽可能给您提供完整文档),感谢您的支持与谅解。

DUM=A(IMAX,K) A(IMAX,K)=A(J,K) A(J,K)=DUM END DO

D=-D

VV(IMAX)=VV(J) END IF

INDX(J)=IMAX

IF (A(J,J).EQ.0.) A(J,J)=TINY IF (J.NE.N) THEN DUM=1./A(J,J) DO I=J+1,N

A(I,J)=A(I,J)*DUM END DO END IF

END DO

RETURN END

C----------------------------------------------------------------------

SUBROUTINE LUBKSB (A, N, NP, INDX, B)

C----- Linear equation solver based on LU decomposition

C----- Use single precision on cray C

IMPLICIT REAL*8 (A-H,O-Z)

DIMENSION A(NP,NP), INDX(N), B(N)

II=0

DO I=1,N

LL=INDX(I) SUM=B(LL) B(LL)=B(I)

IF (II.NE.0) THEN DO J=II,I-1

SUM=SUM-A(I,J)*B(J) END DO

ELSE IF (SUM.NE.0.) THEN II=I END IF

B(I)=SUM END DO

DO I=N,1,-1 SUM=B(I)

IF (I.LT.N) THEN DO J=I+1,N

SUM=SUM-A(I,J)*B(J) END DO END IF

B(I)=SUM/A(I,I) END DO

RETURN END

搜索更多关于: 黄永刚单晶塑性有限元umat子程序 的文档
黄永刚单晶塑性有限元umat子程序.doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印
本文链接:https://www.diyifanwen.net/c7i67v0n2ek0daes3z44f_17.html(转载请注明文章来源)
热门推荐
Copyright © 2012-2023 第一范文网 版权所有 免责声明 | 联系我们
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ:xxxxxx 邮箱:xxxxxx@qq.com
渝ICP备2023013149号
Top