sigvol.for

Go to the documentation of this file.

      SUBROUTINE sigvol(SVOL,PV,UNIT2,NDI)
C>    VOLUMETRIC CAUCHY STRESS 
      IMPLICIT NONE
      include 'PARAM_UMAT.INC'
C
      INTEGER NDI,I1,J1
      DOUBLE PRECISION UNIT2(ndi,ndi),SVOL(ndi,ndi)
      DOUBLE PRECISION PV
C
      DO i1=1,ndi
        DO j1=1,ndi
          svol(i1,j1)=pv*unit2(i1,j1)
        END DO
      END DO
C
      RETURN
      END SUBROUTINE sigvol