diff options
-rw-r--r-- | src/cactus.F90 | 23 |
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 |