Formatting changes only.

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

1 files changed, 369 insertions, 132 deletions

diff --git a/src/Registration.c b/src/Registration.c
index 2d851c3..eed54e5 100644
--- a/src/Registration.c
+++ b/src/Registration.c
@@ -170,7 +170,8 @@ CCTK_INT MoL_RegisterEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
               }
             default:
               {
-                CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable '%s' is not a GF or an array", 
+                CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                           "The variable '%s' is not a GF or an array", 
                            CCTK_VarName(EvolvedIndex));
                 retval++;
                 break;
@@ -198,7 +199,8 @@ CCTK_INT MoL_RegisterEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
               }
             default:
               {
-                CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable '%s' is not a GF or an array", 
+                CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                           "The variable '%s' is not a GF or an array", 
                            CCTK_VarName(EvolvedIndex));
                 retval++;
                 break;
@@ -208,7 +210,8 @@ CCTK_INT MoL_RegisterEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
         }
       default:
         {
-          CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable '%s' is neither REAL nor COMPLEX.", 
+          CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                     "The variable '%s' is neither REAL nor COMPLEX.", 
                      CCTK_VarName(EvolvedIndex));
           retval++;
           break;
@@ -274,7 +277,8 @@ CCTK_INT MoL_RegisterConstrained(CCTK_INT ConstrainedIndex)
             }
           default:
             {
-              CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable '%s' is not a GF or an array", 
+              CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                         "The variable '%s' is not a GF or an array", 
                          CCTK_VarName(ConstrainedIndex));
               retval++;
               break;
@@ -300,7 +304,8 @@ CCTK_INT MoL_RegisterConstrained(CCTK_INT ConstrainedIndex)
             }
           default:
             {
-              CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable '%s' is not a GF or an array", 
+              CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                         "The variable '%s' is not a GF or an array", 
                          CCTK_VarName(ConstrainedIndex));
               retval++;
               break;
@@ -310,7 +315,8 @@ CCTK_INT MoL_RegisterConstrained(CCTK_INT ConstrainedIndex)
       }
     default:
       {
-        CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable '%s' is neither REAL nor COMPLEX.", 
+        CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                   "The variable '%s' is neither REAL nor COMPLEX.", 
                    CCTK_VarName(ConstrainedIndex));
         retval++;
         break;
@@ -373,7 +379,8 @@ CCTK_INT MoL_RegisterSaveAndRestore(CCTK_INT SandRIndex)
             }
           default:
             {
-              CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable '%s' is not a GF or an array", 
+              CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                         "The variable '%s' is not a GF or an array", 
                          CCTK_VarName(SandRIndex));
               retval++;
               break;
@@ -399,7 +406,8 @@ CCTK_INT MoL_RegisterSaveAndRestore(CCTK_INT SandRIndex)
             }
           default:
             {
-              CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable '%s' is not a GF or an array", 
+              CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                         "The variable '%s' is not a GF or an array", 
                          CCTK_VarName(SandRIndex));
               retval++;
               break;
@@ -409,7 +417,8 @@ CCTK_INT MoL_RegisterSaveAndRestore(CCTK_INT SandRIndex)
       }
     default:
       {
-        CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable '%s' is neither REAL nor COMPLEX.", 
+        CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                   "The variable '%s' is neither REAL nor COMPLEX.", 
                    CCTK_VarName(SandRIndex));
         retval++;
         break;
@@ -459,7 +468,8 @@ CCTK_INT MoL_RegisterEvolvedGroup(CCTK_INT EvolvedGroupIndex,
             }
           default:
             {
-              CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The group '%s' is not a GF or an array", 
+              CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                         "The group '%s' is not a GF or an array", 
                          CCTK_GroupName(EvolvedGroupIndex));
               retval++;
               break;
@@ -487,7 +497,8 @@ CCTK_INT MoL_RegisterEvolvedGroup(CCTK_INT EvolvedGroupIndex,
             }
           default:
             {
-              CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The group '%s' is not a GF or an array", 
+              CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                         "The group '%s' is not a GF or an array", 
                          CCTK_GroupName(EvolvedGroupIndex));
               retval++;
               break;
@@ -497,7 +508,8 @@ CCTK_INT MoL_RegisterEvolvedGroup(CCTK_INT EvolvedGroupIndex,
       }
     default:
       {
-        CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The group '%s' is neither REAL nor COMPLEX.", 
+        CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                   "The group '%s' is neither REAL nor COMPLEX.", 
                    CCTK_GroupName(EvolvedGroupIndex));
         retval++;
         break;
@@ -545,7 +557,8 @@ CCTK_INT MoL_RegisterConstrainedGroup(CCTK_INT ConstrainedGroupIndex)
             }
           default:
             {
-              CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The group '%s' is not a GF or an array", 
+              CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                         "The group '%s' is not a GF or an array", 
                          CCTK_GroupName(ConstrainedGroupIndex));
               retval++;
               break;
@@ -571,7 +584,8 @@ CCTK_INT MoL_RegisterConstrainedGroup(CCTK_INT ConstrainedGroupIndex)
             }
           default:
             {
-              CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The group '%s' is not a GF or an array", 
+              CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                         "The group '%s' is not a GF or an array", 
                          CCTK_GroupName(ConstrainedGroupIndex));
               retval++;
               break;
@@ -581,7 +595,8 @@ CCTK_INT MoL_RegisterConstrainedGroup(CCTK_INT ConstrainedGroupIndex)
       }
     default:
       {
-        CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The group '%s' is neither REAL nor COMPLEX.", 
+        CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                   "The group '%s' is neither REAL nor COMPLEX.", 
                    CCTK_GroupName(ConstrainedGroupIndex));
         retval++;
         break;
@@ -628,7 +643,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreGroup(CCTK_INT SandRGroupIndex)
             }
           default:
             {
-              CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The group '%s' is not a GF or an array", 
+              CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                         "The group '%s' is not a GF or an array", 
                          CCTK_GroupName(SandRGroupIndex));
               retval++;
               break;
@@ -654,7 +670,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreGroup(CCTK_INT SandRGroupIndex)
             }
           default:
             {
-              CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The group '%s' is not a GF or an array", 
+              CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                         "The group '%s' is not a GF or an array", 
                          CCTK_GroupName(SandRGroupIndex));
               retval++;
               break;
@@ -664,7 +681,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreGroup(CCTK_INT SandRGroupIndex)
       }
     default:
       {
-        CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The group '%s' is neither REAL nor COMPLEX.", 
+        CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+                   "The group '%s' is neither REAL nor COMPLEX.", 
                    CCTK_GroupName(SandRGroupIndex));
         retval++;
         break;
@@ -713,25 +731,33 @@ CCTK_INT MoL_RegisterEvolvedReal(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
 
   if (!(CCTK_GroupTypeFromVarI(EvolvedIndex)==CCTK_GF))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a GF and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not a GF and so should "
+               "not be registered with MoLRegisterEvolved.", 
                CCTK_VarName(EvolvedIndex)); 
   }
 
   if (!(CCTK_GroupTypeFromVarI(RHSIndex)==CCTK_GF))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The rhs variable %s is not a GF and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The rhs variable %s is not a GF and so should "
