From 616f5dd094ca2703de012f6cf03686d4b563c587 Mon Sep 17 00:00:00 2001
From: sponce <sponce@c92efa57-630b-4861-b058-cf58834340f0>
Date: Wed, 13 Apr 2016 14:53:26 +0000
Subject: [PATCH] Small debug with pade_iso_X output files.

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@12306 c92efa57-630b-4861-b058-cf58834340f0
---
 EPW/src/eliashberg_write.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/EPW/src/eliashberg_write.f90 b/EPW/src/eliashberg_write.f90
index a1606f44e..afb18ab93 100644
--- a/EPW/src/eliashberg_write.f90
+++ b/EPW/src/eliashberg_write.f90
@@ -172,7 +172,7 @@
         IF ( lpade ) THEN
            WRITE(name1,'(a,a10,f5.2)') TRIM(prefix),'.pade_iso_', temp
         ELSEIF ( lacon ) THEN
-           WRITE(name1,'(a,a10,f4.2)') TRIM(prefix),'.acon_iso_', temp
+           WRITE(name1,'(a,a10,f5.2)') TRIM(prefix),'.acon_iso_', temp
         ENDIF
      ENDIF
      OPEN(iufilgap, file=name1, form='formatted')