From 55a242111135cb417bd8209c9c507c96d7115be7 Mon Sep 17 00:00:00 2001
From: dalcorso <dalcorso@c92efa57-630b-4861-b058-cf58834340f0>
Date: Wed, 18 Nov 2009 08:58:51 +0000
Subject: [PATCH] A small change to the zue recover.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@6168 c92efa57-630b-4861-b058-cf58834340f0
---
 PH/dynmatrix.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/PH/dynmatrix.f90 b/PH/dynmatrix.f90
index ac65e23a7..9007e16d7 100644
--- a/PH/dynmatrix.f90
+++ b/PH/dynmatrix.f90
@@ -157,7 +157,7 @@ subroutine dynmatrix
   !   Writes (if the case) results for quantities involving electric field
   !
   if (epsil) call write_epsilon_and_zeu (zstareu, epsilon, nat, iudyn)
-  IF (zue) THEN
+  IF (zue.AND..NOT.done_zue) THEN
      done_zue=.TRUE.
      IF (lgamma_gamma) THEN
         ALLOCATE(zstar(3,3,nat))
@@ -190,6 +190,8 @@ subroutine dynmatrix
      ELSE
         CALL sym_and_write_zue
      ENDIF
+  ELSEIF (lgamma) THEN
+     IF (done_zue) CALL summarize_zue() 
   ENDIF
 
   if (lraman) call write_ramtns (iudyn, ramtns)