+               "not be registered with MoLRegisterEvolved.", 
                CCTK_VarName(RHSIndex)); 
   }    
 
   if (!(CCTK_VarTypeI(EvolvedIndex)==CCTK_VARIABLE_REAL))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_REAL and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not of type CCTK_REAL and so "
+               "should not be registered with MoLRegisterEvolved.", 
                CCTK_VarName(EvolvedIndex)); 
   }
 
   if (!(CCTK_VarTypeI(RHSIndex)==CCTK_VARIABLE_REAL))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The rhs variable %s is not of type CCTK_REAL and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The rhs variable %s is not of type CCTK_REAL and "
+               "so should not be registered with MoLRegisterEvolved.", 
                CCTK_VarName(RHSIndex)); 
   }
 
@@ -740,14 +766,18 @@ CCTK_INT MoL_RegisterEvolvedReal(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
   
   if ( (numtimelevs1 < 0) || (numtimelevs2 < 0) ) 
   {
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for variable index %i", EvolvedIndex); 
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for variable index %i", EvolvedIndex); 
     CCTK_WARN(0, "The index passed does not correspond to a GF.");
   }
 
   if (numtimelevs1 < 2)
   {
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for variable index %i name %s", EvolvedIndex, CCTK_VarName(EvolvedIndex));
-    CCTK_WARN(0, "The GF passed only has one timelevel. It must have at least two.");
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for variable index %i name %s", 
+               EvolvedIndex, CCTK_VarName(EvolvedIndex));
+    CCTK_WARN(0, "The GF passed only has one timelevel. "
+              "It must have at least two.");
   }
 
   varused = 0;
@@ -765,7 +795,9 @@ CCTK_INT MoL_RegisterEvolvedReal(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
   {
 
     CCTK_VWarn(2,__LINE__,__FILE__,"MoL",
-               "The GF %s has already been registered as an evolved variable with RHS GF %s. The attempt to register with RHS GF %s will be ignored",
+               "The GF %s has already been registered "
+               "as an evolved variable with RHS GF %s. "
+               "The attempt to register with RHS GF %s will be ignored",
                CCTK_VarName(EvolvedIndex),
                CCTK_VarName(RHSVariableIndex[index-1]),
                CCTK_VarName(RHSIndex));
@@ -787,7 +819,10 @@ CCTK_INT MoL_RegisterEvolvedReal(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
 
     if (MoLNumEvolvedVariables > MoL_Num_Evolved_Vars)
     {
-      CCTK_WARN(0,"You have tried to register more evolved variables than the accumulator parameter MoL_Num_Evolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+      CCTK_WARN(0,"You have tried to register more evolved "
+                "variables than the accumulator parameter "
+                "MoL_Num_Evolved_Variables allows. Check that "
+                "you are accumulating onto this parameter correctly");
     }
 
   }
@@ -854,13 +889,17 @@ CCTK_INT MoL_RegisterConstrainedReal(CCTK_INT ConstrainedIndex)
 
   if (!(CCTK_GroupTypeFromVarI(ConstrainedIndex)==CCTK_GF))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a GF and so should not be registered with MoLRegisterConstrained.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is "
+               "not a GF and so should not be registered with "
+               "MoLRegisterConstrained.", 
                CCTK_VarName(ConstrainedIndex)); 
   }
 
   if (!(CCTK_VarTypeI(ConstrainedIndex)==CCTK_VARIABLE_REAL))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_REAL and so should not be registered with MoLRegisterConstrained.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is "
+               "not of type CCTK_REAL and so should not be "
+               "registered with MoLRegisterConstrained.", 
                CCTK_VarName(ConstrainedIndex)); 
   }
   
@@ -868,7 +907,8 @@ CCTK_INT MoL_RegisterConstrainedReal(CCTK_INT ConstrainedIndex)
 
   if (numtimelevs < 1) {
 
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for constrained variable index %i", ConstrainedIndex);
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for "
+               "constrained variable index %i", ConstrainedIndex);
     CCTK_WARN(0, "The index passed does not correspond to a GF.");
 
   }
@@ -876,12 +916,14 @@ CCTK_INT MoL_RegisterConstrainedReal(CCTK_INT ConstrainedIndex)
     
     varused = 0;
     
-    for (evolved = 0; (evolved < MoLNumEvolvedVariables)&&(!varused); evolved++)
+    for (evolved = 0; (evolved < MoLNumEvolvedVariables)&&(!varused); 
+         evolved++)
     {
       varused = (EvolvedVariableIndex[evolved] == ConstrainedIndex);
     }
     
-    for (evolved = 0; (evolved < MoLNumConstrainedVariables)&&(!varused); evolved++)
+    for (evolved = 0; (evolved < MoLNumConstrainedVariables)&&(!varused); 
+         evolved++)
     {
       varused = (ConstrainedVariableIndex[evolved] == ConstrainedIndex);
     }
@@ -893,7 +935,11 @@ CCTK_INT MoL_RegisterConstrainedReal(CCTK_INT ConstrainedIndex)
 
       if (MoLNumConstrainedVariables > MoL_Num_Constrained_Vars)
       {
-        CCTK_WARN(0,"You have tried to register more evolved variables than the accumulator parameter MoL_Num_Evolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+        CCTK_WARN(0,"You have tried to register more evolved "
+                  "variables than the accumulator parameter "
+                  "MoL_Num_Evolved_Variables allows. "
+                  "Check that you are accumulating onto this "
+                  "parameter correctly");
       }
 
     }
@@ -919,7 +965,9 @@ CCTK_INT MoL_RegisterConstrainedReal(CCTK_INT ConstrainedIndex)
   {
     
     CCTK_VInfo(CCTK_THORNSTRING,
-               "MoL will not treat variable %s as a constrained variable at it has only one timelevel. This should not cause problems with the evolution.\n", 
+               "MoL will not treat variable %s as a constrained "
+               "variable at it has only one timelevel. This should "
+               "not cause problems with the evolution.\n", 
                CCTK_VarName(ConstrainedIndex));
 
   }
@@ -952,13 +1000,17 @@ CCTK_INT MoL_RegisterSaveAndRestoreReal(CCTK_INT SandRIndex)
 
   if (!(CCTK_GroupTypeFromVarI(SandRIndex)==CCTK_GF))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a GF and so should not be registered with MoLRegisterSaveAndRestore.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not "
+               "a GF and so should not be registered with "
+               "MoLRegisterSaveAndRestore.", 
                CCTK_VarName(SandRIndex)); 
   }
 
   if (!(CCTK_VarTypeI(SandRIndex)==CCTK_VARIABLE_REAL))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_REAL and so should not be registered with MoLRegisterSaveAndRestore.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is "
+               "not of type CCTK_REAL and so should not be "
+               "registered with MoLRegisterSaveAndRestore.", 
                CCTK_VarName(SandRIndex)); 
   }
   
