aselimov/cacmb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Quick bug fix

Browse source
This commit is contained in:
Alex Selimov 2019-12-13 13:44:17 -05:00
parent ce2e3d17f4
commit c291ec65b4
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/elements.f90
View file

@ -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
exists = .true.
inttype = i inttype = i
exit
end if
end do end do
if (exists.eqv..false.) then if (exists.eqv..false.) then