mirror of https://gitlab.com/QEF/q-e.git
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:
parent
81c663736f
commit
e8b37eab88
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue