From 1a4008dea9ee3fa953732c298d2d77887c83d133 Mon Sep 17 00:00:00 2001
From: allen <allen@b1d164ef-f17a-46e7-89d4-021c7118ef4e>
Date: Fri, 17 May 2002 00:22:44 +0000
Subject: 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
---
 src/macro/LIEG_guts.h         | 4 ++--
 src/macro/LIEK_guts.h         | 4 ++--
 src/macro/STRESSENERGY_guts.h | 8 ++++----
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3