|
|
@ -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
|
|
|
|