diff options
author | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-31 17:37:57 +0000 |
---|---|---|
committer | diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a> | 2007-10-31 17:37:57 +0000 |
commit | 3d5b284d6cc60be8c2685e2eddcab6b1b4801c3b (patch) | |
tree | 05df99883027aee5c56bd20f8fdd611109c9c59d /src/call_derivs2.c | |
parent | 4fbcf2fd94364cafbf2364ae19a103f62b0ac7d3 (diff) |
Add 8-4 second derivative operators.
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@93 f69c4107-0314-4c4f-9ad4-17e986b73f4a
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"); } |