diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-03-22 13:57:45 +0100 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-03-22 13:57:45 +0100 |
commit | 849fed51115f17c68df53bb55a5eb9583f44a9e8 (patch) | |
tree | 1cf856f458dead3ca51b6e47cdcb1f6e246c3126 /Examples/WaveHost/src/CaKernel__copy_to_device.code | |
parent | 4c936e035477e154a64435911ecf32446c134e01 (diff) |
Regenerate WaveCaKernel and WaveHost
Diffstat (limited to 'Examples/WaveHost/src/CaKernel__copy_to_device.code')
-rw-r--r-- | Examples/WaveHost/src/CaKernel__copy_to_device.code | 77 |
1 files changed, 0 insertions, 77 deletions
diff --git a/Examples/WaveHost/src/CaKernel__copy_to_device.code b/Examples/WaveHost/src/CaKernel__copy_to_device.code deleted file mode 100644 index 24b4566..0000000 --- a/Examples/WaveHost/src/CaKernel__copy_to_device.code +++ /dev/null @@ -1,77 +0,0 @@ -#undef KRANC_DIFF_FUNCTIONS -#define KRANC_C -#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 SQR(x) ((x) * (x)) -#define CUB(x) ((x) * (x) * (x)) - -CAKERNEL_copy_to_device_Begin - - /* Include user-supplied include files */ - - /* Initialise finite differencing variables */ - CCTK_REAL const dx = params.cagh_dx; - CCTK_REAL const dy = params.cagh_dy; - CCTK_REAL const dz = params.cagh_dz; - CCTK_REAL const dt = params.cagh_dt; - CCTK_REAL const t = params.cagh_time; - CCTK_REAL const dxi = INV(dx); - CCTK_REAL const dyi = INV(dy); - CCTK_REAL const dzi = INV(dz); - CCTK_REAL const khalf = 0.5; - CCTK_REAL const kthird = 1/3.0; - CCTK_REAL const ktwothird = 2.0/3.0; - CCTK_REAL const kfourthird = 4.0/3.0; - CCTK_REAL const keightthird = 8.0/3.0; - CCTK_REAL const hdxi = 0.5 * dxi; - CCTK_REAL const hdyi = 0.5 * dyi; - CCTK_REAL const hdzi = 0.5 * dzi; - - /* Initialize predefined quantities */ - CCTK_REAL const p1o2dx = 0.5*INV(dx); - CCTK_REAL const p1o2dy = 0.5*INV(dy); - CCTK_REAL const p1o2dz = 0.5*INV(dz); - CCTK_REAL const p1odx2 = INV(SQR(dx)); - CCTK_REAL const p1ody2 = INV(SQR(dy)); - CCTK_REAL const p1odz2 = INV(SQR(dz)); - - /* Assign local copies of arrays functions */ - - - - /* Calculate temporaries and arrays functions */ - - /* Copy local copies back to grid functions */ - CAKERNEL_copy_to_device_Computations_Begin - - /* Assign local copies of grid functions */ - - CCTK_REAL phiL = I3D(phi,0,0,0); - CCTK_REAL piL = I3D(pi,0,0,0); - - - /* Include user supplied include files */ - - /* Precompute derivatives */ - - /* Calculate temporaries and grid functions */ - phiL = phiL; - - piL = piL; - - /* Copy local copies back to grid functions */ - I3D(phi,0,0,0) = phiL; - I3D(pi,0,0,0) = piL; - - CAKERNEL_copy_to_device_Computations_End - -CAKERNEL_copy_to_device_End |