Skip to content
Snippets Groups Projects
Commit c045566e authored by Dave Whipp's avatar Dave Whipp
Browse files

Fixed typo

parent 2a308c89
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
src/vrm.f90
+ 1
− 1
View file @ c045566e
...@@ -47,7 +47,7 @@ logical :: is_plastic,flag_vrm_pb ...@@ -47,7 +47,7 @@ logical :: is_plastic,flag_vrm_pb
!(((((((((((((((( declaration of the subroutine internal variables ))))))))))))) !(((((((((((((((( declaration of the subroutine internal variables )))))))))))))
!------------------------------------------------------------------------------| !------------------------------------------------------------------------------|
double precision :: yield,fail,theta,c,e2d,zeta double precision :: yield,fail,theta,c,e2d,zeta,alpha,k
double precision :: sin_theta,cos_theta,sin_phi,cos_phi 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_in,strain_soft_out,strain_soft_phi,phi,fact
double precision :: strain_soft_yield double precision :: strain_soft_yield
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment