diff options
author | knarf <knarf@e296648e-0e4f-0410-bd07-d597d9acff87> | 2007-07-03 15:26:54 +0000 |
---|---|---|
committer | knarf <knarf@e296648e-0e4f-0410-bd07-d597d9acff87> | 2007-07-03 15:26:54 +0000 |
commit | 9449ad7d9dad01deb2201bddce59ad7027890262 (patch) | |
tree | 863bc21a21aa36012514be2df2263af4c276b9b7 | |
parent | 315e93586c7e10ee26fac62894391de470134856 (diff) |
make these includes available only to Fortran, because
a C version does not exist and the fortran version obviously
do not compile under C
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@249 e296648e-0e4f-0410-bd07-d597d9acff87
-rw-r--r-- | src/include/Scalar_CalcTmunu.inc | 2 | ||||
-rw-r--r-- | src/include/Scalar_CalcTmunu_temps.inc | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/src/include/Scalar_CalcTmunu.inc b/src/include/Scalar_CalcTmunu.inc index e4ae8da..d2a7643 100644 --- a/src/include/Scalar_CalcTmunu.inc +++ b/src/include/Scalar_CalcTmunu.inc @@ -1,3 +1,4 @@ +#ifdef FCODE C Here we added the matter variables for several of the metrics C you can find in "src" directory through the components of the C stress-eergy tensor. Being different in specific cases it is @@ -349,3 +350,4 @@ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc else call CCTK_WARN(0,"Unknown value of Exact::decoded_exact_model") endif +#endif diff --git a/src/include/Scalar_CalcTmunu_temps.inc b/src/include/Scalar_CalcTmunu_temps.inc index 2832e6b..0bbcf7e 100644 --- a/src/include/Scalar_CalcTmunu_temps.inc +++ b/src/include/Scalar_CalcTmunu_temps.inc @@ -1,3 +1,4 @@ +#ifdef FCODE c c temporary variables for code in "Scalar_CalcTmunu.inc" c @@ -6,3 +7,4 @@ c CCTK_REAL unu1, raz, raz2, razsch2, coefsch, pppsch, unusch CCTK_REAL treiori CCTK_REAL star_m, star_r +#endif |