diff options
author | diener <diener@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2003-11-05 20:34:25 +0000 |
---|---|---|
committer | diener <diener@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2003-11-05 20:34:25 +0000 |
commit | 51a4437420d830fea82aeb62c14c80df4e0bca21 (patch) | |
tree | 94d10c412ce4dfdcbb2fb373e58d259a29e7d258 /src/mg59p.F | |
parent | d2579ddcc60e96769dff58098e5ee0cf725d3e9f (diff) |
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
Diffstat (limited to 'src/mg59p.F')
-rw-r--r-- | src/mg59p.F | 32 |
1 files changed, 16 insertions, 16 deletions
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 |