aboutsummaryrefslogtreecommitdiff
path: root/src/AHFinder_int.F
diff options
context:
space:
mode:
Diffstat (limited to 'src/AHFinder_int.F')
-rw-r--r--src/AHFinder_int.F29
1 files changed, 19 insertions, 10 deletions
diff --git a/src/AHFinder_int.F b/src/AHFinder_int.F
index e3c9833..170a7ab 100644
--- a/src/AHFinder_int.F
+++ b/src/AHFinder_int.F
@@ -31,7 +31,7 @@
integer npt,npp
integer l_ntheta,l_nphi,theta0,phi0
integer npoints
- integer auxi
+ integer auxi,vindex
integer ierror
integer interp_handle,coord_system_handle
@@ -641,15 +641,24 @@
interp_coords(2) = CCTK_PointerTo(ya)
interp_coords(3) = CCTK_PointerTo(za)
- call CCTK_VarIndex (in_array_indices(1), "admbase::gxx")
- call CCTK_VarIndex (in_array_indices(2), "admbase::gyy")
- call CCTK_VarIndex (in_array_indices(3), "admbase::gzz")
- call CCTK_VarIndex (in_array_indices(4), "admbase::gxy")
- call CCTK_VarIndex (in_array_indices(5), "admbase::gxz")
- call CCTK_VarIndex (in_array_indices(6), "admbase::gyz")
- call CCTK_VarIndex (in_array_indices(7), "ahfinder::ahf_exp")
- call CCTK_VarIndex (in_array_indices(8), "ahfinder::ahmask")
- call CCTK_VarIndex (in_array_indices(9), "ahfinder::ahfgradn")
+ call CCTK_VarIndex (vindex, "admbase::gxx")
+ in_array_indices(1) = vindex
+ call CCTK_VarIndex (vindex, "admbase::gyy")
+ in_array_indices(2) = vindex
+ call CCTK_VarIndex (vindex, "admbase::gzz")
+ in_array_indices(3) = vindex
+ call CCTK_VarIndex (vindex, "admbase::gxy")
+ in_array_indices(4) = vindex
+ call CCTK_VarIndex (vindex, "admbase::gxz")
+ in_array_indices(5) = vindex
+ call CCTK_VarIndex (vindex, "admbase::gyz")
+ in_array_indices(6) = vindex
+ call CCTK_VarIndex (vindex, "ahfinder::ahf_exp")
+ in_array_indices(7) = vindex
+ call CCTK_VarIndex (vindex, "ahfinder::ahmask")
+ in_array_indices(8) = vindex
+ call CCTK_VarIndex (vindex, "ahfinder::ahfgradn")
+ in_array_indices(9) = vindex
out_arrays(1) = CCTK_PointerTo(txx)
out_arrays(2) = CCTK_PointerTo(tyy)