sdvwrite.for

Go to the documentation of this file.

      SUBROUTINE sdvwrite(DET,LAMBDA,STATEV)
C>    VISCOUS DISSIPATION: WRITE STATE VARS
      IMPLICIT NONE
      include 'PARAM_UMAT.INC'
C
      DOUBLE PRECISION STATEV(nsdv),DET,LAMBDA
C        write your sdvs here. they should be allocated 
C                after the viscous terms (check hvwrite)
       statev(1)=det
       statev(2)=lambda 

      RETURN
C
      END SUBROUTINE sdvwrite