diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-01-22 11:57:25 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-01-22 11:57:25 +0000 |
| commit | 3bee885b5616fe2b641a37ea68c3514972175a87 (patch) | |
| tree | 90184f3a39544010444d2db5c935e7abb5cf2bf4 /src/AHFinder_gau.F | |
| parent | 41c9a1b15ac878b2b49f2f31c5fdf568a7313121 (diff) | |
Making the circumferences visible to all routines.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@169 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_gau.F')
| -rw-r--r-- | src/AHFinder_gau.F | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index f0e6795..0b03305 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -17,7 +17,7 @@ #include "cctk_Parameters.h" #include "cctk_Arguments.h" - subroutine AHFinder_gau(CCTK_FARGUMENTS,circ_eq,meri_p1,meri_p2) + subroutine AHFinder_gau(CCTK_FARGUMENTS) use AHFinder_dat @@ -41,7 +41,6 @@ CCTK_REAL dtheta,dphi,dtp,idtheta,idphi,phistart CCTK_REAL xmn_l,ymn_l,zmn_l,xmx_l,ymx_l,zmx_l CCTK_REAL trr,ttt,tpp,trt,trp,ttp,ft,fp - CCTK_REAL circ_eq,meri_p1,meri_p2 CCTK_REAL deta,ideta CCTK_REAL nlx,nly,nlz,nux,nuy,nuz CCTK_REAL trxi,xi2 @@ -138,10 +137,6 @@ ! g22 2-metric component {phi,phi}. ! g12 2-metric component {theta,phi}. ! -! circ_eq Equatorial circumference. -! meri_p1 Length of meridian at phi=0. -! meri_p2 Length of meridian at phi=pi/2. -! ! gaussian Gaussian curvature. ! ! ug 3x3 array with inverse 3-metric. @@ -603,7 +598,12 @@ ! (but remember to deallocate the arrays first!). if ((error1.ne.0).or.(error2.ne.0)) then - goto 10 + deallocate(rr) + deallocate(xa,ya,za) + deallocate(txx,tyy,tzz,txy,txz,tyz) + deallocate(g11,g22,g12) + deallocate(gaussian) + return end if @@ -1157,8 +1157,6 @@ ! *** DEALLOCATE MEMORY *** ! ***************************** - 10 continue - deallocate(rr) deallocate(xa,ya,za) deallocate(txx,tyy,tzz,txy,txz,tyz) |