diff options
Diffstat (limited to 'src/call_derivs2.c')
-rw-r--r-- | src/call_derivs2.c | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/call_derivs2.c b/src/call_derivs2.c index 67f33f8..a216391 100644 --- a/src/call_derivs2.c +++ b/src/call_derivs2.c @@ -59,6 +59,15 @@ void DiffGv2 ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir1, const CCTK_INT *gsize, const CCTK_REAL *delta, CCTK_REAL *dvar2); + void CCTK_FCALL CCTK_FNAME(deriv2_gf_8_4)(const CCTK_REAL *var, + const CCTK_INT *ni, + const CCTK_INT *nj, + const CCTK_INT *nk, + const CCTK_INT *dir, + const CCTK_INT *bb, + const CCTK_INT *gsize, + const CCTK_REAL *delta, + CCTK_REAL *dvar2); void CCTK_FCALL CCTK_FNAME(deriv2_mixed)(const CCTK_POINTER_TO_CONST *cctkGH, const CCTK_INT *dir1, const CCTK_INT *dir2, @@ -133,6 +142,10 @@ void DiffGv2 ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir1, CCTK_FNAME(deriv2_gf_6_3)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,dvar2); break; } + case 8: { + CCTK_FNAME(deriv2_gf_8_4)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,dvar2); + break; + } default: CCTK_WARN (0, "Unknown 2nd derivative stencil specified"); } @@ -150,6 +163,10 @@ void DiffGv2 ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir1, CCTK_FNAME(deriv2_gf_6_3)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,dvar2); break; } + case 8: { + CCTK_FNAME(deriv2_gf_8_4)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,dvar2); + break; + } default: CCTK_WARN (0, "Unknown stencil specified"); } |