sdvread.for

Go to the documentation of this file.

      SUBROUTINE sdvread(STATEV)
C>    VISCOUS DISSIPATION: READ STATE VARS
      IMPLICIT NONE
      include 'PARAM_UMAT.INC'
C
      DOUBLE PRECISION STATEV(nsdv)
C        read your sdvs here. they should be allocated. 
C          after the viscous terms (only if you use viscosity check hvread)
!        POS1=9*VV
!        DO I1=1,NCH
!         POS2=POS1+I1
!         FRAC(I1)=STATEV(POS2)
!        ENDDO
C

C
      RETURN
C
      END SUBROUTINE sdvread