UMAT
******************************************************************** inp *********************************************************
*MATERIAL, NAME= <用户自定义材料的名称>
*USER MATERIAL, CONSTANTS= 8<需输入的变量个数>, (UNSYMN)
30.E6, 0.3, 30.E3, 0., 40.E3, 0.1, 50.E3, 0.5 <依次给出需输入的变量的值>
*DEPVAR
13 <定义求解过程中的状态变量(SDVs)需要的存储空间,即状态变量个数,=NSTATV>
*INITIAL CONDITIONS, TYPE=SOLUTION
<依次给出状态变量的值,也可不写>
*USER SUBROUTINES, (INPUT=<UMAT 的 Fortran 程序名>)
******************************************************************** Fortran 程序 ************************************************
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
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)
user coding to dene DDSDDE, STRESS, STATEV, SSE, SPD, SCD
and, if necessary, RPL, DDSDDT, DRPLDE, DRPLDT, PNEWDT
RETURN
END
- 1 -
评论0