initialize.for

Go to the documentation of this file.

       SUBROUTINE initialize(STATEV)
c
      IMPLICIT NONE
      include 'PARAM_UMAT.INC'
c      
c      COMMON /kcommon/kblock
c
c      DOUBLE PRECISION TIME(2),KSTEP
      INTEGER I1,POS,POS1,POS2,POS3
      DOUBLE PRECISION STATEV(nsdv)
c        determinant
        statev(1)=one    
c     
      RETURN
c
      END SUBROUTINE initialize