scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Small change. Zed up to 103 allowed. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4248 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2007-09-17 08:59:49 +00:00
parent 0aa37a525e
commit 18bcb5fe8c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
atomic/ld1_readin.f90
View File

@ -192,7 +192,7 @@ subroutine ld1_readin
if (zed == 0.0_dp .and. atom /= ' ') then
zed = DBLE(atomic_number(atom))
else if (zed /= 0.0_dp .and. atom == ' ') then
if (DBLE(int(zed)) /= zed .or. zed < 1.0_dp .or. zed > 100) then
if (DBLE(int(zed)) /= zed .or. zed < 1.0_dp .or. zed > 103) then
write(zdum_,'(f6.2)') zed
call errore('ld1_readin','wrong nuclear charge zed: '//zdum_,1)
end if