From 006fb34e78bdb8b877a3b430644024028ca09720 Mon Sep 17 00:00:00 2001
From: giannozz <giannozz@c92efa57-630b-4861-b058-cf58834340f0>
Date: Thu, 14 Sep 2006 16:28:00 +0000
Subject: [PATCH] format is now compatible with both f90 free format and f77
 fixed format

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3390 c92efa57-630b-4861-b058-cf58834340f0
---
 flib/indxl2g.f |  2 +-
 flib/infog1l.f |  4 ++--
 flib/infog2l.f | 18 +++++++++---------
 3 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/flib/indxl2g.f b/flib/indxl2g.f
index 36e0ed911..4eb31a496 100644
--- a/flib/indxl2g.f
+++ b/flib/indxl2g.f
@@ -45,7 +45,7 @@
 !     ..
 !     .. Executable Statements ..
 !
-      INDXL2G = NPROCS*NB*((INDXLOC-1)/NB) + MOD(INDXLOC-1,NB) +        
+      INDXL2G = NPROCS*NB*((INDXLOC-1)/NB) + MOD(INDXLOC-1,NB) +        &
      &          MOD(NPROCS+IPROC-ISRCPROC, NPROCS)*NB + 1
 !
       RETURN
diff --git a/flib/infog1l.f b/flib/infog1l.f
index 3792b4ac7..923c82e12 100644
--- a/flib/infog1l.f
+++ b/flib/infog1l.f
@@ -1,4 +1,4 @@
-      SUBROUTINE INFOG1L( GINDX, NB, NPROCS, MYROC, ISRCPROC, LINDX,    
+      SUBROUTINE INFOG1L( GINDX, NB, NPROCS, MYROC, ISRCPROC, LINDX,    &
      &                    ROCSRC )
 !
 !  -- ScaLAPACK tools routine (version 1.5) --
@@ -7,7 +7,7 @@
 !     May 1, 1997
 !
 !     .. Scalar Arguments ..
-      INTEGER            GINDX, ISRCPROC, LINDX, MYROC, NB, NPROCS,     
+      INTEGER            GINDX, ISRCPROC, LINDX, MYROC, NB, NPROCS,     &
      &                   ROCSRC
 !     ..
 !
diff --git a/flib/infog2l.f b/flib/infog2l.f
index 9794061a3..076b75a75 100644
--- a/flib/infog2l.f
+++ b/flib/infog2l.f
@@ -1,4 +1,4 @@
-      SUBROUTINE INFOG2L( GRINDX, GCINDX, DESC, NPROW, NPCOL, MYROW,    
+      SUBROUTINE INFOG2L( GRINDX, GCINDX, DESC, NPROW, NPCOL, MYROW,    &
      &                    MYCOL, LRINDX, LCINDX, RSRC, CSRC )
 !
 !  -- ScaLAPACK tools routine (version 1.5) --
@@ -7,7 +7,7 @@
 !     May 1, 1997
 !
 !     .. Scalar Arguments ..
-      INTEGER            CSRC, GCINDX, GRINDX, LRINDX, LCINDX, MYCOL,   
+      INTEGER            CSRC, GCINDX, GRINDX, LRINDX, LCINDX, MYCOL,   &
      &                   MYROW, NPCOL, NPROW, RSRC
 !     ..
 !     .. Array Arguments ..
@@ -120,10 +120,10 @@
 !  =====================================================================
 !
 !     .. Parameters ..
-      INTEGER            BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_,  
+      INTEGER            BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_,  &
      &                   LLD_, MB_, M_, NB_, N_, RSRC_
-      PARAMETER          ( BLOCK_CYCLIC_2D = 1, DLEN_ = 9, DTYPE_ = 1,  
-     &                     CTXT_ = 2, M_ = 3, N_ = 4, MB_ = 5, NB_ = 6, 
+      PARAMETER          ( BLOCK_CYCLIC_2D = 1, DLEN_ = 9, DTYPE_ = 1,  &
+     &                     CTXT_ = 2, M_ = 3, N_ = 4, MB_ = 5, NB_ = 6, &
      &                      RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
 !     ..
 !     .. Local Scalars ..
@@ -145,16 +145,16 @@
       LRINDX = ( RBLK / NPROW + 1 ) * DESC(MB_) + 1
       LCINDX = ( CBLK / NPCOL + 1 ) * DESC(NB_) + 1
 !
-      IF( MOD( MYROW+NPROW-DESC(RSRC_), NPROW ) .GE.                    
+      IF( MOD( MYROW+NPROW-DESC(RSRC_), NPROW ) .GE.                    &
      &    MOD( RBLK, NPROW ) ) THEN
-         IF( MYROW.EQ.RSRC )                                            
+         IF( MYROW.EQ.RSRC )                                            &
      &      LRINDX = LRINDX + MOD( GRCPY, DESC(MB_) )
          LRINDX = LRINDX - DESC(MB_)
       END IF
 !
-      IF( MOD( MYCOL+NPCOL-DESC(CSRC_), NPCOL ) .GE.                    
+      IF( MOD( MYCOL+NPCOL-DESC(CSRC_), NPCOL ) .GE.                    &
      &    MOD( CBLK, NPCOL ) ) THEN
-         IF( MYCOL.EQ.CSRC )                                            
+         IF( MYCOL.EQ.CSRC )                                            &
      &      LCINDX = LCINDX + MOD( GCCPY, DESC(NB_) )
          LCINDX = LCINDX - DESC(NB_)
       END IF