initializatuib

MaterialModels/FiniteStrain/Finite_VEVP/umat.f

@@ -161,11 +161,11 @@ C     !--------------------------------------------------------------
         ! for the first time step (initial condition) in FFTMAD.
         ! Can be commented out for ABAQUS, If you comment out, then
         ! in abaqus use the inp file to set initial values for F_vp.
-C         IF ((KINC .EQ. 1) .AND. (KSTEP .EQ. 1)) THEN
-C          STATEV(1) = 1.D0
-C          STATEV(2) = 1.D0
-C          STATEV(3) = 1.D0
-C         END IF
+         IF ((KINC .EQ. 1) .AND. (KSTEP .EQ. 1)) THEN
+          STATEV(1) = 1.D0
+          STATEV(2) = 1.D0
+          STATEV(3) = 1.D0
+         END IF
 
          ! State variables at previous time step
          CALL voit2mat(STATEV(1:9), F_vp_n(:,:))