cisomatfic.for

Go to the documentation of this file.

      SUBROUTINE csisomatfic(CISOMATFIC,CMISOMATFIC,DISTGR,DET,NDI)
C>    ISOTROPIC MATRIX: SPATIAL 'FICTICIOUS' ELASTICITY TENSOR
      IMPLICIT NONE
      include 'PARAM_UMAT.INC'
C
      INTEGER NDI
      DOUBLE PRECISION CMISOMATFIC(ndi,ndi),DISTGR(ndi,ndi),
     1                 cisomatfic(ndi,ndi,ndi,ndi)
      DOUBLE PRECISION DET  
C
      CALL push4(cisomatfic,cmisomatfic,distgr,det,ndi)
C
      RETURN
      END SUBROUTINE csisomatfic