diff options
author | lnerger <lnerger@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-09-17 09:19:38 +0000 |
---|---|---|
committer | lnerger <lnerger@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-09-17 09:19:38 +0000 |
commit | 225b9e2d6f300398cad8dbfff4b05eb17f6dd88d (patch) | |
tree | 1011cb3287690e4ea95ed6561fddc533aa721bd7 /src | |
parent | 378c8aba467459fb8b11ac0dec29108e85204328 (diff) |
This commit was generated by cvs2svn to compensate for changes in r5, which
included commits to RCS files with non-trunk default branches.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@6 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src')
-rw-r--r-- | src/AHFinder_dat.F | 2 | ||||
-rw-r--r-- | src/AHFinder_exp.F | 10 | ||||
-rw-r--r-- | src/AHFinder_flow.F | 1 | ||||
-rw-r--r-- | src/AHFinder_pow.F | 4 | ||||
-rw-r--r-- | src/make.code.defn | 2 |
5 files changed, 9 insertions, 10 deletions
diff --git a/src/AHFinder_dat.F b/src/AHFinder_dat.F index efcc6ae..c765baf 100644 --- a/src/AHFinder_dat.F +++ b/src/AHFinder_dat.F @@ -33,7 +33,7 @@ c@@*/ CCTK_INT mfind,ahf_ncall CCTK_INT nx,ny,nz integer nprocs,myproc - + integer ierr CCTK_REAL dx,dy,dz CCTK_REAL xc,yc,zc diff --git a/src/AHFinder_exp.F b/src/AHFinder_exp.F index 9ccea39..e321616 100644 --- a/src/AHFinder_exp.F +++ b/src/AHFinder_exp.F @@ -347,8 +347,8 @@ c Note that including cactus.h will also include AHFinder.h ! if ((contains("grid","octant").ne.0).or. ! . (contains("grid","quadrant").ne.0)) then - if ((CCTK_Equals(symmetry,"octant").eq.1).or. - . (CCTK_Equals(symmetry,"quadrant").eq.1)) then + if ((CCTK_Equals(domain,"octant").eq.1).or. + . (CCTK_Equals(domain,"quadrant").eq.1)) then ahfgradx(1,j,k) = -ahfgradx(2,j,k) else @@ -375,8 +375,8 @@ c Note that including cactus.h will also include AHFinder.h ! if ((contains("grid","octant").ne.0).or. ! . (contains("grid","quadrant").ne.0)) then - if ((CCTK_Equals(symmetry,"octant").eq.1).or. - . (CCTK_Equals(symmetry,"quadrant").eq.1)) then + if ((CCTK_Equals(domain,"octant").eq.1).or. + . (CCTK_Equals(domain,"quadrant").eq.1)) then ahfgrady(i,1,k) = -ahfgrady(i,2,k) else ahfgrady(i,1,k) = +ahfgrady(i,2,k) @@ -401,7 +401,7 @@ c Note that including cactus.h will also include AHFinder.h ahfgradn(i,j,1 ) = ahfgradn(i,j,2) ! if (contains("grid","octant").ne.0) then - if (CCTK_Equals(symmetry,"octant").eq.1) then + if (CCTK_Equals(domain,"octant").eq.1) then ahfgradz(i,j,1) = -ahfgradz(i,j,2) else ahfgradz(i,j,1) = +ahfgradz(i,j,2) diff --git a/src/AHFinder_flow.F b/src/AHFinder_flow.F index a44600d..c11f30d 100644 --- a/src/AHFinder_flow.F +++ b/src/AHFinder_flow.F @@ -166,7 +166,6 @@ c Note that including cactus.h will also include AHFinder.h call AHFinder_exp(CCTK_FARGUMENTS) call AHFinder_int(CCTK_FARGUMENTS) - ! ***************************** ! *** CHECK ERROR FLAGS *** ! ***************************** diff --git a/src/AHFinder_pow.F b/src/AHFinder_pow.F index f605039..00e1e17 100644 --- a/src/AHFinder_pow.F +++ b/src/AHFinder_pow.F @@ -521,8 +521,8 @@ c Note that including cactus.h will also include AHFinder.h - REAL function PARABOLA(CCTK_FARGUMENTS,XA,XB,XC,FXA,FXB,FXC,FUNC,TOL,XMIN, - . error) + REAL function PARABOLA(CCTK_FARGUMENTS,XA,XB,XC,FXA,FXB,FXC,FUNC, + . TOL,XMIN,error) ! Given a function F, and given a bracketing triplet of abscissas ! XA, XB, XC (such that XB is between XA and XC, and F(XB) is less diff --git a/src/make.code.defn b/src/make.code.defn index 0af2cc5..9b84fb9 100644 --- a/src/make.code.defn +++ b/src/make.code.defn @@ -6,4 +6,4 @@ SRCS += AHFinder_dat.F AHFinder.F \ AHFinder_min.F AHFinder_pow.F AHFinder_leg.F \ AHFinder_flow.F AHFinder_mask.F \ AHFinder_find3.F AHFinder_calcsigma.F \ - AHFinder_initguess.F + AHFinder_initguess.F AHFinder_gau.F |