@@ -966,7 +1018,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreReal(CCTK_INT SandRIndex)
 
   if (numtimelevs < 1) {
 
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for save and restore variable index %i", SandRIndex);
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for save "
+               "and restore variable index %i", SandRIndex);
     CCTK_WARN(0, "The index passed does not correspond to a GF.");
 
   }
@@ -974,12 +1027,14 @@ CCTK_INT MoL_RegisterSaveAndRestoreReal(CCTK_INT SandRIndex)
     
     varused = 0;
     
-    for (evolved = 0; (evolved < MoLNumEvolvedVariables)&&(!varused); evolved++)
+    for (evolved = 0; (evolved < MoLNumEvolvedVariables)&&(!varused); 
+         evolved++)
     {
       varused = (EvolvedVariableIndex[evolved] == SandRIndex);
     }
     
-    for (evolved = 0; (evolved < MoLNumConstrainedVariables)&&(!varused); evolved++)
+    for (evolved = 0; (evolved < MoLNumConstrainedVariables)&&(!varused); 
+         evolved++)
     {
       varused = (ConstrainedVariableIndex[evolved] == SandRIndex);
     }
@@ -996,7 +1051,10 @@ CCTK_INT MoL_RegisterSaveAndRestoreReal(CCTK_INT SandRIndex)
 
       if (MoLNumSandRVariables > MoL_Num_SaveAndRestore_Vars)
       {
-        CCTK_WARN(0,"You have tried to register more evolved variables than the accumulator parameter MoL_Num_Evolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+        CCTK_WARN(0,"You have tried to register more evolved "
+                  "variables than the accumulator parameter "
+                  "MoL_Num_Evolved_Variables allows. Check "
+                  "that you are accumulating onto this parameter correctly");
       }
 
     }
@@ -1006,7 +1064,9 @@ CCTK_INT MoL_RegisterSaveAndRestoreReal(CCTK_INT SandRIndex)
   {
     
     CCTK_VInfo(CCTK_THORNSTRING,
-               "MoL will not treat variable %s as a save and restore variable at it has only one timelevel. This should not cause problems with the evolution.\n", 
+               "MoL will not treat variable %s as a save and "
+               "restore variable at it has only one timelevel. "
+               "This should not cause problems with the evolution.\n", 
                CCTK_VarName(SandRIndex));
 
   }
@@ -1016,7 +1076,7 @@ CCTK_INT MoL_RegisterSaveAndRestoreReal(CCTK_INT SandRIndex)
 }
 
 CCTK_INT MoL_RegisterEvolvedRealGroup(CCTK_INT EvolvedGroupIndex, 
-                                 CCTK_INT RHSGroupIndex)
+                                      CCTK_INT RHSGroupIndex)
 {
 
   CCTK_INT EvolvedGroupFirstVar, RHSGroupFirstVar, GroupNumVars, retval;
@@ -1042,7 +1102,9 @@ CCTK_INT MoL_RegisterEvolvedRealGroup(CCTK_INT EvolvedGroupIndex,
   if (CCTK_NumVarsInGroupI(RHSGroupIndex) != GroupNumVars)
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
-               "There are a different number of variables in evolved group %d and RHS group %d.", EvolvedGroupIndex, RHSGroupIndex);
+               "There are a different number of variables in "
+               "evolved group %d and RHS group %d.", 
+               EvolvedGroupIndex, RHSGroupIndex);
   }
   
   retval = 0;
@@ -1136,31 +1198,41 @@ CCTK_INT MoL_RegisterEvolvedComplex(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
 
   if (!(CCTK_GroupTypeFromVarI(EvolvedIndex)==CCTK_GF))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a GF and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is "
+               "not a GF and so should not be registered with "
+               "MoLRegisterEvolved.", 
                CCTK_VarName(EvolvedIndex)); 
   }
 
   if (!(CCTK_GroupTypeFromVarI(RHSIndex)==CCTK_GF))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The rhs variable %s is not a GF and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The rhs variable %s is "
+               "not a GF and so should not be registered with "
+               "MoLRegisterEvolved.", 
                CCTK_VarName(RHSIndex)); 
   }    
 
   if (!(CCTK_VarTypeI(EvolvedIndex)==CCTK_VARIABLE_REAL))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_REAL and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is "
+               "not of type CCTK_REAL and so should not be "
+               "registered with MoLRegisterEvolved.", 
                CCTK_VarName(EvolvedIndex)); 
   }
 
   if (!(CCTK_VarTypeI(EvolvedIndex)==CCTK_VARIABLE_COMPLEX))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_COMPLEX and so should not be registered with MoLRegisterEvolvedComplex.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is "
+               "not of type CCTK_COMPLEX and so should not be "
+               "registered with MoLRegisterEvolvedComplex.", 
                CCTK_VarName(EvolvedIndex)); 
   }
 
   if (!(CCTK_VarTypeI(RHSIndex)==CCTK_VARIABLE_COMPLEX))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The rhs variable %s is not of type CCTK_COMPLEX and so should not be registered with MoLRegisterEvolvedComplex.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The rhs variable %s "
+               "is not of type CCTK_COMPLEX and so should not be "
+               "registered with MoLRegisterEvolvedComplex.", 
                CCTK_VarName(RHSIndex)); 
   }
 
@@ -1169,19 +1241,24 @@ CCTK_INT MoL_RegisterEvolvedComplex(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
   
   if ( (numtimelevs1 < 0) || (numtimelevs2 < 0) ) 
   {
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for variable index %i", EvolvedIndex); 
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for variable index %i", 
+               EvolvedIndex); 
     CCTK_WARN(0, "The index passed does not correspond to a GF.");
   }
 
   if (numtimelevs1 < 2)
   {
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for variable index %i name %s", EvolvedIndex, CCTK_VarName(EvolvedIndex));
-    CCTK_WARN(0, "The GF passed only has one timelevel. It must have at least two.");
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for variable "
+               "index %i name %s", 
+               EvolvedIndex, CCTK_VarName(EvolvedIndex));
+    CCTK_WARN(0, "The GF passed only has one timelevel. "
+              "It must have at least two.");
   }
 
   varused = 0;
 
