Change the commented out debugging statements to ifdef'd out.

Remove old, buggy commented out stuff.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/MoL/trunk@6 578cdeb0-5ea1-4b81-8215-5a3b8777ee0b

1 files changed, 16 insertions, 27 deletions

diff --git a/src/GenericRK.c b/src/GenericRK.c
index 12209e9..939faa3 100644
--- a/src/GenericRK.c
+++ b/src/GenericRK.c
@@ -91,33 +91,22 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
     RHSVar = (CCTK_REAL *)CCTK_VarDataPtrI(cctkGH, 0, 
                                            RHSVariableIndex[var]);
 
-    /*
+#ifdef MOLDEBUG
     printf("In generic RK. Variable %d (%s). RHS %d (%s).\n",
            EvolvedVariableIndex[var],
            CCTK_VarName(EvolvedVariableIndex[var]),
            RHSVariableIndex[var],
            CCTK_VarName(RHSVariableIndex[var]));
-    */
+#endif
 
     for (index = 0; index < totalsize; index++)
     {
       UpdateVar[index] = (*Original_Delta_Time) * beta * RHSVar[index];
-      /*      UpdateVar[index] = CCTK_DELTA_TIME * beta * RHSVar[index];*/
-      /*      UpdateVar[index] = CCTK_DELTA_TIME * RHSVar[index];*/
-      /*
+#ifdef MOLDEBUG
       printf("Variable: %d. Index: %d. dt: %f. beta %f. RHS: %f. q: %f.\n",
-            var, index, (*Original_Delta_Time), beta, RHSVar[index], 
+             var, index, (*Original_Delta_Time), beta, RHSVar[index], 
              UpdateVar[index]);
-      */
-      /*
-      if (EvolvedVariableIndex[var]==CCTK_VarIndex("admbase::alp"))
-      {
-        
-        printf("RK: Index: %d. dt: %f. beta %f. RHS: %f (%s). q: %f.\n",
-            index, (*Original_Delta_Time), beta, RHSVar[index], 
-               CCTK_VarName(RHSVariableIndex[var]),UpdateVar[index]);
-      }
-      */
+#endif
     }
     
     for (scratchstep = 0; 
@@ -134,11 +123,11 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
       {
         ScratchVar = &ScratchSpace[(var * MoL_Num_Scratch_Levels + 
                                    scratchindex) * totalsize];
-        /*
+#ifdef MOLDEBUG
         printf("Reading from scratch space, initial address %ld index %d\n", 
                ScratchVar, (var * MoL_Num_Scratch_Levels + 
                             scratchindex) * totalsize);
-        */
+#endif
       }
       else
       {
@@ -151,10 +140,10 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
         for (index = 0; index < totalsize; index++)
         {
           UpdateVar[index] += alpha * ScratchVar[index];
-          /*    
+#ifdef MOLDEBUG
           printf("Variable: %d. Index: %d. step: %d. alpha: %f. Scratch: %f. q: %f.\n",
-            var, index, (*MoL_Intermediate_Step), alpha, ScratchVar[index], UpdateVar[index]);
-          */
+                 var, index, (*MoL_Intermediate_Step), alpha, ScratchVar[index], UpdateVar[index]);
+#endif
         }
       }
       
@@ -171,19 +160,19 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
       ScratchVar = &ScratchSpace[(var * MoL_Num_Scratch_Levels + 
                                  MoL_Intermediate_Steps -
                                  (*MoL_Intermediate_Step)) * totalsize];
-      /*
+#ifdef MOLDEBUG
       printf("Writing to scratch space, initial address %ld, index %d \n", 
              ScratchVar, (var * MoL_Num_Scratch_Levels + 
-                                 MoL_Intermediate_Steps -
-                                 (*MoL_Intermediate_Step)) * totalsize);
-      */  
+                          MoL_Intermediate_Steps -
+                          (*MoL_Intermediate_Step)) * totalsize);
+#endif
       for (index = 0; index < totalsize; index++)
       {
         ScratchVar[index] = UpdateVar[index];
-        /*
+#ifdef MOLDEBUG
         printf("Variable: %d. Index: %d. step: %d. Scratch: %f.\n",
                var, index, (*MoL_Intermediate_Step), ScratchVar[index]);
-        */
+#endif        
       }
     }
   }