fixed typo causing compilation error

2013-10-14 06:11:50 +00:00 · 2013-10-14 06:11:50 +00:00 · 029502c12e
parent b651f334fe
commit 029502c12e
1 changed files with 1 additions and 1 deletions
--- a/code/homogenization.f90
+++ b/code/homogenization.f90
@ -732,7 +732,7 @@ function homogenization_updateState(ip,el)
                                        materialpoint_subdt(ip,el), &
                                        crystallite_dPdF(1:3,1:3,1:3,1:3,1:homogenization_maxNgrains,ip,el), &
                                        ip, &
-                                        e)l
+                                        el)
   case default chosenHomogenization
     homogenization_updateState = .true.
 end select chosenHomogenization