Slight formatting changes to make the red hat C preprocessor work without

any special options.


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiBrillBH/trunk@56 0a4070d5-58f5-498f-b6c0-2693e757fa0f

3 files changed, 22 insertions, 22 deletions

diff --git a/src/IDAxiBrillBH.F b/src/IDAxiBrillBH.F
index b902969..58b4477 100644
--- a/src/IDAxiBrillBH.F
+++ b/src/IDAxiBrillBH.F
@@ -335,7 +335,7 @@ c     Curvature
       kyz = 0.0D0
       kzz = 0.0D0
       
- 111  continue
+  111 continue
 c     Set ADM mass
       i = neb-15
       adm = 0.0
diff --git a/src/mg59p.F b/src/mg59p.F
index 63dcb4a..065c971 100644
--- a/src/mg59p.F
+++ b/src/mg59p.F
@@ -414,8 +414,8 @@ c      rewind(unit=lout)
       ase(n)=cse(i,j)
       q(n)=u(i,j)
       f(n)=rhs(i,j)
- 100  continue
- 110  continue
+  100 continue
+  110 continue
 
 
 *
@@ -430,8 +430,8 @@ c      rewind(unit=lout)
       if (ac(n) .eq. 0.) then
         iscale=0
       endif
- 205  continue
- 200  continue
+  205 continue
+  200 continue
 
 *
 *  Do the diagonal scaling if we can.
@@ -451,8 +451,8 @@ c      rewind(unit=lout)
         as(n)=as(n)/ac(n)
         an(n)=an(n)/ac(n)
         ac(n)=1.
- 215  continue
- 210  continue
+  215 continue
+  210 continue
 
       endif
 
@@ -486,8 +486,8 @@ c   Now call the multigrid routine
       do 500 i=ilower,iupper
       n=(j+1-jlower)*im + i+1-(ilower-1)
       u(i,j)=q(n)
- 500  continue
- 510  continue
+  500 continue
+  510 continue
 
       return
       end
@@ -820,8 +820,8 @@ c      rewind(unit=lout)
       ase(n)=0.
       q(n)=u(i,j)
       f(n)=rhs(i,j)
- 100  continue
- 110  continue
+  100 continue
+  110 continue
 
 
 *
@@ -836,8 +836,8 @@ c      rewind(unit=lout)
       if (ac(n) .eq. 0.) then
         iscale=0
       endif
- 205  continue
- 200  continue
+  205 continue
+  200 continue
 
 *
 *  Do the diagonal scaling if we can.
@@ -853,8 +853,8 @@ c      rewind(unit=lout)
         as(n)=as(n)/ac(n)
         an(n)=an(n)/ac(n)
         ac(n)=1.
- 215  continue
- 210  continue
+  215 continue
+  210 continue
 
       endif
 
@@ -889,8 +889,8 @@ c   Now call the multigrid routine
       do 500 i=ilower,iupper
       n=(j+1-jlower)*im + i+1-(ilower-1)
       u(i,j)=q(n)
- 500  continue
- 510  continue
+  500 continue
+  510 continue
 
       return
       end
diff --git a/src/shmgp.F77 b/src/shmgp.F77
index 1982591..237b697 100644
--- a/src/shmgp.F77
+++ b/src/shmgp.F77
@@ -1149,7 +1149,7 @@ cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
       do 111 i=2,im1
                write(lout,1010) im,jm,an(i,j)
                write(lout,1012) i,j,aw(i,j),ac(i,j),ae(i,j)
- 111           write(lout,1011) as(i,j)
+  111          write(lout,1011) as(i,j)
  1010 format(2(1x,i2),14x,f12.5)
  1011 format(20x,f12.5)
  1012 format(2(1x,i2),3(1x,f12.5))
@@ -1159,7 +1159,7 @@ cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
       do 115 i=2,im1
                write(lout,1017) im,jm,anw(i,j),an(i,j),ane(i,j)
                write(lout,1017) i,j,aw(i,j),ac(i,j),ae(i,j)
- 115           write(lout,1016) asw(i,j),as(i,j),ase(i,j)
+  115          write(lout,1016) asw(i,j),as(i,j),ase(i,j)
  1016  format(6x,3(1x,f12.5))
  1017  format(2(1x,i2),3(1x,f12.5))
           endif
@@ -1174,7 +1174,7 @@ cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
      + rc(i,jc)
       write(lout,2014) aswc(i,jc),asc(i,jc),asec(i,jc),pu(i,jc-1),
      + ru(i,jc-1)
- 211  write(lout,*) '                          m, kf-1=',m,kf-1
+  211 write(lout,*) '                          m, kf-1=',m,kf-1
  2014 format(9x,3(1x,f11.5),3x,2(f11.5,1x))
  2013 format(3x,2(1x,i2),3(1x,f11.5),3x,2(f11.5,1x))
  2015 format(3x,2(1x,i2),3(1x,f11.5),3x,2(f11.5,1x))
@@ -1194,7 +1194,7 @@ c**********************************************************************
       im1=im-1
       jm1=jm-1
       ie=1
- 20   ib=ie+1
+   20 ib=ie+1
       ie=ib+min0(5,im1-ib)
       do 10 j=jm1,2,-1
    10 write(lout,100) j,(q(i,j),i=ib,ie)
@@ -1227,7 +1227,7 @@ c
       aw(i,j)=0.
       as(i,j)=0.
       ae(i,j)=0.
- 321  an(i,j)=0.
+  321 an(i,j)=0.
 c
       nx1=nx+1
       ny1=ny+1