-  for (index = 0; (index < MoLNumEvolvedComplexVariables)&&(!varused); index++)
+  for (index = 0; (index < MoLNumEvolvedComplexVariables)&&(!varused); 
+       index++)
   {
     varused = (EvolvedIndex == EvolvedComplexVariableIndex[index]);
 #ifdef MOLDEBUG
@@ -1194,7 +1271,9 @@ CCTK_INT MoL_RegisterEvolvedComplex(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
   {
 
     CCTK_VWarn(2,__LINE__,__FILE__,"MoL",
-               "The GF %s has already been registered as a complex evolved variable with RHS GF %s. The attempt to register with RHS GF %s will be ignored",
+               "The GF %s has already been registered as a "
+               "complex evolved variable with RHS GF %s. "
+               "The attempt to register with RHS GF %s will be ignored",
                CCTK_VarName(EvolvedIndex),
                CCTK_VarName(RHSComplexVariableIndex[index-1]),
                CCTK_VarName(RHSIndex));
@@ -1210,7 +1289,11 @@ CCTK_INT MoL_RegisterEvolvedComplex(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
     
     if (MoLNumEvolvedComplexVariables > MoL_Num_ComplexEvolved_Vars)
     {
-      CCTK_WARN(0,"You have tried to register more evolved complex variables than the accumulator parameter MoL_Num_ComplexEvolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+      CCTK_WARN(0,"You have tried to register more evolved complex "
+                "variables than the accumulator parameter "
+                "MoL_Num_ComplexEvolved_Variables allows. "
+                "Check that you are accumulating onto this "
+                "parameter correctly");
     }
 
   }
@@ -1269,13 +1352,18 @@ CCTK_INT MoL_RegisterConstrainedComplex(CCTK_INT ConstrainedIndex)
   
   if (!(CCTK_GroupTypeFromVarI(ConstrainedIndex)==CCTK_GF))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a GF and so should not be registered with MoLRegisterConstrained.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not "
+               "a GF and so should not be registered with "
+               "MoLRegisterConstrained.", 
                CCTK_VarName(ConstrainedIndex)); 
   }
 
   if (!(CCTK_VarTypeI(ConstrainedIndex)==CCTK_VARIABLE_COMPLEX))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_COMPLEX and so should not be registered with MoLRegisterConstrainedComplex.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not of type CCTK_COMPLEX "
+               "and so should not be registered with "
+               "MoLRegisterConstrainedComplex.", 
                CCTK_VarName(ConstrainedIndex)); 
   }
 
@@ -1283,7 +1371,9 @@ CCTK_INT MoL_RegisterConstrainedComplex(CCTK_INT ConstrainedIndex)
 
   if (numtimelevs < 1) {
 
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for constrained complex variable index %i", ConstrainedIndex);
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for constrained complex "
+               "variable index %i", ConstrainedIndex);
     CCTK_WARN(0, "The index passed does not correspond to a GF.");
 
   }
@@ -1291,7 +1381,8 @@ CCTK_INT MoL_RegisterConstrainedComplex(CCTK_INT ConstrainedIndex)
     
     varused = 0;
     
-    for (evolved = 0; (evolved < MoLNumEvolvedComplexVariables)&&(!varused); evolved++)
+    for (evolved = 0; (evolved < MoLNumEvolvedComplexVariables)
+           &&(!varused); evolved++)
     {
       varused = (EvolvedComplexVariableIndex[evolved] == ConstrainedIndex);
     }
@@ -1305,13 +1396,18 @@ CCTK_INT MoL_RegisterConstrainedComplex(CCTK_INT ConstrainedIndex)
     
     if (!varused)
     {
-      ConstrainedComplexVariableIndex[MoLNumConstrainedComplexVariables] = ConstrainedIndex;
+      ConstrainedComplexVariableIndex[MoLNumConstrainedComplexVariables] = 
+        ConstrainedIndex;
       MoLNumConstrainedComplexVariables++;
 
       if (MoLNumConstrainedComplexVariables >
           MoL_Num_ComplexConstrained_Vars) 
       {
-        CCTK_WARN(0,"You have tried to register more evolved complex variables than the accumulator parameter MoL_Num_ComplexEvolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+        CCTK_WARN(0,"You have tried to register more evolved "
+                  "complex variables than the accumulator parameter "
+                  "MoL_Num_ComplexEvolved_Variables allows. "
+                  "Check that you are accumulating onto this "
+                  "parameter correctly");
       }
 
     }
@@ -1339,7 +1435,9 @@ CCTK_INT MoL_RegisterConstrainedComplex(CCTK_INT ConstrainedIndex)
   {
     
     CCTK_VInfo(CCTK_THORNSTRING,
-               "MoL will not treat variable %s as a constrained complex variable at it has only one timelevel. This should not cause problems with the evolution.\n", 
+               "MoL will not treat variable %s as a constrained "
+               "complex variable at it has only one timelevel. "
+               "This should not cause problems with the evolution.\n", 
                CCTK_VarName(ConstrainedIndex));
 
   }  
@@ -1363,13 +1461,18 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplex(CCTK_INT SandRIndex)
   
   if (!(CCTK_GroupTypeFromVarI(SandRIndex)==CCTK_GF))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a GF and so should not be registered with MoLRegisterSaveAndRestore.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not a GF and so should "
+               "not be registered with MoLRegisterSaveAndRestore.", 
                CCTK_VarName(SandRIndex)); 
   }
 
   if (!(CCTK_VarTypeI(SandRIndex)==CCTK_VARIABLE_COMPLEX))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_COMPLEX and so should not be registered with MoLRegisterSaveAndRestoreComplex.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not of type CCTK_COMPLEX "
+               "and so should not be registered with "
+               "MoLRegisterSaveAndRestoreComplex.", 
                CCTK_VarName(SandRIndex)); 
   }
 
@@ -1377,7 +1480,9 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplex(CCTK_INT SandRIndex)
 
   if (numtimelevs < 1) {
 
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for save and restore complex variable index %i", SandRIndex);
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for save and restore complex variable index %i", 
+               SandRIndex);
     CCTK_WARN(0, "The index passed does not correspond to a GF.");
 
   }
@@ -1385,7 +1490,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplex(CCTK_INT SandRIndex)
     
     varused = 0;
     
-    for (evolved = 0; (evolved < MoLNumEvolvedComplexVariables)&&(!varused); evolved++)
+    for (evolved = 0; (evolved < MoLNumEvolvedComplexVariables)
+           &&(!varused); evolved++)
     {
       varused = (EvolvedComplexVariableIndex[evolved] == SandRIndex);
     }
@@ -1411,7 +1517,11 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplex(CCTK_INT SandRIndex)
 
       if (MoLNumSandRComplexVariables > MoL_Num_ComplexSaveAndRestore_Vars)
       {
-        CCTK_WARN(0,"You have tried to register more evolved complex variables than the accumulator parameter MoL_Num_ComplexEvolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+        CCTK_WARN(0,"You have tried to register more evolved "
+                  "complex variables than the accumulator parameter "
+                  "MoL_Num_ComplexEvolved_Variables allows. "
+                  "Check that you are accumulating onto this "
+                  "parameter correctly");
       }
 
     }
@@ -1421,7 +1531,10 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplex(CCTK_INT SandRIndex)
   {
     
     CCTK_VInfo(CCTK_THORNSTRING,
-               "MoL will not treat variable %s as a save and restore complex variable at it has only one timelevel. This should not cause problems with the evolution.\n", 
+               "MoL will not treat variable %s as a save and "
+               "restore complex variable at it has only one "
+               "timelevel. This should not cause problems with "
+               "the evolution.\n", 
                CCTK_VarName(SandRIndex));
 
   }  
@@ -1459,7 +1572,9 @@ CCTK_INT MoL_RegisterEvolvedComplexGroup(CCTK_INT EvolvedGroupIndex,
   if (CCTK_NumVarsInGroupI(RHSGroupIndex) != GroupNumVars)
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
-               "There are a different number of variables in evolved complex group %d and RHS group %d.", EvolvedGroupIndex, RHSGroupIndex);
+               "There are a different number of variables in "
+               "evolved complex group %d and RHS group %d.", 
+               EvolvedGroupIndex, RHSGroupIndex);
   }
   
   retval = 0;
