diff options
-rw-r--r-- | src/call_up_derivs.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/src/call_up_derivs.c b/src/call_up_derivs.c index 2189e3f..e6f5afa 100644 --- a/src/call_up_derivs.c +++ b/src/call_up_derivs.c @@ -6,7 +6,7 @@ #include "util_Table.h" void DiffUpGv ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir, - const CCTK_INT up, const CCTK_REAL *var, CCTK_REAL *dvar, + const CCTK_REAL *var, CCTK_REAL *dvar, const CCTK_REAL *up, const CCTK_INT table_handle ) { cGH const * restrict const cctkGH = cctkGH_; @@ -29,7 +29,7 @@ void DiffUpGv ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir, const CCTK_INT *bb, const CCTK_INT *gsize, const CCTK_REAL *delta, - const CCTK_INT *up, + const CCTK_REAL *up, CCTK_REAL *dvar); void CCTK_FCALL CCTK_FNAME(up_deriv_gf_4_2)(const CCTK_REAL *var, const CCTK_INT *ni, @@ -39,7 +39,7 @@ void DiffUpGv ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir, const CCTK_INT *bb, const CCTK_INT *gsize, const CCTK_REAL *delta, - const CCTK_INT *up, + const CCTK_REAL *up, CCTK_REAL *dvar); void CCTK_FCALL CCTK_FNAME(up_deriv_gf_6_3_opt)(const CCTK_REAL *var, const CCTK_INT *ni, @@ -49,7 +49,7 @@ void DiffUpGv ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir, const CCTK_INT *bb, const CCTK_INT *gsize, const CCTK_REAL *delta, - const CCTK_INT *up, + const CCTK_REAL *up, CCTK_REAL *dvar); void CCTK_FCALL CCTK_FNAME(up_deriv_gf_8_4_opt)(const CCTK_REAL *var, const CCTK_INT *ni, @@ -59,7 +59,7 @@ void DiffUpGv ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir, const CCTK_INT *bb, const CCTK_INT *gsize, const CCTK_REAL *delta, - const CCTK_INT *up, + const CCTK_REAL *up, CCTK_REAL *dvar); @@ -142,11 +142,11 @@ void DiffUpGv ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir, if ( CCTK_Equals(operator_type,"Minimal Bandwidth") ) { switch(loc_order) { case 2: { - CCTK_FNAME(up_deriv_gf_2_1)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,&up,dvar); + CCTK_FNAME(up_deriv_gf_2_1)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,up,dvar); break; } case 4: { - CCTK_FNAME(up_deriv_gf_4_2)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,&up,dvar); + CCTK_FNAME(up_deriv_gf_4_2)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,up,dvar); break; } default: @@ -155,19 +155,19 @@ void DiffUpGv ( const CCTK_POINTER_TO_CONST cctkGH_, const CCTK_INT dir, } else { switch(loc_order) { case 2: { - CCTK_FNAME(up_deriv_gf_2_1)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,&up,dvar); + CCTK_FNAME(up_deriv_gf_2_1)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,up,dvar); break; } case 4: { - CCTK_FNAME(up_deriv_gf_4_2)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,&up,dvar); + CCTK_FNAME(up_deriv_gf_4_2)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,up,dvar); break; } case 6: { - CCTK_FNAME(up_deriv_gf_6_3_opt)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,&up,dvar); + CCTK_FNAME(up_deriv_gf_6_3_opt)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,up,dvar); break; } case 8: { - CCTK_FNAME(up_deriv_gf_8_4_opt)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,&up,dvar); + CCTK_FNAME(up_deriv_gf_8_4_opt)(var,&ni,&nj,&nk,&dir,bb,&gsize,&delta,up,dvar); break; } default: |