resetdfgr.for

Go to the documentation of this file.

      SUBROUTINE resetdfgrd(DFGRD,NDI)
C
      IMPLICIT NONE
      include 'PARAM_UMAT.INC'
      
      INTEGER NDI
      DOUBLE PRECISION DFGRD(ndi,ndi)

        dfgrd(1,1)=  one
        dfgrd(1,2)=  zero
        dfgrd(1,3)=  zero
        dfgrd(2,1)=  zero
        dfgrd(2,2)=  one
        dfgrd(2,3)=  zero
        dfgrd(3,1)=  zero
        dfgrd(3,2)=  zero
        dfgrd(3,3)=  one

      END SUBROUTINE resetdfgrd