黄晓明书中修正burgers黏弹模型abaqus子程序Umat_UMAT子程序主体结构 - CSDN文库

需积分: 50 171 浏览量更新于2023-03-16 评论 2 收藏 265KB PDF 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

---------------------------------------------------------------

C 瞬态温度场下修正 Burgers 模型 UMAT 子程序源代码

C 给状态变量数组赋初值为零，调用 ABAQUS 子程序 SDVINI

C GIVE STATEV THE INITIAL VALUE OF ZERO

SUBROUTINE SDVINI(STATEV,COORDS,NSTATV,NCRDS,NOEL,NPT,LAYER,KSPT)

INCLUDE 'ABA_PARAM.INC'

DIMENSION STATEV(NSTATV),COORDS(NCRDS)

DO K=1,NSTATV

STATEV(K)=0.0

END DO

RETURN

END

C 瞬态温度场下修正 Burgers 模型 UMAT 子程序

C UMAT FOR MODIFIED BURGERS MODEL

SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,RPL,DDSDDT,

1 DRPLDE,DRPLDT,STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,

2 CMNAME,NDI,NSHR,NTENS,NSTATV,PROPS,NPROPS,COORDS,DROT,

3 PNEWDT,CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)

INCLUDE 'ABA_PARAM.INC'

CHARACTER*80 CMNAME

DIMENSION STRESS(NTENS),STATEV(NSTATV),DDSDDE(NTENS,NTENS),

1 DDSDDT(NTENS),DRPLDE(NTENS),STRAN(NTENS),DSTRAN(NTENS),

2 TIME(2),PREDEF(1),DPRED(1),PROPS(NPROPS),COORDS(3),DROT(3,3),

3 DFGRD0(3,3),DFGRD1(3,3)

C

C LOCAL ARRAYS（定义局部数组，即用户自己定义的数组）

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

C EELAS - ELASTIC STRAINS

C DEELA - ELASTIC STRAINS INCREMENT(dt)

C ECREE - CREEP STRAINS

C DECRE - CREEP STRAINS INCREMENT(dt)

C STREST - TEMPORARY ARRAY FOR SAVED STRESS(t+dt)

C DECRT - TEMPORARY ARRAY FOR SAVED CREEP STRAINS INCREMENT(dt)

C DSTREST- STRESS INCREMENT(dt)

C STREST2- TEMPORARY ARRAY FOR SAVED STRESS(t+θdt)

C DVSTRESS-DEVIATORIC STRESS(t+θdt)

C PARAM - ARRAY FOR SAVED MATERIAL PARAMETERS AT TEMPERATURE

C OF THE KSTEP

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

DIMENSION EELAS(6),ECREE(6),DECRE(6),DVSTRESS(6),STREST(6),

1 DECRT(6),DEELA(6),DSTREST(6),STREST2(6),PARAM(7),

2 TABLE(NPROPS/7,7),TABLE0(7),TABLE1(7)

C

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余7页未读，立即下载

评论0

qq_42790301

粉丝: 0
资源: 1

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