mirror of https://gitlab.com/QEF/q-e.git
missing format * in a write statement in exx
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6698 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
1a198fcaaa
commit
9bb988ee20
|
@ -817,7 +817,8 @@ CONTAINS
|
|||
!
|
||||
!loads the phi from file
|
||||
!
|
||||
|
||||
WRITE(stdout,*) "from vexx, nrxxs: ", nrxxs, ikq, h_ibnd
|
||||
call flush_unit(stdout)
|
||||
do ji=1, nrxxs
|
||||
tempphic(ji)=exxbuff(ji,ikq,h_ibnd)
|
||||
|
||||
|
@ -849,6 +850,10 @@ CONTAINS
|
|||
!
|
||||
!loads the phi from file
|
||||
!
|
||||
WRITE(stdout,*) "from vexx, nrxxs: ", nrxxs, ikq, ibnd
|
||||
if(allocated(tempphic)) write(stdout,*) "tempphic allcated"
|
||||
if(allocated(exxbuff)) write(stdout,*) "exxbuff allocated"
|
||||
call flush_unit(stdout)
|
||||
do ji=1, nrxxs
|
||||
tempphic(ji)=exxbuff(ji,ikq,ibnd)
|
||||
enddo
|
||||
|
|
Loading…
Reference in New Issue