diff options
| author | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-05-05 07:59:10 +0000 |
|---|---|---|
| committer | miguel <miguel@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2000-05-05 07:59:10 +0000 |
| commit | 617d44a1938c3612ac2ea6cf5ace0da500f6f210 (patch) | |
| tree | e2478931cd7c8fc1c9206d84d1bc5f8d0ce8eeab /src/AHFinder_flow.F | |
| parent | 06afe056518891926bfde50283b377681274895a (diff) | |
Changing "integer" to CCTK_INT. Apparently the inconsistent use of both
in different places was causing trouble on the t3e.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@93 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src/AHFinder_flow.F')
| -rw-r--r-- | src/AHFinder_flow.F | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/AHFinder_flow.F b/src/AHFinder_flow.F index ef4e598..d57fa02 100644 --- a/src/AHFinder_flow.F +++ b/src/AHFinder_flow.F @@ -27,8 +27,8 @@ logical status,new - integer itmax - integer i,j,l,m + CCTK_INT itmax + CCTK_INT i,j,l,m CCTK_REAL rmx,ahftol CCTK_REAL A,B @@ -592,7 +592,7 @@ - real*8 function spher(theta,phi) + CCTK_REAL function spher(theta,phi) ! Function to reconstruct a function pointwise ! from the expansion coefficients {c0,cc,cs}. @@ -601,12 +601,12 @@ implicit none - integer l,m + CCTK_INT l,m - real*8 LEGEN - real*8 theta,phi - real*8 F,cost,cosa,sina - real*8 aux + CCTK_REAL LEGEN + CCTK_REAL theta,phi + CCTK_REAL F,cost,cosa,sina + CCTK_REAL aux ! ****************************** |