Fixed a few more typos

src/vrm.f90

@@ -49,10 +49,10 @@ logical ::  is_plastic,flag_vrm_pb
 !(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
 !------------------------------------------------------------------------------|
 
-double precision :: yield,fail,theta,c,e2d,zeta,alpha,k
+double precision :: yield,fail,theta,c,phi,e2d,zeta,alpha,k,eps
 double precision :: sin_theta,cos_theta,sin_phi,cos_phi
-double precision :: strain_soft_in,strain_soft_out,strain_soft_phi,phi,fact
-double precision :: strain_soft_yield,eps,strain_soft_ref
+double precision :: strain_soft_in_c,strain_soft_in_phi
+
 !-------------------------------------------------------------------------------
 !-------------------------------------------------------------------------------
 
@@ -370,6 +370,7 @@ 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
 
 ! Set strain softening onset/termination and min values
 strain_soft_c_in    = plasticity_parameters(6)