diff options
Diffstat (limited to 'src/get_offset.c')
| -rw-r--r-- | src/get_offset.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/get_offset.c b/src/get_offset.c index c955681..ed2b024 100644 --- a/src/get_offset.c +++ b/src/get_offset.c @@ -14,7 +14,6 @@ void get_shiftout ( const CCTK_POINTER_TO_CONST cctkGH_, cGH const * restrict const cctkGH = cctkGH_; DECLARE_CCTK_PARAMETERS - DECLARE_CCTK_ARGUMENTS int i; CCTK_INT nboundaryzones[6]; @@ -45,6 +44,15 @@ void get_shiftout ( const CCTK_POINTER_TO_CONST cctkGH_, } /*** + * And it's fortran callable version... + */ +void CCTK_FCALL CCTK_FNAME(get_shiftout)( const CCTK_POINTER_TO_CONST cctkGH_, + CCTK_INT *shiftout ) +{ + get_shiftout ( cctkGH_, shiftout ); +} + +/*** * This function returns the effective values of local index ranges, * taking into account ghost zones and boundary_shiftout_* values. * If the use_shiftout=no, boundary offsets are set to zero. |