diff options
Diffstat (limited to 'src/AHFinder_gau.F')
-rw-r--r-- | src/AHFinder_gau.F | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/src/AHFinder_gau.F b/src/AHFinder_gau.F index cbdb6d5..0e97711 100644 --- a/src/AHFinder_gau.F +++ b/src/AHFinder_gau.F @@ -31,7 +31,7 @@ logical firstcal(4) integer i,j,k,l,m,n,p - integer npoints + integer npoints,vindex integer param_table_handle,interp_handle,coord_system_handle,sum_handle integer ierror character(len=128) :: operator @@ -706,13 +706,20 @@ 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::ahfgauss") + 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::ahfgauss") + in_array_indices(7) = vindex out_arrays(1) = CCTK_PointerTo(txx) out_arrays(2) = CCTK_PointerTo(tyy) |