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 | |
| 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
| -rw-r--r-- | src/planewaves.F | 12 | ||||
| -rw-r--r-- | src/teukwaves.F | 24 |
2 files changed, 18 insertions, 18 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 diff --git a/src/teukwaves.F b/src/teukwaves.F index cdb83c4..add3423 100644 --- a/src/teukwaves.F +++ b/src/teukwaves.F @@ -38,29 +38,29 @@ c Using macro definitions from Einstein DECLARE_PARAMETERS - REAL amp,m,ra,pi - REAL wave,wave2,wave3,wave4,wave5,wave6,wave7,wave8 + CCTK_REAL amp,m,ra,pi + CCTK_REAL wave,wave2,wave3,wave4,wave5,wave6,wave7,wave8 INTEGER ipacket,iparity INTEGER ingoing,outgoing - REAL kappa + CCTK_REAL kappa c point values of x.y z,r - REAL xp,yp,zp,rp + CCTK_REAL xp,yp,zp,rp c spherical metric - REAL teuk_grr,teuk_grt,teuk_grp,teuk_gtt,teuk_gtp,teuk_gpp - REAL teuk_hrr,teuk_hrt,teuk_hrp,teuk_htt,teuk_htp,teuk_hpp + CCTK_REAL teuk_grr,teuk_grt,teuk_grp,teuk_gtt,teuk_gtp,teuk_gpp + CCTK_REAL teuk_hrr,teuk_hrt,teuk_hrp,teuk_htt,teuk_htp,teuk_hpp c special coefficeints needed for teukolsky waves c All these were 3d arrays in old versions of Newage,G,etc.. c uffff.... - REAL teuk_tp,teuk_tn - REAL tp2,tn2,fp,fn,fpa,fna,fpb,fnb,fpc,fnc,fpd,fnd,fpe,fne - REAL ca,cb,cc,ck,cl,frr,frt,frp,ftt1,ftt2,ftp,fpp1,fpp2 - REAL cadot,cbdot,ccdot,ckdot,cldot - REAL drt,drp,dtt,dtp,dpp,sint,cost,sinp,cosp,tmp + CCTK_REAL teuk_tp,teuk_tn + CCTK_REAL tp2,tn2,fp,fn,fpa,fna,fpb,fnb,fpc,fnc,fpd,fnd,fpe,fne + CCTK_REAL ca,cb,cc,ck,cl,frr,frt,frp,ftt1,ftt2,ftp,fpp1,fpp2 + CCTK_REAL cadot,cbdot,ccdot,ckdot,cldot + CCTK_REAL drt,drp,dtt,dtp,dpp,sint,cost,sinp,cosp,tmp c from old spheretocart - REAL drx,dry,drz,dtx,dty,dtz,dpx,dpy,dpz + CCTK_REAL drx,dry,drz,dtx,dty,dtz,dpx,dpy,dpz INTEGER i,j,k |