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

namelist must be decleared before any executable statement 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7632 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2011-03-29 08:03:28 +00:00
parent 4421bd51ea
commit 131e7ffe00
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
upftools/casino2upf.f90
View File

@ -24,8 +24,6 @@ PROGRAM casino2upf
INTEGER nofiles, i, ios, pp_unit
TYPE(pseudo_upf) :: upf_out
WRITE(0,*) 'CASINO2UPF Converter'
NAMELIST / inputpp / &
pp_data, & !CASINO pp filename
tn_grid, & !.true. if Trail and Needs grid is used
@ -34,6 +32,8 @@ PROGRAM casino2upf
dx !dx for Trail and Needs and standard QE
!grid
WRITE(0,*) 'CASINO2UPF Converter'
READ(*,inputpp,iostat=ios)
READ(*,*,iostat=ios) nofiles