Bug in a call to xanes_dipole_general_edge, verbosity missing,

corrected. Affecting only L23 calculations.

O. Bunau and MCB


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@11639 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
calandra 2015-07-23 09:33:26 +00:00
parent f588341f17
commit 2ec92990e7
1 changed files with 2 additions and 2 deletions

View File

@ -713,7 +713,7 @@ ENDIF
ENDIF
CALL init_gipaw_1
!
WRITE(stdout,1000) ! return+line
WRITE(stdout,'(5x,a)') &
@ -947,7 +947,7 @@ ENDIF
paw_iltonhb,terminator,verbosity)
ELSEIF(nl_init(2).EQ.1.AND.xang_mom .eq. 1) then
call xanes_dipole_general_edge(a,b,ncalcv,nl_init,xnorm,core_wfn,paw_iltonhb,terminator)
call xanes_dipole_general_edge(a,b,ncalcv,nl_init,xnorm,core_wfn,paw_iltonhb,terminator, verbosity)
ENDIF
!
! write_save_file should be changed for L2,3