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

Split lines too long 

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

6
PP/src/molecularpdos.f90
View File

@ -119,8 +119,10 @@ PROGRAM molecularpdos
!
!
! Read projection files
CALL readprojfile(xmlfile_full, nbnd_full, nkstot_full, num_k_points_full, nspin_full, natomwfc_full, xk_full, wk_full, et_full, projs_full)
CALL readprojfile(xmlfile_part, nbnd_part, nkstot_part, num_k_points_part, nspin_part, natomwfc_part, xk_part, wk_part, et_part, projs_part)
CALL readprojfile(xmlfile_full, nbnd_full, nkstot_full, num_k_points_full,&
nspin_full, natomwfc_full, xk_full, wk_full, et_full, projs_full)
CALL readprojfile(xmlfile_part, nbnd_part, nkstot_part, num_k_points_part,&
nspin_part, natomwfc_part, xk_part, wk_part, et_part, projs_part)
!
! Defaults ranges are maximum ones
IF (i_atmwfc_end_full<1) i_atmwfc_end_full=natomwfc_full