diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-11-02 14:28:25 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 1999-11-02 14:28:25 +0000 |
| commit | 50d5e8466223ca0c924541c93ae11e1d987338ea (patch) | |
| tree | b35a937bc79723024cccecbcb45de0cad6d03305 /src/AHFinder_pow.F | |
| parent | e37f577a4c106d837ffd31f368689b47274eab0c (diff) | |
Changing REAL to CCTK_REAL in a few places. Should make little difference.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@26 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_pow.F')
| -rw-r--r-- | src/AHFinder_pow.F | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/AHFinder_pow.F b/src/AHFinder_pow.F index e3f1dd7..ad298c5 100644 --- a/src/AHFinder_pow.F +++ b/src/AHFinder_pow.F @@ -314,7 +314,7 @@ c Note that including cactus.h will also include AHFinder.h - REAL function F1DIM(CCTK_FARGUMENTS,XX) + CCTK_REAL function F1DIM(CCTK_FARGUMENTS,XX) ! Must accompany LINMIN @@ -523,8 +523,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) + CCTK_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 @@ -668,7 +668,7 @@ c Note that including cactus.h will also include AHFinder.h - REAL function FUNC(CCTK_FARGUMENTS,P,N) + CCTK_REAL function FUNC(CCTK_FARGUMENTS,P,N) ! This is a shell to find the surface integral of the expansion. |