src/include/Scalar_CalcTmunu_temps.inc


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,kkkk
        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