diff options
| author | allen <allen@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2002-05-17 00:22:44 +0000 |
|---|---|---|
| committer | allen <allen@b1d164ef-f17a-46e7-89d4-021c7118ef4e> | 2002-05-17 00:22:44 +0000 |
| commit | 1a4008dea9ee3fa953732c298d2d77887c83d133 (patch) | |
| tree | 8575f1322144dfc67b48711305c5e66d5bfcdb7e /src | |
| parent | 2e052e76dd54bff35cb0d6853689d0153337c5b6 (diff) | |
All comments in macros should be C style
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinBase/ADMMacros/trunk@36 b1d164ef-f17a-46e7-89d4-021c7118ef4e
Diffstat (limited to 'src')
| -rw-r--r-- | src/macro/LIEG_guts.h | 4 | ||||
| -rw-r--r-- | src/macro/LIEK_guts.h | 4 | ||||
| -rw-r--r-- | src/macro/STRESSENERGY_guts.h | 8 |
3 files changed, 8 insertions, 8 deletions
diff --git a/src/macro/LIEG_guts.h b/src/macro/LIEG_guts.h index eabe90f..6376815 100644 --- a/src/macro/LIEG_guts.h +++ b/src/macro/LIEG_guts.h @@ -21,7 +21,7 @@ #ifdef FCODE -c Advection. +/* Advection. */ LIEG_LGXX = 0.0D0 LIEG_LGYY = 0.0D0 @@ -311,7 +311,7 @@ c Advection. end if -c Extra terms in the Lie derivative. +/* Extra terms in the Lie derivative. */ LIEG_LGXX = LIEG_LGXX + 2.0D0*(DXDB_DXDBX*LIEG_GXX & + DXDB_DXDBY*LIEG_GXY + DXDB_DXDBZ*LIEG_GXZ) diff --git a/src/macro/LIEK_guts.h b/src/macro/LIEK_guts.h index 3dea13b..8d16541 100644 --- a/src/macro/LIEK_guts.h +++ b/src/macro/LIEK_guts.h @@ -22,7 +22,7 @@ #ifdef FCODE -c Advection. +/* Advection. */ LIEK_LKXX = 0.0D0 LIEK_LKYY = 0.0D0 @@ -312,7 +312,7 @@ c Advection. end if -c Extra terms in the Lie derivative. +/* Extra terms in the Lie derivative. */ LIEK_LKXX = LIEK_LKXX + 2.0D0*(DXDB_DXDBX*LIEK_KXX & + DXDB_DXDBY*LIEK_KXY + DXDB_DXDBZ*LIEK_KXZ) diff --git a/src/macro/STRESSENERGY_guts.h b/src/macro/STRESSENERGY_guts.h index 565cb90..df120ba 100644 --- a/src/macro/STRESSENERGY_guts.h +++ b/src/macro/STRESSENERGY_guts.h @@ -11,7 +11,7 @@ #ifndef STRESSENERGY_GUTS #define STRESSENERGY_GUTS -c These geometrical quantities are supplied for CalcTmunu +/* These geometrical quantities are supplied for CalcTmunu */ #include "DETG_guts.h" #include "UPPERMET_guts.h" @@ -21,7 +21,7 @@ c These geometrical quantities are supplied for CalcTmunu detg = DETG_DETCG -c Zero the stress-energy tensor +/* Zero the stress-energy tensor */ STRESSENERGY_TTT = 0.0D0; STRESSENERGY_TTX = 0.0D0 STRESSENERGY_TTY = 0.0D0; STRESSENERGY_TTZ = 0.0D0 @@ -30,11 +30,11 @@ c Zero the stress-energy tensor STRESSENERGY_TYZ = 0.0D0; STRESSENERGY_TZZ = 0.0D0 -c Calculate the stress-energy tensor +/* Calculate the stress-energy tensor */ #include "CalcTmunu.inc" -c Calculate the trace of the stress-energy tensor +/* Calculate the trace of the stress-energy tensor */ #include "TRT_guts.h" #endif |