diff options
author | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-09-04 16:06:14 +0000 |
---|---|---|
committer | tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2001-09-04 16:06:14 +0000 |
commit | f9f17bb54fb52e634b648b741db3d49a4a04793c (patch) | |
tree | d80f3a6f78e2c0a4b44faa2853f58d4cf21bf9a5 /src | |
parent | 95bd1a5ba875a4975958793befb32ccf7f04fa72 (diff) |
Replaced constant arguments by variables with that value when calling a
C routine from Fortran. This is to avoid potential datatype conversion problems.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@239 89daf98e-ef62-4674-b946-b8ff9de2216c
Diffstat (limited to 'src')
-rw-r--r-- | src/AHFinder_gau.F | 4 | ||||
-rw-r--r-- | src/AHFinder_int.F | 10 |
2 files changed, 10 insertions, 4 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index 8b39b84..79c8967 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -53,6 +53,7 @@ CCTK_REAL, dimension(2,2,2) :: d1a,gammad,gamma CCTK_REAL, dimension(2,2,2,2) :: d2a,gamma2 + integer num_arrays integer, dimension(7) :: in_array_indices CCTK_REAL, allocatable, dimension(:,:) :: rr,xa,ya,za @@ -739,8 +740,9 @@ call CCTK_VarIndex (in_array_indices(6), "einstein::gyz") call CCTK_VarIndex (in_array_indices(7), "ahfinder::ahfgauss") + num_arrays = 7 call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, - . npoints, 7, 7, + . npoints, num_arrays, num_arrays, . xa, ya, za, . CCTK_VARIABLE_REAL, CCTK_VARIABLE_REAL, . CCTK_VARIABLE_REAL, diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F index 22a01bd..27b612e 100644 --- a/src/AHFinder_int.F +++ b/src/AHFinder_int.F @@ -50,6 +50,7 @@ CCTK_REAL sina,cosa,intw,grad,sigma,h0 CCTK_REAL theta,phi CCTK_REAL aux,aux1,aux2 + INTEGER num_arrays CCTK_REAL tempv(0:lmax),tempm(lmax,lmax) @@ -641,8 +642,9 @@ if (.not.flow) then + num_arrays = 8 call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, - . npoints, 8, 8, + . npoints, num_arrays, num_arrays, . xa, ya, za, . CCTK_VARIABLE_REAL, CCTK_VARIABLE_REAL, . CCTK_VARIABLE_REAL, @@ -661,8 +663,9 @@ else if (nw.ne.zero) then + num_arrays = 9 call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, - . npoints, 9, 9, + . npoints, num_arrays, num_arrays, . xa, ya, za, . CCTK_VARIABLE_REAL, CCTK_VARIABLE_REAL, . CCTK_VARIABLE_REAL, @@ -683,8 +686,9 @@ else + num_arrays = 3 call CCTK_InterpGV (ierror, cctkGH, interp_handle, coord_system_handle, - . npoints, 3, 3, + . npoints, num_arrays, num_arrays, . xa, ya, za, . CCTK_VARIABLE_REAL, CCTK_VARIABLE_REAL, . CCTK_VARIABLE_REAL, |