@@ -1486,7 +1601,7 @@ CCTK_INT MoL_RegisterConstrainedComplexGroup(CCTK_INT ConstrainedGroupIndex)
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
                "Constrained complex group index %i is not a real group index.",
-              ConstrainedGroupIndex);
+               ConstrainedGroupIndex);
   }
   
   GroupNumVars = CCTK_NumVarsInGroupI(ConstrainedGroupIndex);
@@ -1514,7 +1629,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplexGroup(CCTK_INT SandRGroupIndex)
   if (SandRGroupFirstVar < 0)
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
-               "Save and Restore complex group index %i is not a real group index.",
+               "Save and Restore complex group index %i "
+               "is not a real group index.",
               SandRGroupIndex);
   }
   
@@ -1552,25 +1668,35 @@ CCTK_INT MoL_RegisterEvolvedArray(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
 
   if (!(CCTK_GroupTypeFromVarI(EvolvedIndex)==CCTK_ARRAY))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a ARRAY and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not an array and so should "
+               "not be registered with MoLRegisterEvolved.", 
                CCTK_VarName(EvolvedIndex)); 
   }
 
   if (!(CCTK_GroupTypeFromVarI(RHSIndex)==CCTK_ARRAY))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The rhs variable %s is not a ARRAY and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The rhs variable %s is not an array and so "
+               "should not be registered with MoLRegisterEvolved.", 
                CCTK_VarName(RHSIndex)); 
   }    
 
   if (!(CCTK_VarTypeI(EvolvedIndex)==CCTK_VARIABLE_REAL))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_REAL and so should not be registered with MoLRegisterEvolvedArray.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not of type CCTK_REAL "
+               "and so should not be registered with "
+               "MoLRegisterEvolvedArray.", 
                CCTK_VarName(EvolvedIndex)); 
   }
 
   if (!(CCTK_VarTypeI(RHSIndex)==CCTK_VARIABLE_REAL))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The rhs variable %s is not of type CCTK_REAL and so should not be registered with MoLRegisterEvolvedArray.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The rhs variable %s is not of type CCTK_REAL "
+               "and so should not be registered with "
+               "MoLRegisterEvolvedArray.", 
                CCTK_VarName(RHSIndex)); 
   }
 
@@ -1579,14 +1705,18 @@ CCTK_INT MoL_RegisterEvolvedArray(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
   
   if ( (numtimelevs1 < 0) || (numtimelevs2 < 0) ) 
   {
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for variable index %i", EvolvedIndex); 
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for variable index %i", EvolvedIndex); 
     CCTK_WARN(0, "The index passed does not correspond to an array.");
   }
 
   if (numtimelevs1 < 2)
   {
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for variable index %i name %s", EvolvedIndex, CCTK_VarName(EvolvedIndex));
-    CCTK_WARN(0, "The ARRAY passed only has one timelevel. It must have at least two.");
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for variable index %i name %s", 
+               EvolvedIndex, CCTK_VarName(EvolvedIndex));
+    CCTK_WARN(0, "The array passed only has one timelevel. "
+              "It must have at least two.");
   }
 
   varused = 0;
@@ -1604,7 +1734,9 @@ CCTK_INT MoL_RegisterEvolvedArray(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
   {
 
     CCTK_VWarn(2,__LINE__,__FILE__,"MoL",
-               "The array %s has already been registered as a array evolved variable with RHS array %s. The attempt to register with RHS array %s will be ignored",
+               "The array %s has already been registered "
+               "as a array evolved variable with RHS array %s. "
+               "The attempt to register with RHS array %s will be ignored",
                CCTK_VarName(EvolvedIndex),
                CCTK_VarName(RHSArrayVariableIndex[index-1]),
                CCTK_VarName(RHSIndex));
@@ -1620,7 +1752,11 @@ CCTK_INT MoL_RegisterEvolvedArray(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
     
     if (MoLNumEvolvedArrayVariables > MoL_Num_ArrayEvolved_Vars)
     {
-      CCTK_WARN(0,"You have tried to register more evolved array variables than the accumulator parameter MoL_Num_ArrayEvolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+      CCTK_WARN(0,"You have tried to register more evolved array "
+                "variables than the accumulator parameter "
+                "MoL_Num_ArrayEvolved_Variables allows. "
+                "Check that you are accumulating onto this "
+                "parameter correctly");
     }
 
   }
@@ -1673,13 +1809,18 @@ CCTK_INT MoL_RegisterConstrainedArray(CCTK_INT ConstrainedIndex)
     
   if (!(CCTK_GroupTypeFromVarI(ConstrainedIndex)==CCTK_ARRAY))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a ARRAY and so should not be registered with MoLRegisterConstrained.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not a ARRAY and so "
+               "should not be registered with MoLRegisterConstrained.", 
                CCTK_VarName(ConstrainedIndex)); 
   }
 
   if (!(CCTK_VarTypeI(ConstrainedIndex)==CCTK_VARIABLE_REAL))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_REAL and so should not be registered with MoLRegisterConstrainedArray.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not of type CCTK_REAL "
+               "and so should not be registered with "
+               "MoLRegisterConstrainedArray.", 
                CCTK_VarName(ConstrainedIndex)); 
   }
 
@@ -1687,7 +1828,9 @@ CCTK_INT MoL_RegisterConstrainedArray(CCTK_INT ConstrainedIndex)
 
   if (numtimelevs < 1) {
 
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for constrained array variable index %i", ConstrainedIndex);
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for constrained array variable index %i", 
+               ConstrainedIndex);
     CCTK_WARN(0, "The index passed does not correspond to a array.");
 
   }
@@ -1695,7 +1838,8 @@ CCTK_INT MoL_RegisterConstrainedArray(CCTK_INT ConstrainedIndex)
     
     varused = 0;
     
-    for (evolved = 0; (evolved < MoLNumEvolvedArrayVariables)&&(!varused); evolved++)
+    for (evolved = 0; (evolved < MoLNumEvolvedArrayVariables)
+           &&(!varused); evolved++)
     {
       varused = (EvolvedArrayVariableIndex[evolved] == ConstrainedIndex);
     }
@@ -1709,13 +1853,18 @@ CCTK_INT MoL_RegisterConstrainedArray(CCTK_INT ConstrainedIndex)
     
     if (!varused)
     {
-      ConstrainedArrayVariableIndex[MoLNumConstrainedArrayVariables] = ConstrainedIndex;
+      ConstrainedArrayVariableIndex[MoLNumConstrainedArrayVariables] = 
+        ConstrainedIndex;
       MoLNumConstrainedArrayVariables++;
 
       if (MoLNumConstrainedArrayVariables >
           MoL_Num_ArrayConstrained_Vars) 
       {
-        CCTK_WARN(0,"You have tried to register more evolved array variables than the accumulator parameter MoL_Num_ArrayEvolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+        CCTK_WARN(0,"You have tried to register more evolved "
+                  "array variables than the accumulator "
+                  "parameter MoL_Num_ArrayEvolved_Variables allows. "
+                  "Check that you are accumulating onto this "
+                  "parameter correctly");
       }
 
     }
