From 383fdd3652ae3ce5de39c54424804c9512beefc1 Mon Sep 17 00:00:00 2001
From: pizzi <pizzi@c92efa57-630b-4861-b058-cf58834340f0>
Date: Mon, 7 Dec 2015 13:20:59 +0000
Subject: [PATCH] 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
---
 PP/src/pw2wannier90.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/PP/src/pw2wannier90.f90 b/PP/src/pw2wannier90.f90
index 096d55443..5aaab8c9e 100644
--- a/PP/src/pw2wannier90.f90
+++ b/PP/src/pw2wannier90.f90
@@ -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