diff options
Diffstat (limited to 'Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code')
-rw-r--r-- | Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code b/Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code index 19ecad8..c239ee0 100644 --- a/Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code +++ b/Examples/AdvectCaKernel/src/CaKernel__initial_gaussian.code @@ -3,15 +3,16 @@ #include "Differencing.h" #include "GenericFD.h" +#undef KRANC_GFOFFSET3D #define KRANC_GFOFFSET3D(u,i,j,k) I3D(u,i,j,k) /* Define macros used in calculations */ #define INITVALUE (42) -#define QAD(x) (SQR(SQR(x))) -#define INV(x) ((1.0) / (x)) +#define INV(x) ((CCTK_REAL)1.0 / (x)) #define SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) +#define CUB(x) ((x) * SQR(x)) +#define QAD(x) (SQR(SQR(x))) CAKERNEL_initial_gaussian_Begin |