两个umat如何进行调用

月色当空

两个umat如何进行调用

shawn2008

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,PNEWDT,
     3  CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)

      IF (CMNAME .EQ. 'MAT_A') THEN

                 CALL UMAT1(  ...  )

       ELSE IF (CMNAME .EQ. 'MAT_B') THEN

                CALL UMAT2(  ... )
       END IF

RETURN
END

SUBROUTINE UMAT1(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,PNEWDT,
     3  CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)

RETURN
END


SUBROUTINE UMAT2(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,PNEWDT,
     3  CELENT,DFGRD0,DFGRD1,NOEL,NPT,LAYER,KSPT,KSTEP,KINC)

RETURN
END

月色当空

谢谢版主说明

jinglanhu

您好，月色当空 ，可以加一下你的联系方式吗？有事请教，我的qq:1933109019.谢谢