Quick bug fix

2019-12-13 13:44:17 -05:00 · 2019-12-13 13:44:17 -05:00 · c291ec65b4
commit c291ec65b4
parent ce2e3d17f4
1 changed files with 5 additions and 2 deletions
--- a/src/elements.f90
+++ b/src/elements.f90
@ -225,8 +225,11 @@ module elements
        
        exists = .false.
        do i=1, 10
-            if(type == type_to_name(i)) exists = .true.
-            inttype = i
+            if(type == type_to_name(i)) then 
+                exists = .true.
+                inttype = i
+                exit
+            end if
        end do 

        if (exists.eqv..false.) then