@@ -1743,7 +1892,9 @@ CCTK_INT MoL_RegisterConstrainedArray(CCTK_INT ConstrainedIndex)
   {
     
     CCTK_VInfo(CCTK_THORNSTRING,
-               "MoL will not treat variable %s as a constrained array variable at it has only one timelevel. This should not cause problems with the evolution.\n", 
+               "MoL will not treat variable %s as a constrained "
+               "array variable at it has only one timelevel. "
+               "This should not cause problems with the evolution.\n", 
                CCTK_VarName(ConstrainedIndex));
 
   }  
@@ -1761,13 +1912,18 @@ CCTK_INT MoL_RegisterSaveAndRestoreArray(CCTK_INT SandRIndex)
   
   if (!(CCTK_GroupTypeFromVarI(SandRIndex)==CCTK_ARRAY))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a ARRAY and so should not be registered with MoLRegisterSaveAndRestore.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not an array and so should not "
+               "be registered with MoLRegisterSaveAndRestore.", 
                CCTK_VarName(SandRIndex)); 
   }
 
   if (!(CCTK_VarTypeI(SandRIndex)==CCTK_VARIABLE_REAL))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_REAL and so should not be registered with MoLRegisterSaveAndRestoreArray.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not of type CCTK_REAL and "
+               "so should not be registered with "
+               "MoLRegisterSaveAndRestoreArray.", 
                CCTK_VarName(SandRIndex)); 
   }
 
@@ -1775,7 +1931,9 @@ CCTK_INT MoL_RegisterSaveAndRestoreArray(CCTK_INT SandRIndex)
 
   if (numtimelevs < 1) {
 
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for save and restore array variable index %i", SandRIndex);
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for save and restore array variable index %i", 
+               SandRIndex);
     CCTK_WARN(0, "The index passed does not correspond to a GF.");
 
   }
@@ -1783,7 +1941,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreArray(CCTK_INT SandRIndex)
     
     varused = 0;
     
-    for (evolved = 0; (evolved < MoLNumEvolvedArrayVariables)&&(!varused); evolved++)
+    for (evolved = 0; (evolved < MoLNumEvolvedArrayVariables)
+           &&(!varused); evolved++)
     {
       varused = (EvolvedArrayVariableIndex[evolved] == SandRIndex);
     }
@@ -1809,7 +1968,11 @@ CCTK_INT MoL_RegisterSaveAndRestoreArray(CCTK_INT SandRIndex)
 
       if (MoLNumSandRArrayVariables > MoL_Num_ArraySaveAndRestore_Vars)
       {
-        CCTK_WARN(0,"You have tried to register more evolved array variables than the accumulator parameter MoL_Num_ArrayEvolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+        CCTK_WARN(0,"You have tried to register more evolved "
+                  "array variables than the accumulator parameter "
+                  "MoL_Num_ArrayEvolved_Variables allows. "
+                  "Check that you are accumulating onto "
+                  "this parameter correctly");
       }
 
     }
@@ -1819,7 +1982,10 @@ CCTK_INT MoL_RegisterSaveAndRestoreArray(CCTK_INT SandRIndex)
   {
     
     CCTK_VInfo(CCTK_THORNSTRING,
-               "MoL will not treat variable %s as a save and restore array variable at it has only one timelevel. This should not cause problems with the evolution.\n", 
+               "MoL will not treat variable %s as a save "
+               "and restore array variable at it has only one "
+               "timelevel. This should not cause problems "
+               "with the evolution.\n", 
                CCTK_VarName(SandRIndex));
 
   }  
@@ -1840,7 +2006,7 @@ CCTK_INT MoL_RegisterEvolvedArrayGroup(CCTK_INT EvolvedGroupIndex,
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
                "Evolved array group index %i is not a real group index.",
-              EvolvedGroupIndex);
+               EvolvedGroupIndex);
   }
   
   RHSGroupFirstVar = CCTK_FirstVarIndexI(RHSGroupIndex);
@@ -1855,7 +2021,9 @@ CCTK_INT MoL_RegisterEvolvedArrayGroup(CCTK_INT EvolvedGroupIndex,
   if (CCTK_NumVarsInGroupI(RHSGroupIndex) != GroupNumVars)
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
-               "There are a different number of variables in evolved array group %d and RHS group %d.", EvolvedGroupIndex, RHSGroupIndex);
+               "There are a different number of variables in "
+               "evolved array group %d and RHS group %d.", 
+               EvolvedGroupIndex, RHSGroupIndex);
   }
   
   retval = 0;
@@ -1910,7 +2078,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreArrayGroup(CCTK_INT SandRGroupIndex)
   if (SandRGroupFirstVar < 0)
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
-               "Save and Restore array group index %i is not a real group index.",
+               "Save and Restore array group index %i is "
+               "not a real group index.",
               SandRGroupIndex);
   }
   
@@ -1953,25 +2122,35 @@ CCTK_INT MoL_RegisterEvolvedComplexArray(CCTK_INT EvolvedIndex,
   
   if (!(CCTK_GroupTypeFromVarI(EvolvedIndex)==CCTK_ARRAY))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a ARRAY and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not an array and so should "
+               "not be registered with MoLRegisterEvolved.", 
                CCTK_VarName(EvolvedIndex)); 
   }
 
   if (!(CCTK_GroupTypeFromVarI(RHSIndex)==CCTK_ARRAY))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The rhs variable %s is not a ARRAY and so should not be registered with MoLRegisterEvolved.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The rhs variable %s is not an array and so "
+               "should not be registered with MoLRegisterEvolved.", 
                CCTK_VarName(RHSIndex)); 
   }    
 
   if (!(CCTK_VarTypeI(EvolvedIndex)==CCTK_VARIABLE_COMPLEX))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_COMPLEX and so should not be registered with MoLRegisterEvolvedArrayComplex.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not of type CCTK_COMPLEX "
+               "and so should not be registered with "
+               "MoLRegisterEvolvedArrayComplex.", 
                CCTK_VarName(EvolvedIndex)); 
   }
 
   if (!(CCTK_VarTypeI(RHSIndex)==CCTK_VARIABLE_COMPLEX))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The rhs variable %s is not of type CCTK_COMPLEX and so should not be registered with MoLRegisterEvolvedArrayComplex.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The rhs variable %s is not of type CCTK_COMPLEX "
+               "and so should not be registered with "
+               "MoLRegisterEvolvedArrayComplex.", 
                CCTK_VarName(RHSIndex)); 
   }
 
@@ -1980,19 +2159,24 @@ CCTK_INT MoL_RegisterEvolvedComplexArray(CCTK_INT EvolvedIndex,
   
   if ( (numtimelevs1 < 0) || (numtimelevs2 < 0) ) 
   {
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for variable index %i", EvolvedIndex); 
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for variable index %i", EvolvedIndex); 
     CCTK_WARN(0, "The index passed does not correspond to a GF.");
   }
 
   if (numtimelevs1 < 2)
   {
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for variable index %i name %s", EvolvedIndex, CCTK_VarName(EvolvedIndex));
-    CCTK_WARN(0, "The GF passed only has one timelevel. It must have at least two.");
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for variable index %i name %s", 
+               EvolvedIndex, CCTK_VarName(EvolvedIndex));
+    CCTK_WARN(0, "The GF passed only has one timelevel. "
+              "It must have at least two.");
   }
 
   varused = 0;
 
