Quick bug fix

master
Alex Selimov 5 years ago
parent ce2e3d17f4
commit c291ec65b4

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

Loading…
Cancel
Save