diff options
Diffstat (limited to 'ML_WaveToy_CL')
| -rw-r--r-- | ML_WaveToy_CL/src/WT_CL_Gaussian.cc | 2 | ||||
| -rw-r--r-- | ML_WaveToy_CL/src/WT_CL_Standing.cc | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ML_WaveToy_CL/src/WT_CL_Gaussian.cc b/ML_WaveToy_CL/src/WT_CL_Gaussian.cc index 072ced7..5c95c8f 100644 --- a/ML_WaveToy_CL/src/WT_CL_Gaussian.cc +++ b/ML_WaveToy_CL/src/WT_CL_Gaussian.cc @@ -100,7 +100,7 @@ static void WT_CL_Gaussian_Body(cGH const * restrict const cctkGH, int const dir " \n" " /* Calculate temporaries and grid functions */\n" " CCTK_REAL_VEC uL = \n" - " kmul(kexp(kdiv(kmul(kmul(rL,rL),ToReal(-0.5)),ToReal(ScalarSQR(width)))),ToReal(amplitude));\n" + " kmul(kexp(kmul(kmul(kmul(rL,rL),ToReal(-0.5)),ToReal(ScalarINV(ScalarSQR(width))))),ToReal(amplitude));\n" " \n" " CCTK_REAL_VEC rhoL = ToReal(0);\n" " \n" diff --git a/ML_WaveToy_CL/src/WT_CL_Standing.cc b/ML_WaveToy_CL/src/WT_CL_Standing.cc index f63f7f4..dc487d9 100644 --- a/ML_WaveToy_CL/src/WT_CL_Standing.cc +++ b/ML_WaveToy_CL/src/WT_CL_Standing.cc @@ -101,7 +101,7 @@ static void WT_CL_Standing_Body(cGH const * restrict const cctkGH, int const dir " /* Precompute derivatives */\n" " \n" " /* Calculate temporaries and grid functions */\n" - " CCTK_REAL_VEC k = kdiv(ToReal(Pi),ToReal(width));\n" + " CCTK_REAL_VEC k = ToReal(Pi*ScalarINV(width));\n" " \n" " CCTK_REAL_VEC omega = ksqrt(kmul(kmul(k,k),ToReal(3)));\n" " \n" |