-  for (index = 0; (index < MoLNumEvolvedComplexArrayVariables)&&(!varused); index++)
+  for (index = 0; (index < MoLNumEvolvedComplexArrayVariables)
+         &&(!varused); index++)
   {
     varused = (EvolvedIndex == EvolvedComplexArrayVariableIndex[index]);
 #ifdef MOLDEBUG
@@ -2005,7 +2189,9 @@ CCTK_INT MoL_RegisterEvolvedComplexArray(CCTK_INT EvolvedIndex,
   {
 
     CCTK_VWarn(2,__LINE__,__FILE__,"MoL",
-               "The GF %s has already been registered as a complex array evolved variable with RHS GF %s. The attempt to register with RHS GF %s will be ignored",
+               "The GF %s has already been registered as "
+               "a complex array evolved variable with RHS GF %s. "
+               "The attempt to register with RHS GF %s will be ignored",
                CCTK_VarName(EvolvedIndex),
                CCTK_VarName(RHSComplexArrayVariableIndex[index-1]),
                CCTK_VarName(RHSIndex));
@@ -2014,14 +2200,21 @@ CCTK_INT MoL_RegisterEvolvedComplexArray(CCTK_INT EvolvedIndex,
   else
   {
   
-    EvolvedComplexArrayVariableIndex[MoLNumEvolvedComplexArrayVariables] = EvolvedIndex;
-    RHSComplexArrayVariableIndex[MoLNumEvolvedComplexArrayVariables] = RHSIndex;
+    EvolvedComplexArrayVariableIndex[MoLNumEvolvedComplexArrayVariables] = 
+      EvolvedIndex;
+    RHSComplexArrayVariableIndex[MoLNumEvolvedComplexArrayVariables] = 
+      RHSIndex;
   
     MoLNumEvolvedComplexArrayVariables++;
     
     if (MoLNumEvolvedComplexArrayVariables > MoL_Num_ComplexArrayEvolved_Vars)
     {
-      CCTK_WARN(0,"You have tried to register more evolved complex array variables than the accumulator parameter MoL_Num_ComplexArrayEvolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+      CCTK_WARN(0,"You have tried to register more "
+                "evolved complex array variables than the "
+                "accumulator parameter "
+                "MoL_Num_ComplexArrayEvolved_Variables allows. "
+                "Check that you are accumulating onto this "
+                "parameter correctly");
     }
 
   }
@@ -2037,7 +2230,8 @@ CCTK_INT MoL_RegisterEvolvedComplexArray(CCTK_INT EvolvedIndex,
   
   if (varused)
   {
-    for (index = varused; index < MoLNumConstrainedComplexArrayVariables-1; index++)
+    for (index = varused; index < 
+           MoLNumConstrainedComplexArrayVariables-1; index++)
     {
       ConstrainedComplexArrayVariableIndex[index] =
         ConstrainedComplexArrayVariableIndex[index+1]; 
@@ -2047,7 +2241,8 @@ CCTK_INT MoL_RegisterEvolvedComplexArray(CCTK_INT EvolvedIndex,
     
   varused = 0;
 
-  for (index = 0; (index < MoLNumSandRComplexArrayVariables)&&(!varused); index++)
+  for (index = 0; (index < MoLNumSandRComplexArrayVariables)
+         &&(!varused); index++)
   {
     varused = (EvolvedIndex == SandRComplexArrayVariableIndex[index]);
   }
@@ -2056,7 +2251,8 @@ CCTK_INT MoL_RegisterEvolvedComplexArray(CCTK_INT EvolvedIndex,
   {
     for (index = varused; index < MoLNumSandRComplexArrayVariables-1; index++)
     {
-      SandRComplexArrayVariableIndex[index] = SandRComplexArrayVariableIndex[index+1];
+      SandRComplexArrayVariableIndex[index] = 
+        SandRComplexArrayVariableIndex[index+1];
     }
     MoLNumSandRComplexArrayVariables--;
   }
@@ -2080,13 +2276,18 @@ CCTK_INT MoL_RegisterConstrainedComplexArray(CCTK_INT ConstrainedIndex)
   
   if (!(CCTK_GroupTypeFromVarI(ConstrainedIndex)==CCTK_ARRAY))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a ARRAY and so should not be registered with MoLRegisterConstrained.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not an array and so should "
+               "not be registered with MoLRegisterConstrained.", 
                CCTK_VarName(ConstrainedIndex)); 
   }
 
   if (!(CCTK_VarTypeI(ConstrainedIndex)==CCTK_VARIABLE_COMPLEX))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_COMPLEX and so should not be registered with MoLRegisterConstrainedArrayComplex.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not of type CCTK_COMPLEX and "
+               "so should not be registered with "
+               "MoLRegisterConstrainedArrayComplex.", 
                CCTK_VarName(ConstrainedIndex)); 
   }
   
@@ -2094,7 +2295,9 @@ CCTK_INT MoL_RegisterConstrainedComplexArray(CCTK_INT ConstrainedIndex)
 
   if (numtimelevs < 1) {
 
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for constrained complex array variable index %i", ConstrainedIndex);
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for constrained complex array variable index %i", 
+               ConstrainedIndex);
     CCTK_WARN(0, "The index passed does not correspond to a GF.");
 
   }
@@ -2102,16 +2305,19 @@ CCTK_INT MoL_RegisterConstrainedComplexArray(CCTK_INT ConstrainedIndex)
     
     varused = 0;
     
-    for (evolved = 0; (evolved < MoLNumEvolvedComplexArrayVariables)&&(!varused); evolved++)
+    for (evolved = 0; (evolved < MoLNumEvolvedComplexArrayVariables)
+&&(!varused); evolved++)
     {
-      varused = (EvolvedComplexArrayVariableIndex[evolved] == ConstrainedIndex);
+      varused = (EvolvedComplexArrayVariableIndex[evolved] == 
+                 ConstrainedIndex);
     }
     
     for (evolved = 0; (evolved <
                        MoLNumConstrainedComplexArrayVariables)&&(!varused);
          evolved++) 
     {
-      varused = (ConstrainedComplexArrayVariableIndex[evolved] == ConstrainedIndex);
+      varused = (ConstrainedComplexArrayVariableIndex[evolved] == 
+                 ConstrainedIndex);
     }
     
     if (!varused)
@@ -2122,7 +2328,11 @@ CCTK_INT MoL_RegisterConstrainedComplexArray(CCTK_INT ConstrainedIndex)
       if (MoLNumConstrainedComplexArrayVariables >
           MoL_Num_ComplexArrayConstrained_Vars) 
       {
-        CCTK_WARN(0,"You have tried to register more evolved complex array variables than the accumulator parameter MoL_Num_ComplexArrayEvolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+        CCTK_WARN(0,"You have tried to register more evolved "
+                  "complex array variables than the accumulator "
+                  "parameter MoL_Num_ComplexArrayEvolved_Variables "
+                  "allows. Check that you are accumulating onto "
+                  "this parameter correctly");
       }
 
     }
@@ -2138,9 +2348,11 @@ CCTK_INT MoL_RegisterConstrainedComplexArray(CCTK_INT ConstrainedIndex)
     
     if (varused)
     {
-      for (index = evolved; index < MoLNumSandRComplexArrayVariables-1; index++)
+      for (index = evolved; index < 
+             MoLNumSandRComplexArrayVariables - 1; index++)
       {
-        SandRComplexArrayVariableIndex[index] = SandRComplexArrayVariableIndex[index+1];
+        SandRComplexArrayVariableIndex[index] = 
+          SandRComplexArrayVariableIndex[index+1];
       }
       MoLNumSandRComplexArrayVariables--;
     }
@@ -2150,7 +2362,10 @@ CCTK_INT MoL_RegisterConstrainedComplexArray(CCTK_INT ConstrainedIndex)
   {
     
     CCTK_VInfo(CCTK_THORNSTRING,
-               "MoL will not treat variable %s as a constrained complex array variable at it has only one timelevel. This should not cause problems with the evolution.\n", 
+               "MoL will not treat variable %s as a "
+               "constrained complex array variable as "
+               "it has only one timelevel. This should not cause "
+               "problems with the evolution.\n", 
                CCTK_VarName(ConstrainedIndex));
 
   }  
@@ -2174,13 +2389,18 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplexArray(CCTK_INT SandRIndex)
   
   if (!(CCTK_GroupTypeFromVarI(SandRIndex)==CCTK_ARRAY))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not a ARRAY and so should not be registered with MoLRegisterSaveAndRestore.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not an array and so should "
+               "not be registered with MoLRegisterSaveAndRestore.", 
                CCTK_VarName(SandRIndex)); 
   }
 
   if (!(CCTK_VarTypeI(SandRIndex)==CCTK_VARIABLE_COMPLEX))
   {
-    CCTK_VWarn(0,__LINE__,__FILE__,"MoL","The variable %s is not of type CCTK_COMPLEX and so should not be registered with MoLRegisterSaveAndRestoreArrayComplex.", 
+    CCTK_VWarn(0,__LINE__,__FILE__,"MoL",
+               "The variable %s is not of type CCTK_COMPLEX "
+               "and so should not be registered with "
+               "MoLRegisterSaveAndRestoreArrayComplex.", 
                CCTK_VarName(SandRIndex)); 
   }
   
@@ -2188,7 +2408,9 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplexArray(CCTK_INT SandRIndex)
 
   if (numtimelevs < 1) {
 
-    CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning for save and restore complex array variable index %i", SandRIndex);
+    CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+               "Warning for save and restore complex "
+               "array variable index %i", SandRIndex);
     CCTK_WARN(0, "The index passed does not correspond to a GF.");
 
   }
@@ -2196,7 +2418,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplexArray(CCTK_INT SandRIndex)
     
     varused = 0;
     
-    for (evolved = 0; (evolved < MoLNumEvolvedComplexArrayVariables)&&(!varused); evolved++)
+    for (evolved = 0; (evolved < MoLNumEvolvedComplexArrayVariables)
+           &&(!varused); evolved++)
     {
       varused = (EvolvedComplexArrayVariableIndex[evolved] == SandRIndex);
     }
@@ -2217,12 +2440,18 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplexArray(CCTK_INT SandRIndex)
 
     if (!varused)
     {
-      SandRComplexArrayVariableIndex[MoLNumSandRComplexArrayVariables] = SandRIndex;
+      SandRComplexArrayVariableIndex[MoLNumSandRComplexArrayVariables] = 
+        SandRIndex;
       MoLNumSandRComplexArrayVariables++;
 
-      if (MoLNumSandRComplexArrayVariables > MoL_Num_ComplexArraySaveAndRestore_Vars)
+      if (MoLNumSandRComplexArrayVariables > 
+          MoL_Num_ComplexArraySaveAndRestore_Vars)
       {
-        CCTK_WARN(0,"You have tried to register more evolved complex array variables than the accumulator parameter MoL_Num_ComplexArrayEvolved_Variables allows. Check that you are accumulating onto this parameter correctly");
+        CCTK_WARN(0,"You have tried to register more evolved "
+                  "complex array variables than the accumulator "
+                  "parameter MoL_Num_ComplexArrayEvolved_Variables "
+                  "allows. Check that you are accumulating onto this "
+                  "parameter correctly");
       }
 
     }
@@ -2232,7 +2461,10 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplexArray(CCTK_INT SandRIndex)
   {
     
     CCTK_VInfo(CCTK_THORNSTRING,
-               "MoL will not treat variable %s as a save and restore complex array variable at it has only one timelevel. This should not cause problems with the evolution.\n", 
+               "MoL will not treat variable %s as a save "
+               "and restore complex array variable at it "
+               "has only one timelevel. This should not cause "
+               "problems with the evolution.\n", 
                CCTK_VarName(SandRIndex));
 
   }  
@@ -2254,7 +2486,8 @@ CCTK_INT MoL_RegisterEvolvedComplexArrayGroup(CCTK_INT EvolvedGroupIndex,
   if (EvolvedGroupFirstVar < 0)
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
-               "Evolved complex array group index %i is not a real group index.",
+               "Evolved complex array group index %i is not a "
+               "real group index.",
               EvolvedGroupIndex);
   }
   
