****************************************************************************************
**  UMAT, FOR ABAQUS/STANDARD INCORPORATING ISOTROPIC ELASTICITY                      **
****************************************************************************************
****************************************************************************************
**
**
**
      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
C      INCLUDE 'ABA_PARAM.INC'
C
C      CHARACTER*8 CMNAME
C
      DIMENSION STRESS(NTENS),STATEV(NSTATV),DDSDDE(NTENS, NTENS),
     1     DDSDDT(6),DRPLDE(6),STRAN(6),DSTRAN(NTENS),
     2     PREDEF(1),DPRED(1),PROPS(NPROPS),COORDS(3),DROT(3,3),
     3     DFGRD0(3,3), DFGRD1(3,3), TIME(2)
      
      PARAMETER(ZERO=0.D0, ONE=1.D0, TWO=2.D0, THREE=3.D0)

C ----------------------------------------------------------------
C
C     UMAT FOR ISOTROPIC ELASTICITY
C
C     CANNOT BE USED FOR PLANE STRESS
C ----------------------------------------------------------------
C
C      PROPS(1) - E
C
C      PROPS(2) - NU
C ----------------------------------------------------------------
C
C      IF (NDI.NE.3) THEN
C         WRITE (7, *) ’THIS UMAT MAY ONLY BE USED FOR ELEMENTS
C    1        WITH THREE DIRECT STRESS COMPONENTS’
C         CALL XIT
C      ENDIF
C
C     ELASTIC PROPERTIES
      EMOD=PROPS(1)
      ENU=PROPS(2)
      EBULK3=EMOD/(ONE-TWO*ENU)
      EG2=EMOD/(ONE+ENU)
      EG=EG2/TWO
      EG3=THREE*EG
      ELAM=(EBULK3-EG2)/THREE
C
C     ELASTIC STIFFNESS
C
      DO K1=1, NDI
         DO K2=1, NDI
            DDSDDE(K2, K1)=ELAM
         END DO
         DDSDDE(K1, K1)=EG2+ELAM
      END DO
      DO K1=NDI+1, NTENS
         DDSDDE(K1 ,K1)=EG
      END DO
C
C     CALCULATE STRESS
C
      DO K1=1, NTENS
         DO K2=1, NTENS
            STRESS(K1)=STRESS(K1)+DDSDDE(K2, K1)*DSTRAN(K2)
         END DO
      END DO
C
      RETURN
      END

stimpsonsg/moose,friedmud/moose,sapitts/moose,roystgnr/moose,liuwenf/moose,liuwenf/moose,apc-llc/moose,dschwen/moose,markr622/moose,backmari/moose,jessecarterMOOSE/moose,zzyfisherman/moose,jhbradley/moose,tonkmr/moose,Chuban/moose,yipenggao/moose,wgapl/moose,bwspenc/moose,kasra83/moose,shanestafford/moose,YaqiWang/moose,YaqiWang/moose,WilkAndy/moose,roystgnr/moose,liuwenf/moose,sapitts/moose,kasra83/moose,friedmud/moose,WilkAndy/moose,tonkmr/moose,giopastor/moose,kasra83/moose,cpritam/moose,waxmanr/moose,dschwen/moose,jessecarterMOOSE/moose,shanestafford/moose,harterj/moose,harterj/moose,SudiptaBiswas/moose,cpritam/moose,jinmm1992/moose,shanestafford/moose,WilkAndy/moose,permcody/moose,tonkmr/moose,giopastor/moose,milljm/moose,yipenggao/moose,sapitts/moose,xy515258/moose,zzyfisherman/moose,permcody/moose,liuwenf/moose,apc-llc/moose,YaqiWang/moose,jiangwen84/moose,permcody/moose,idaholab/moose,backmari/moose,lindsayad/moose,milljm/moose,SudiptaBiswas/moose,joshua-cogliati-inl/moose,capitalaslash/moose,cpritam/moose,katyhuff/moose,bwspenc/moose,wgapl/moose,jasondhales/moose,joshua-cogliati-inl/moose,tonkmr/moose,zzyfisherman/moose,jinmm1992/moose,jessecarterMOOSE/moose,nuclear-wizard/moose,nuclear-wizard/moose,Chuban/moose,jhbradley/moose,SudiptaBiswas/moose,xy515258/moose,shanestafford/moose,jiangwen84/moose,mellis13/moose,WilkAndy/moose,jhbradley/moose,kasra83/moose,liuwenf/moose,jessecarterMOOSE/moose,stimpsonsg/moose,cpritam/moose,jbair34/moose,idaholab/moose,roystgnr/moose,jasondhales/moose,lindsayad/moose,giopastor/moose,joshua-cogliati-inl/moose,danielru/moose,idaholab/moose,laagesen/moose,jiangwen84/moose,YaqiWang/moose,idaholab/moose,jasondhales/moose,shanestafford/moose,stimpsonsg/moose,milljm/moose,danielru/moose,mellis13/moose,idaholab/moose,andrsd/moose,raghavaggarwal/moose,andrsd/moose,adamLange/moose,capitalaslash/moose,bwspenc/moose,lindsayad/moose,adamLange/moose,milljm/moose,zzyfisherman/moose,raghavaggarwal/moose,sapitts/moose,backmari/moose,raghavaggarwal/moose,dschwen/moose,mellis13/moose,jinmm1992/moose,roystgnr/moose,capitalaslash/moose,cpritam/moose,joshua-cogliati-inl/moose,Chuban/moose,andrsd/moose,yipenggao/moose,backmari/moose,WilkAndy/moose,jasondhales/moose,SudiptaBiswas/moose,markr622/moose,shanestafford/moose,markr622/moose,cpritam/moose,roystgnr/moose,Chuban/moose,waxmanr/moose,harterj/moose,laagesen/moose,jbair34/moose,nuclear-wizard/moose,lindsayad/moose,katyhuff/moose,WilkAndy/moose,friedmud/moose,wgapl/moose,katyhuff/moose,xy515258/moose,mellis13/moose,yipenggao/moose,roystgnr/moose,markr622/moose,zzyfisherman/moose,harterj/moose,adamLange/moose,giopastor/moose,laagesen/moose,friedmud/moose,waxmanr/moose,wgapl/moose,apc-llc/moose,dschwen/moose,jiangwen84/moose,dschwen/moose,zzyfisherman/moose,jbair34/moose,tonkmr/moose,danielru/moose,jbair34/moose,liuwenf/moose,tonkmr/moose,bwspenc/moose,apc-llc/moose,lindsayad/moose,jhbradley/moose,stimpsonsg/moose,nuclear-wizard/moose,danielru/moose,waxmanr/moose,laagesen/moose,raghavaggarwal/moose,milljm/moose,katyhuff/moose,jinmm1992/moose,laagesen/moose,roystgnr/moose,jessecarterMOOSE/moose,bwspenc/moose,capitalaslash/moose,andrsd/moose,andrsd/moose,xy515258/moose,SudiptaBiswas/moose,sapitts/moose,permcody/moose,adamLange/moose,harterj/moose