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
This commit is contained in:
cavazzon 2003-06-12 10:03:04 +00:00
parent 55bca2f76e
commit 004396bb4a
1 changed files with 1 additions and 1 deletions

View File

@ -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('=')/,/)")
! ------------------------------------------------------------------------- !