From c291ec65b4ce50ee36c0e439bcd0474669a47e78 Mon Sep 17 00:00:00 2001
From: Alex Selimov <alsel@tuta.io>
Date: Fri, 13 Dec 2019 13:44:17 -0500
Subject: [PATCH] Quick bug fix

---
 src/elements.f90 | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/elements.f90 b/src/elements.f90
index 28e0e5e..1195e58 100644
--- 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