1
2
3
4
5
6
7
8
9
10
|
#ifdef FCODE
c
c temporary variables for code in "Scalar_CalcTmunu.inc"
c
CCTK_REAL unu,doi,trei,rr,sum,rr2,aha1,aha2,kkkk,riih,rii2
CCTK_REAL aaaa,bbbb,aaaa1,bbbb1,kkkk1,r3,bass,term1,term2
CCTK_REAL unu1, raz, raz2, razsch2, coefsch, pppsch, unusch
CCTK_REAL treiori
CCTK_REAL star_m, star_r
#endif
|
