diff options
Diffstat (limited to 'src/call_derivs.c')
-rw-r--r-- | src/call_derivs.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/call_derivs.c b/src/call_derivs.c index 8b764fb..56b41e4 100644 --- a/src/call_derivs.c +++ b/src/call_derivs.c @@ -128,6 +128,14 @@ void DiffGv ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir, void get_grid_offsets (CCTK_INT *offset); + void CCTK_FCALL CCTK_FNAME(SBP_Poisoning) ( + const CCTK_INT *ni, + const CCTK_INT *nj, + const CCTK_INT *nk, + const CCTK_INT *bb, + const CCTK_INT *offset, + CCTK_REAL *dvar); + ni = cctk_lsh[0]; nj = cctk_lsh[1]; nk = cctk_lsh[2]; if ( table_handle >=0 ) { @@ -297,4 +305,8 @@ void DiffGv ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir, } } } + + if (poison_derivatives) { + CCTK_FNAME(SBP_Poisoning)(&ni,&nj,&nk,bb,offset,dvar); + } } |