From 79e94f35fe2d6ee03652166f3c6405802171492c Mon Sep 17 00:00:00 2001 From: korobkin Date: Tue, 29 Apr 2008 16:46:25 +0000 Subject: (+) get_offset.c git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@107 f69c4107-0314-4c4f-9ad4-17e986b73f4a --- src/get_offset.c | 38 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 src/get_offset.c diff --git a/src/get_offset.c b/src/get_offset.c new file mode 100644 index 0000000..d1a35d9 --- /dev/null +++ b/src/get_offset.c @@ -0,0 +1,38 @@ +#include "cctk.h" +#include "cctk_Arguments.h" +#include "cctk_Functions.h" +#include "cctk_Parameters.h" + +void CCTK_FCALL CCTK_FNAME(get_grid_offsets) (CCTK_INT *offset) { + + DECLARE_CCTK_PARAMETERS; + + int i, type; + + const CCTK_INT* shiftout_x_lower = (const CCTK_INT*) CCTK_ParameterGet ( "boundary_shiftout_x_lower", "coordbase", &type ); + if (shiftout_x_lower != NULL ) { + offset[0] = *shiftout_x_lower; + } + const CCTK_INT* shiftout_x_upper = (const CCTK_INT*) CCTK_ParameterGet ( "boundary_shiftout_x_upper", "coordbase", &type ); + if (shiftout_x_upper != NULL ) { + offset[1] = *shiftout_x_upper; + } + const CCTK_INT* shiftout_y_lower = (const CCTK_INT*) CCTK_ParameterGet ( "boundary_shiftout_y_lower", "coordbase", &type ); + if (shiftout_y_lower != NULL ) { + offset[2] = *shiftout_y_lower; + } + const CCTK_INT* shiftout_y_upper = (const CCTK_INT*) CCTK_ParameterGet ( "boundary_shiftout_y_upper", "coordbase", &type ); + if (shiftout_y_upper != NULL ) { + offset[3] = *shiftout_y_upper; + } + const CCTK_INT* shiftout_z_lower = (const CCTK_INT*) CCTK_ParameterGet ( "boundary_shiftout_z_lower", "coordbase", &type ); + if (shiftout_z_lower != NULL ) { + offset[4] = *shiftout_z_lower; + } + const CCTK_INT* shiftout_z_upper = (const CCTK_INT*) CCTK_ParameterGet ( "boundary_shiftout_z_upper", "coordbase", &type ); + if (shiftout_z_upper != NULL ) { + offset[5] = *shiftout_z_upper; + } + + +} -- cgit v1.2.3