Add interface for CCTK_InterpGridArrays.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@5 b716e942-a2de-43ad-8f52-f3dfe468e4e7

1 files changed, 23 insertions, 0 deletions

diff --git a/src/cactus.F90 b/src/cactus.F90
index 1255a99..e26b803 100644
--- a/src/cactus.F90
+++ b/src/cactus.F90
@@ -112,6 +112,29 @@ module cactus
        character*(*) message
      end subroutine cctk_info
      
+     subroutine cctk_interpgridarrays &
+          (ierr, cctkGH, N_dims, &
+          local_interp_handle, param_table_handle, coord_system_handle, &
+          N_interp_points, interp_coords_type, interp_coords, &
+          N_input_arrays, input_array_indices, &
+          N_output_arrays, output_array_types, output_arrays)
+       implicit none
+       integer      ierr
+       CCTK_POINTER cctkGH
+       integer      N_dims
+       integer      local_interp_handle
+       integer      param_table_handle
+       integer      coord_system_handle
+       integer      N_interp_points
+       integer      interp_coords_type
+       CCTK_POINTER interp_coords(N_dims)
+       integer      N_input_arrays
+       CCTK_INT     input_array_indices(N_input_arrays)
+       integer      N_output_arrays
+       CCTK_INT     output_array_types(N_output_arrays)
+       CCTK_POINTER output_arrays(N_output_arrays)
+     end subroutine cctk_interpgridarrays
+     
      subroutine cctk_interphandle (handle, interp)
        implicit none
        integer       handle