From e364f7ff45ad824677e262f3d6974c9a96e2ae97 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@b716e942-a2de-43ad-8f52-f3dfe468e4e7>
Date: Tue, 27 May 2003 12:01:38 +0000
Subject: Add interface for CCTK_InterpGridArrays.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@5 b716e942-a2de-43ad-8f52-f3dfe468e4e7
---
 src/cactus.F90 | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

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
-- 
cgit v1.2.3