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/AHFinder_int.F | |
| 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/AHFinder_int.F')
| -rw-r--r-- | src/AHFinder_int.F | 10 |
1 files changed, 7 insertions, 3 deletions
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, |