diff options
-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) ! ********************************* |