diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-10-29 16:17:48 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-10-29 16:17:48 +0000 |
| commit | 39b7edd8139b1359e5836ef12f07a2dd2fd6a827 (patch) | |
| tree | 74e2aa28ad8d80b564670b4f7a8a99e01586ea2c | |
| parent | b5c4ea91e453f1587044f3380824d35e663e1db0 (diff) | |
A bit more cleaning up. There is still a lot of cleaning up to do.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@22 89daf98e-ef62-4674-b946-b8ff9de2216c
| -rw-r--r-- | src/AHFinder.F | 24 | ||||
| -rw-r--r-- | src/AHFinder_int.F | 6 |
2 files changed, 13 insertions, 17 deletions
diff --git a/src/AHFinder.F b/src/AHFinder.F index 5dba527..3e7a6ec 100644 --- a/src/AHFinder.F +++ b/src/AHFinder.F @@ -7,7 +7,7 @@ c Find an apparent horizon. c @enddesc c@@*/ -c Note thadmcevol_onpunc_0.250_128_neu2_drop/at including cactus.h will also include AHFinder.h + #include "cctk.h" #include "cctk_parameters.h" #include "cctk_arguments.h" @@ -24,17 +24,15 @@ c Note thadmcevol_onpunc_0.250_128_neu2_drop/at including cactus.h will also inc logical status,horizon,gauss integer handle,x_index,y_index,z_index,ierror - CCTK_REAL maxval(3),minval(3) - - CCTK_INT ahfso,ahfafter + integer ahfso,ahfafter integer i,j,l,m integer NN integer mtype - CCTK_INT getoutpfx - INTEGER CCTK_Equals - INTEGER CCTK_MyProc - INTEGER CCTK_nProcs - INTEGER istat + integer getoutpfx + integer CCTK_Equals + integer CCTK_MyProc + integer CCTK_nProcs + integer istat CCTK_REAL atime CCTK_REAL zero,half,one @@ -43,7 +41,8 @@ c Note thadmcevol_onpunc_0.250_128_neu2_drop/at including cactus.h will also inc CCTK_REAL circ_eq,meri_p1,meri_p2 CCTK_REAL aux,expin,expout,small1,small2 CCTK_REAL c0_temp(18) - + CCTK_REAL maxval(3),minval(3) + character*200 almf,logf,areaf,massf,circeqf,merip1f,merip2f save ahfafter,ahfso,atime @@ -106,9 +105,8 @@ c Note thadmcevol_onpunc_0.250_128_neu2_drop/at including cactus.h will also inc status = .false. - - myproc = CCTK_MyProc( cctkGH ) - nprocs = CCTK_nProcs( cctkGH ) + myproc = CCTK_MyProc(cctkGH) + nprocs = CCTK_nProcs(cctkGH) ! ********************************* diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F index e2811a6..b4ab2c6 100644 --- a/src/AHFinder_int.F +++ b/src/AHFinder_int.F @@ -142,8 +142,6 @@ c Reduction related things ! ! da Area element. - - c Get the reduction handel for the sum operation call CCTK_ReductionArrayHandle(reduction_handle,"sum") if (reduction_handle.lt.0) then @@ -165,8 +163,8 @@ c Get the reduction handel for the sum operation pi = 3.141592654D0 - call CCTK_MyProc(myproc) - call CCTK_nProcs(nprocs) + myproc = CCTK_MyProc(cctkGH) + nprocs = CCTK_nProcs(cctkGH) ! ********************************* |