From 7814896d27a90c94a6b3bc362a9b0207f70f86c8 Mon Sep 17 00:00:00 2001 From: schnetter Date: Fri, 28 May 2004 15:58:33 +0000 Subject: Provide symmetry interpolation. git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/RotatingSymmetry90/trunk@9 c3c03602-0f4f-0410-b3fa-d2c81c8a7dc5 --- interface.ccl | 57 ++++++++++++++++++++++++++++++++++++++++++++++++--------- 1 file changed, 48 insertions(+), 9 deletions(-) (limited to 'interface.ccl') diff --git a/interface.ccl b/interface.ccl index 46383d9..a011f14 100644 --- a/interface.ccl +++ b/interface.ccl @@ -10,15 +10,54 @@ USES INCLUDE HEADER: Slab.h CCTK_INT FUNCTION SymmetryRegister (CCTK_STRING IN sym_name) -USES FUNCTION SymmetryRegister +REQUIRES FUNCTION SymmetryRegister -CCTK_INT FUNCTION \ - SymmetryRegisterGrid \ - (CCTK_POINTER IN cctkGH, \ - CCTK_INT IN sym_handle, \ - CCTK_INT IN ARRAY which_faces, \ - CCTK_INT IN ARRAY symmetry_zone_width) -USES FUNCTION SymmetryRegisterGrid +CCTK_INT FUNCTION \ + SymmetryRegisterGrid \ + (CCTK_POINTER IN cctkGH, \ + CCTK_INT IN sym_handle, \ + CCTK_INT IN ARRAY which_faces, \ # array [N_FACES] + CCTK_INT IN ARRAY symmetry_zone_width) # array [N_FACES] +REQUIRES FUNCTION SymmetryRegisterGrid + +CCTK_INT FUNCTION \ + SymmetryRegisterGridInterpolator \ + (CCTK_POINTER IN cctkGH, \ + CCTK_INT IN sym_handle, \ + CCTK_INT CCTK_FPOINTER IN symmetry_interpolate \ + (CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_INT IN N_dims, \ + CCTK_INT IN local_interp_handle, \ + CCTK_INT IN param_table_handle, \ + CCTK_INT IN coord_system_handle, \ + CCTK_INT IN N_interp_points, \ + CCTK_INT IN interp_coords_type, \ + CCTK_POINTER_TO_CONST ARRAY IN interp_coords, \ + CCTK_INT IN N_input_arrays, \ + CCTK_INT ARRAY IN input_array_indices, \ + CCTK_INT IN N_output_arrays, \ + CCTK_INT ARRAY IN output_array_types, \ + CCTK_POINTER ARRAY IN output_arrays, \ + CCTK_INT IN faces)) +REQUIRES FUNCTION SymmetryRegisterGridInterpolator + +CCTK_INT FUNCTION \ + SymmetryInterpolateFaces \ + (CCTK_POINTER_TO_CONST IN cctkGH, \ + CCTK_INT IN N_dims, \ + CCTK_INT IN local_interp_handle, \ + CCTK_INT IN param_table_handle, \ + CCTK_INT IN coord_system_handle, \ + CCTK_INT IN N_interp_points, \ + CCTK_INT IN interp_coords_type, \ + CCTK_POINTER_TO_CONST ARRAY IN interp_coords, \ + CCTK_INT IN N_input_arrays, \ + CCTK_INT ARRAY IN input_array_indices, \ + CCTK_INT IN N_output_arrays, \ + CCTK_INT ARRAY IN output_array_types, \ + CCTK_POINTER ARRAY IN output_arrays, \ + CCTK_INT IN faces) +REQUIRES FUNCTION SymmetryInterpolateFaces @@ -30,4 +69,4 @@ CCTK_INT FUNCTION Boundary_SelectedGVs \ CCTK_INT ARRAY OUT boundary_widths, \ CCTK_INT ARRAY OUT table_handles, \ CCTK_STRING IN bc_name) -USES FUNCTION Boundary_SelectedGVs +REQUIRES FUNCTION Boundary_SelectedGVs -- cgit v1.2.3