diff options
| author | allen <allen@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2000-04-19 22:28:40 +0000 |
|---|---|---|
| committer | allen <allen@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2000-04-19 22:28:40 +0000 |
| commit | 5604667e8977e708cbc6b61a7a9972ea799367bc (patch) | |
| tree | 93e7e62160d38d6e627f5526d0789ea12c95e51f | |
| parent | 66062985d91b855b8a9d36bad42f75f919af4217 (diff) | |
Removing warnings
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiBrillBH/trunk@11 0a4070d5-58f5-498f-b6c0-2693e757fa0f
| -rw-r--r-- | src/mg59p.F | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/mg59p.F b/src/mg59p.F index 63dcb4a..4036cea 100644 --- a/src/mg59p.F +++ b/src/mg59p.F @@ -60,9 +60,11 @@ c ..................................................................... + np2(m,1)=np2(m,1)+1 np2(m,2)=2 go to 10 - 20 do 30 k=1,m + 20 continue + do 30 k=1,m np2(m-k+1,jm)=np2(k,1) - 30 np2(m-k+1,jred)=np2(k,2) + 30 continue + np2(m-k+1,jred)=np2(k,2) do 40 k=m,1,-1 ktot=imx*np2(k,jm) np2(k,n5)=iq5 @@ -70,11 +72,13 @@ c ..................................................................... np2(k,n9)=iq9 if(k.lt.m.or.ifd59.eq.9) iq9=iq9+ktot np2(k,ni)=iqi - 40 if(k.lt.m) iqi=iqi+ktot + 40 continue + if(k.lt.m) iqi=iqi+ktot do 50 k=1,m np2(k,i9)=imx np2(k,j9)=np2(k,jm) - 50 np2(k,ifd)=9 + 50 continue + np2(k,ifd)=9 if(ifd59.eq.5) then np2(m,i9)=1 np2(m,j9)=1 |