sigiso.for

Go to the documentation of this file.

      SUBROUTINE sigiso(SISO,SFIC,PE,NDI)
C>    ISOCHORIC CAUCHY STRESS 
      IMPLICIT NONE
      include 'PARAM_UMAT.INC'
C
      INTEGER NDI
      DOUBLE PRECISION SISO(ndi,ndi),
     1                 pe(ndi,ndi,ndi,ndi),sfic(ndi,ndi)
C
      CALL contraction42(siso,pe,sfic,ndi)
C
      RETURN
      END SUBROUTINE sigiso