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

Fix to gfortran compatibility

Browse source
This commit is contained in:
Alex Selimov 2020-10-28 17:51:23 -04:00
parent fd901648f2
commit 068b5d99a9
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/elements.f90
View file

@ -370,7 +370,11 @@ module elements
subroutine set_max_esize
!This subroutine sets the maximum esize
max_esize=maxval(size_ele)
if(allocated(size_ele)) then
max_esize=maxval(size_ele)
else
max_esize = 2
end if
end subroutine
subroutine interpolate_atoms(type, esize, lat_type, r_in, type_interp, r_interp)