@@ -2270,7 +2503,9 @@ CCTK_INT MoL_RegisterEvolvedComplexArrayGroup(CCTK_INT EvolvedGroupIndex,
   if (CCTK_NumVarsInGroupI(RHSGroupIndex) != GroupNumVars)
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
-               "There are a different number of variables in evolved complex array group %d and RHS group %d.", EvolvedGroupIndex, RHSGroupIndex);
+               "There are a different number of variables in "
+               "evolved complex array group %d and RHS group %d.", 
+               EvolvedGroupIndex, RHSGroupIndex);
   }
   
   retval = 0;
@@ -2296,7 +2531,8 @@ CCTK_INT MoL_RegisterConstrainedComplexArrayGroup(CCTK_INT ConstrainedGroupIndex
   if (ConstrainedGroupFirstVar < 0)
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
-               "Constrained complex array group index %i is not a real group index.",
+               "Constrained complex array group index %i is not "
+               "a real group index.",
               ConstrainedGroupIndex);
   }
   
@@ -2325,7 +2561,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplexArrayGroup(CCTK_INT SandRGroupIndex)
   if (SandRGroupFirstVar < 0)
   {
     CCTK_VWarn(0, __LINE__, __FILE__, CCTK_THORNSTRING,
-               "Save and Restore complex array group index %i is not a real group index.",
+               "Save and Restore complex array group index %i is "
+               "not a real group index.",
               SandRGroupIndex);
   }