#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