From 39b7edd8139b1359e5836ef12f07a2dd2fd6a827 Mon Sep 17 00:00:00 2001
From: miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c>
Date: Fri, 29 Oct 1999 16:17:48 +0000
Subject: 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
---
 src/AHFinder.F     | 24 +++++++++++-------------
 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)
 
 
 !     *********************************
-- 
cgit v1.2.3