充分弹性材料的的 UMAT 子程序

代码说明：

      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),   &nb