umat到vumat转化程序_Abaqus子程序UMAT和VUMAT的例子

Abaqus子程序UMAT和VUMAT应用于shell单元的例子

From guobuzhang@http://doc.docsou.com

*****************************************************************************

** UMAT FOR ABAQUS/STANDARD INCORPORATING ELASTIC BEHAVIOUR FOR PLANE **

** STRAIN AND AXI-SYMMETRIC ELEMENTS. **

*****************************************************************************

*****************************************************************************

*USER SUBROUTINE SUBROUTINE UMAT(STRESS,STATEV,DDSDDE,SSE,SPD,SCD,

1 RPL,DDSDDT,DRPLDE,DRPLDT,

2 STRAN,DSTRAN,TIME,DTIME,TEMP,DTEMP,PREDEF,DPRED,CMNAME,

3 NDI,NSHR,NTENS,NSTATV,PROPS,NPROPS,COORDS,DROT,PNEWDT,

4 CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)

C

INCLUDE 'ABA_PARAM.INC'

C

CHARACTER*80 CMNAME

C

C

DIMENSION STRESS(NTENS),STATEV(NSTATV),

1 DDSDDE(NTENS,NTENS),DDSDDT(NTENS),DRPLDE(NTENS),

2 STRAN(NTENS),DSTRAN(NTENS),TIME(2),PREDEF(1),DPRED(1),

3 PROPS(NPROPS),COORDS(3),DROT(3,3),DFGRD0(3,3),DFGRD1(3,3) C

C

PARAMETER (M=3,N=3,ID=3,ZERO=0.D0,ONE=1.D0,TWO=2.D0,THREE=3.D0, + SIX=6.D0, NINE=9.D0, TOLER=0.D-6)

C

DIMENSION DSTRESS(3)

C

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

C SPECIFY MATERIAL PROPERTIES

C

E = PROPS(1)

XNUE = PROPS(2)

C

C