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

Added explicit format for formatted output of the UNK files by pw2wannier90 in one of the two cases for reduce_unk (the other was already correct). 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@11899 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
pizzi 2015-12-07 13:20:59 +00:00
parent 6a3c54be1d
commit 383fdd3652
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PP/src/pw2wannier90.f90
View File

@ -2426,7 +2426,7 @@ SUBROUTINE write_plot
IF (reduce_unk) THEN
WRITE (iun_plot,'(2ES20.10)') (psic_small(j),j=1,n1by2*n2by2*n3by2)
ELSE
WRITE (iun_plot,*) (psic_all(j),j=1,dffts%nr1*dffts%nr2*dffts%nr3)
WRITE (iun_plot,'(2ES20.10)') (psic_all(j),j=1,dffts%nr1*dffts%nr2*dffts%nr3)
ENDIF
ELSE
IF (reduce_unk) THEN