@ -225,8 +225,11 @@ module elements
exists = .false.
do i=1, 10
if(type == type_to_name(i)) exists = .true.
if(type == type_to_name(i)) then
exists = .true.
inttype = i
exit
end if
end do
if (exists.eqv..false.) then