From 004396bb4a2b229c92c4b8f99c7c7d5ea7bffe75 Mon Sep 17 00:00:00 2001
From: cavazzon <cavazzon@c92efa57-630b-4861-b058-cf58834340f0>
Date: Thu, 12 Jun 2003 10:03:04 +0000
Subject: [PATCH] there was a comma at the end of a format string and the alpha
 compiler complained about that

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

diff --git a/PW/bp_c_phase.f90 b/PW/bp_c_phase.f90
index b261c3dcd..29cd31747 100644
--- a/PW/bp_c_phase.f90
+++ b/PW/bp_c_phase.f90
@@ -800,7 +800,7 @@ SUBROUTINE c_phase
        &  F7.5,' , ',F7.5,' , ',F7.5,' )'))") upol(1),upol(2),upol(3)
 
 !  --- End of information relative to polarization calculation ---
-   WRITE(6,"(/,/,15X,50('=')/,/,)")
+   WRITE(6,"(/,/,15X,50('=')/,/)")
 
 
 !  -------------------------------------------------------------------------   !