diff options
author | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-04-15 07:26:38 +0000 |
---|---|---|
committer | diener <diener@2a26948c-0e4f-0410-aee8-f1d3e353619c> | 2003-04-15 07:26:38 +0000 |
commit | 83db3e09b07ed199cbd629307a26cb9d9c08f3f7 (patch) | |
tree | a245e6938d28abd02687b76bd3d040bbf77ac06a /src | |
parent | 4aafcc75d35b54d5e4d23cb7b7da771023ba80f6 (diff) |
Changed the declaration of in_arrays from CCTK_POINTER to CCTK_INT so the
interpolation works properly on 64 bit machines.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/EHFinder/trunk@96 2a26948c-0e4f-0410-aee8-f1d3e353619c
Diffstat (limited to 'src')
-rw-r--r-- | src/EHFinder_Integrate2.F90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/EHFinder_Integrate2.F90 b/src/EHFinder_Integrate2.F90 index 0b06ffb..fb9aa88 100644 --- a/src/EHFinder_Integrate2.F90 +++ b/src/EHFinder_Integrate2.F90 @@ -25,8 +25,8 @@ subroutine EHFinder_FindSurfaceElement(CCTK_ARGUMENTS) CCTK_REAL :: dxdth, dxdph, dydth, dydph, dzdth, dzdph ! CCTK_REAL :: gtt, gtp, gpp CCTK_POINTER, dimension(3) :: interp_coords - CCTK_POINTER, dimension(7) :: in_array, out_array -! CCTK_INT, dimension(7) :: in_array + CCTK_POINTER, dimension(7) :: out_array + CCTK_INT, dimension(7) :: in_array CCTK_INT, dimension(7), parameter :: out_types = (/ CCTK_VARIABLE_REAL, & CCTK_VARIABLE_REAL, & CCTK_VARIABLE_REAL, & |