isomat.for

Go to the documentation of this file.

      SUBROUTINE isomat(SSEISO,DISO,C10,C01,CBARI1,CBARI2)
C>     ISOTROPIC MATRIX : ISOCHORIC SEF AND DERIVATIVES
      IMPLICIT NONE
      include 'PARAM_UMAT.INC'
C
      DOUBLE PRECISION SSEISO,DISO(5)
      DOUBLE PRECISION C10,C01,CBARI1,CBARI2
C
      sseiso=c10*(cbari1-three)+c01*(cbari2-three)
C
      !FIRST DERIVATIVE OF SSEISO IN ORDER TO I1
      diso(1)=c10
      !FIRST DERIVATIVE OF SSEISO IN ORDER TO I2
      diso(2)=c01
      !SECOND DERIVATIVE OF SSEISO IN ORDER TO I1
      diso(3)=zero
      !SECOND DERIVATIVE OF SSEISO IN ORDER TO I2
      diso(4)=zero
      !SECOND DERIVATIVE OF SSEISO IN ORDER TO I1 AND I2
      diso(5)=zero
C
      RETURN
      END SUBROUTINE isomat