Fixed even more typos

src/vrm.f90

@@ -41,7 +41,8 @@ type (parameters) params
 double precision :: J2d,J3d,viscosity,pressure,compressibility,straintot
 double precision :: friction_angle
 character (len=8) plasticity_type
-character (len=12) plasticity_ss_type
+character (len=12) plasticity_ss_type_coh
+character (len=12) plasticity_ss_type_phi
 double precision plasticity_parameters(9)
 logical ::  is_plastic,flag_vrm_pb
 
@@ -369,8 +370,8 @@ logical :: flag_vrm_pb
 !------------------------------------------------------------------------------|
 
 double precision :: strain_soft_phi_in,strain_soft_phi_out,strain_soft_phi
-double precision :: strain_soft_c_in,strain_soft_c_out,strain_soft_phi
-double precision :: fact
+double precision :: strain_soft_c_in,strain_soft_c_out,strain_soft_c
+double precision :: fact,strain_soft_ref
 
 ! Set strain softening onset/termination and min values
 strain_soft_c_in    = plasticity_parameters(6)
@@ -394,8 +395,8 @@ if (strain_soft_c_in.gt.0.d0) then
       flag_vrm_pb = .true.
   end select ss_type_c
   ! Soften cohesion if beyond onset value
-  if (strain_soft_ref.gt.strain_soft_in_c) then
-    fact=(strain_soft_ref-strain_soft_in_c)/(strain_soft_out_c-strain_soft_in_c)
+  if (strain_soft_ref.gt.strain_soft_c_in) then
+    fact=(strain_soft_ref-strain_soft_c_in)/(strain_soft_c_out-strain_soft_c_in)
     fact=min(fact,1.d0)
     c=c+(strain_soft_c-c)*fact
   endif
@@ -415,8 +416,8 @@ if (strain_soft_phi_in.gt.0.d0) then
       flag_vrm_pb = .true.
   end select ss_type_phi
   ! Soften phi if beyond onset value
-  if (strain_soft_ref.gt.strain_soft_in_phi) then
-    fact=(strain_soft_ref-strain_soft_in_phi)/(strain_soft_out_phi-strain_soft_in_phi)
+  if (strain_soft_ref.gt.strain_soft_phi_in) then
+    fact=(strain_soft_ref-strain_soft_phi_in)/(strain_soft_phi_out-strain_soft_phi_in)
     fact=min(fact,1.d0)
     phi=phi+(strain_soft_phi-phi)*fact
   endif
@@ -425,4 +426,4 @@ endif
 end subroutine strain_soften
 
 !-------------------------------------------------------------------------------
-!-------------------------------------------------------------------------------
+!-------------------------------------------------------------------------------
\ No newline at end of file