From 02288ab35f484eebd60602e6956a49b63c302213 Mon Sep 17 00:00:00 2001 From: allen Date: Tue, 15 Jun 1999 09:03:53 +0000 Subject: 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 --- src/planewaves.F | 12 ++++++------ 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 -- cgit v1.2.3