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

Namelist has slipped down in the middle of code, but my compiler wasn't 

complaining


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@11338 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2015-01-30 21:57:07 +00:00
parent e8b37eab88
commit b4b90a76cb
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
PP/src/molecularpdos.f90
View File

@ -56,6 +56,11 @@ PROGRAM molecularpdos
REAL(DP) :: degauss, Emax, Emin, DeltaE
INTEGER :: ngauss
!
NAMELIST / inputmopdos / &
xmlfile_full, i_atmwfc_beg_full, i_atmwfc_end_full, i_bnd_beg_full, i_bnd_end_full, &
xmlfile_part, i_atmwfc_beg_part, i_atmwfc_end_part, i_bnd_beg_part, i_bnd_end_part, &
fileout, Emin, Emax, DeltaE, ngauss, degauss
!
INTEGER :: nbnd_full, nkstot_full, num_k_points_full, nspin_full, natomwfc_full
INTEGER :: nbnd_part, nkstot_part, num_k_points_part, nspin_part, natomwfc_part
REAL(DP), ALLOCATABLE :: xk_full(:,:), wk_full(:), et_full(:,:), &
@ -101,11 +106,6 @@ PROGRAM molecularpdos
ngauss = 0
degauss= 0.d0
!
NAMELIST / inputmopdos / &
xmlfile_full, i_atmwfc_beg_full, i_atmwfc_end_full, i_bnd_beg_full, i_bnd_end_full, &
xmlfile_part, i_atmwfc_beg_part, i_atmwfc_end_part, i_bnd_beg_part, i_bnd_end_part, &
fileout, Emin, Emax, DeltaE, ngauss, degauss
!
ios = 0
!
IF ( ionode ) READ (5, inputmopdos, iostat = ios)