diff options
author | allen <allen@5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7> | 1999-06-15 09:03:53 +0000 |
---|---|---|
committer | allen <allen@5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7> | 1999-06-15 09:03:53 +0000 |
commit | 02288ab35f484eebd60602e6956a49b63c302213 (patch) | |
tree | 7989ecf3147c794098146ca87f02879046be49ea /src/planewaves.F | |
parent | 8481aeb71059208f633acf8ac6d8299e419a2131 (diff) |
Double -> CCTK_REAL
REAL -> CCTK_REAL
POINTER -> CCTK_POINTER
VARIABLE_REAL -> CCTK_VARIABLE_REAL (etc)
GH->iteration is now an int (not an unsigned long int)
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDLinearWaves/trunk@15 5c0f84ea-6048-4d6e-bfa4-55cd5f2e0dd7
Diffstat (limited to 'src/planewaves.F')
-rw-r--r-- | src/planewaves.F | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/planewaves.F b/src/planewaves.F index 4582e55..ca9ed34 100644 --- a/src/planewaves.F +++ b/src/planewaves.F @@ -48,14 +48,14 @@ c Using macro definitions from Einstein DECLARE_PARAMETERS INTEGER iin,iout - REAL pi - REAL ra,the,phi - REAL wave,wavep - REAL kx,ky,kz,w - REAL kxp,kyp,kzp,wp + CCTK_REAL pi + CCTK_REAL ra,the,phi + CCTK_REAL wave,wavep + CCTK_REAL kx,ky,kz,w + CCTK_REAL kxp,kyp,kzp,wp c local arrays (scalars! Man, what a sweat!) - REAL plus,minus,plusp,minusp,ain,aout + CCTK_REAL plus,minus,plusp,minusp,ain,aout INTEGER i,j,k |