aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorhawke <hawke@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b>2003-07-24 13:11:59 +0000
committerhawke <hawke@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b>2003-07-24 13:11:59 +0000
commitb18926e6de794bb786988f3f61b2943ffbd6da1a (patch)
tree3bfaebc25c4398b5ea2ae2a056cb0ab72bdce0f2 /src
parent3b7f68b36f2f2ffd862234b6c5b9e70a37953f42 (diff)
Formatting changes only.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/MoL/trunk@32 578cdeb0-5ea1-4b81-8215-5a3b8777ee0b
Diffstat (limited to 'src')
-rw-r--r--src/ChangeType.c58
-rw-r--r--src/GenericRK.c35
-rw-r--r--src/ICN.c12
-rw-r--r--src/IndexArrays.c27
-rw-r--r--src/InitialCopy.c54
-rw-r--r--src/ParamCheck.c20
-rw-r--r--src/RK2.c18
-rw-r--r--src/RK3.c17
-rw-r--r--src/RKCoefficients.c27
-rw-r--r--src/Registration.c501
-rw-r--r--src/SetTime.c3
11 files changed, 554 insertions, 218 deletions
diff --git a/src/ChangeType.c b/src/ChangeType.c
index 2f1d926..98b9ab9 100644
--- a/src/ChangeType.c
+++ b/src/ChangeType.c
@@ -121,17 +121,23 @@ CCTK_INT MoL_ChangeToEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
timelevs = CCTK_MaxTimeLevelsVI(EvolvedIndex);
if (timelevs < 1)
{
- CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning whilst trying to change variable index %i to evolved.", EvolvedIndex);
+ CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+ "Warning whilst trying to change variable "
+ "index %i to evolved.", EvolvedIndex);
CCTK_WARN(0, "The index passed does not correspond to a GF.");
}
else if (timelevs == 1)
{
- CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning whilst trying to change variable index %i to evolved.", EvolvedIndex);
+ CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+ "Warning whilst trying to change variable "
+ "index %i to evolved.", EvolvedIndex);
CCTK_WARN(0, "The index passed only has a single timelevel.");
}
timelevs = CCTK_MaxTimeLevelsVI(RHSIndex);
if (timelevs < 1) {
- CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning whilst trying to change variable index %i to evolved (RHS GF).", RHSIndex);
+ CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+ "Warning whilst trying to change variable "
+ "index %i to evolved (RHS GF).", RHSIndex);
CCTK_WARN(0, "The index passed does not correspond to a GF.");
}
EvolvedVariableIndex[MoLNumEvolvedVariables] = EvolvedIndex;
@@ -157,10 +163,13 @@ CCTK_INT MoL_ChangeToEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
{
timelevs = CCTK_MaxTimeLevelsVI(RHSIndex);
if (timelevs < 1) {
- CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning whilst trying to change variable index %i to evolved type from constrained.", RHSIndex);
+ CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+ "Warning whilst trying to change variable "
+ "index %i to evolved type from constrained.", RHSIndex);
CCTK_WARN(0, "The RHS index passed does not correspond to a GF.");
}
- for (index = usedindex; index < MoLNumConstrainedVariables - 1; index++)
+ for (index = usedindex; index < MoLNumConstrainedVariables - 1;
+ index++)
{
ConstrainedVariableIndex[index] = ConstrainedVariableIndex[index+1];
}
@@ -181,7 +190,10 @@ CCTK_INT MoL_ChangeToEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
{
timelevs = CCTK_MaxTimeLevelsVI(RHSIndex);
if (timelevs < 1) {
- CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning whilst trying to change variable index %i to evolved type from save and restore.", RHSIndex);
+ CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+ "Warning whilst trying to change variable "
+ "index %i to evolved type from save and "
+ "restore.", RHSIndex);
CCTK_WARN(0, "The RHS index passed does not correspond to a GF.");
}
for (index = usedindex; index < MoLNumSandRVariables - 1; index++)
@@ -203,7 +215,8 @@ CCTK_INT MoL_ChangeToEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex)
default:
{
- CCTK_WARN(0, "Something is seriously wrong in ChangeType.c! Case out of range in switch statement.");
+ CCTK_WARN(0, "Something is seriously wrong in ChangeType.c! "
+ "Case out of range in switch statement.");
}
}
@@ -240,12 +253,16 @@ CCTK_INT MoL_ChangeToConstrained(CCTK_INT ConstrainedIndex)
timelevs = CCTK_MaxTimeLevelsVI(ConstrainedIndex);
if (timelevs < 1)
{
- CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning whilst trying to change variable index %i to evolved.", ConstrainedIndex);
+ CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+ "Warning whilst trying to change variable "
+ "index %i to evolved.", ConstrainedIndex);
CCTK_WARN(0, "The index passed does not correspond to a GF.");
}
else if (timelevs == 1)
{
- CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning whilst trying to change variable index %i to evolved.", ConstrainedIndex);
+ CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+ "Warning whilst trying to change variable "
+ "index %i to evolved.", ConstrainedIndex);
CCTK_WARN(0, "The index passed only has a single timelevel.");
}
@@ -285,7 +302,8 @@ CCTK_INT MoL_ChangeToConstrained(CCTK_INT ConstrainedIndex)
case MOL_UNKNOWN_VARTYPE:
{
- ConstrainedVariableIndex[MoLNumConstrainedVariables] = ConstrainedIndex;
+ ConstrainedVariableIndex[MoLNumConstrainedVariables] =
+ ConstrainedIndex;
MoLNumConstrainedVariables++;
break;
}
@@ -327,7 +345,8 @@ CCTK_INT MoL_ChangeToConstrained(CCTK_INT ConstrainedIndex)
default:
{
- CCTK_WARN(0, "Something is seriously wrong in ChangeType.c! Case out of range in switch statement.");
+ CCTK_WARN(0, "Something is seriously wrong in ChangeType.c! "
+ "Case out of range in switch statement.");
}
}
@@ -364,7 +383,9 @@ CCTK_INT MoL_ChangeToSaveAndRestore(CCTK_INT SandRIndex)
timelevs = CCTK_MaxTimeLevelsVI(SandRIndex);
if (timelevs < 1)
{
- CCTK_VWarn(1,__LINE__,__FILE__,"MoL","Warning whilst trying to change variable index %i to save and restore.", SandRIndex);
+ CCTK_VWarn(1,__LINE__,__FILE__,"MoL",
+ "Warning whilst trying to change variable "
+ "index %i to save and restore.", SandRIndex);
CCTK_WARN(0, "The index passed does not correspond to a GF.");
}
@@ -426,7 +447,9 @@ CCTK_INT MoL_ChangeToSaveAndRestore(CCTK_INT SandRIndex)
case MOL_CONSTRAINED_VARTYPE:
{
- for (index = usedindex; index < MoLNumConstrainedVariables - 1; index++)
+ for (index = usedindex; index < MoLNumConstrainedVariables -
+ 1;
+ index++)
{
ConstrainedVariableIndex[index] = ConstrainedVariableIndex[index+1];
}
@@ -445,7 +468,8 @@ CCTK_INT MoL_ChangeToSaveAndRestore(CCTK_INT SandRIndex)
default:
{
- CCTK_WARN(0, "Something is seriously wrong in ChangeType.c! Case out of range in switch statement.");
+ CCTK_WARN(0, "Something is seriously wrong in ChangeType.c! "
+ "Case out of range in switch statement.");
}
}
@@ -533,7 +557,8 @@ CCTK_INT MoL_ChangeToNone(CCTK_INT RemoveIndex)
case MOL_CONSTRAINED_VARTYPE:
{
- for (index = usedindex; index < MoLNumConstrainedVariables - 1; index++)
+ for (index = usedindex; index < MoLNumConstrainedVariables - 1;
+ index++)
{
ConstrainedVariableIndex[index] = ConstrainedVariableIndex[index+1];
}
@@ -555,7 +580,8 @@ CCTK_INT MoL_ChangeToNone(CCTK_INT RemoveIndex)
default:
{
- CCTK_WARN(0, "Something is seriously wrong in ChangeType.c! Case out of range in switch statement.");
+ CCTK_WARN(0, "Something is seriously wrong in ChangeType.c! "
+ "Case out of range in switch statement.");
}
}
diff --git a/src/GenericRK.c b/src/GenericRK.c
index 19ffd0b..af331e0 100644
--- a/src/GenericRK.c
+++ b/src/GenericRK.c
@@ -178,8 +178,10 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
{
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]);
+ printf("Variable: %d. Index: %d. step: %d. "
+ "alpha: %f. Scratch: %f. q: %f.\n",
+ var, index, (*MoL_Intermediate_Step), alpha,
+ ScratchVar[index], UpdateVar[index]);
#endif
}
}
@@ -207,7 +209,8 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
CCTK_FirstVarIndex("MOL::SCRATCHSPACE")
+ var);
#ifdef MOLDEBUG
- printf("Writing to scratch space, initial address %ld, index %d, totalsize %d \n",
+ printf("Writing to scratch space, initial address %ld, "
+ "index %d, totalsize %d \n",
ScratchVar, (var * MoL_Num_Scratch_Levels +
MoL_Intermediate_Steps -
(*MoL_Intermediate_Step)) * totalsize, totalsize);
@@ -242,7 +245,8 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
for (index = 0; index < totalsize; index++)
{
UpdateComplexVar[index] = CCTK_CmplxMul(Complex_Delta_Time,
- CCTK_CmplxMul(Complex_beta, RHSComplexVar[index]));
+ CCTK_CmplxMul(Complex_beta,
+ RHSComplexVar[index]));
}
for (scratchstep = 0;
@@ -322,7 +326,8 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
if (ierr)
{
CCTK_VWarn(0, __LINE__, __FILE__, "MoL",
- "The driver does not return group information for group '%s'.",
+ "The driver does not return group information "
+ "for group '%s'.",
CCTK_GroupName(groupindex));
}
arraytotalsize = 1;
@@ -348,7 +353,8 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
if (scratchstep)
{
- ScratchVar = &ArrayScratchSpace[scratchindex*(MoL_Max_Evolved_Array_Size+1) +
+ ScratchVar = &ArrayScratchSpace[scratchindex*
+ (MoL_Max_Evolved_Array_Size+1) +
arrayscratchlocation];
#ifdef MOLDEBUG
printf("Reading from scratch space, initial address %ld index %d\n",
@@ -368,8 +374,10 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
{
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]);
+ printf("Variable: %d. Index: %d. step: %d. "
+ "alpha: %f. Scratch: %f. q: %f.\n",
+ var, index, (*MoL_Intermediate_Step),
+ alpha, ScratchVar[index], UpdateVar[index]);
#endif
}
}
@@ -389,15 +397,17 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
UpdateVar = (CCTK_REAL *)CCTK_VarDataPtrI(cctkGH, 0,
EvolvedArrayVariableIndex[var]);
ScratchVar = &ArrayScratchSpace[(MoL_Intermediate_Steps -
- (*MoL_Intermediate_Step)) * (MoL_Max_Evolved_Array_Size+1) +
- arrayscratchlocation];
+ (*MoL_Intermediate_Step)) *
+ (MoL_Max_Evolved_Array_Size+1) +
+ arrayscratchlocation];
groupindex = CCTK_GroupIndexFromVarI(EvolvedArrayVariableIndex[var]);
ierr = CCTK_GroupDynamicData(cctkGH, groupindex,
&arraydata);
if (ierr)
{
CCTK_VWarn(0, __LINE__, __FILE__, "MoL",
- "The driver does not return group information for group '%s'.",
+ "The driver does not return group information "
+ "for group '%s'.",
CCTK_GroupName(groupindex));
}
arraytotalsize = 1;
@@ -409,7 +419,8 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
#ifdef MOLDEBUG
printf("Writing to scratch space, initial address %ld, index %d \n",
ScratchVar, (MoL_Intermediate_Steps -
- (*MoL_Intermediate_Step)) * (MoL_Max_Evolved_Array_Size+1) +
+ (*MoL_Intermediate_Step)) *
+ (MoL_Max_Evolved_Array_Size+1) +
arrayscratchlocation);
#endif
for (index = 0; index < arraytotalsize; index++)
diff --git a/src/ICN.c b/src/ICN.c
index a5231a7..f6bbfd6 100644
--- a/src/ICN.c
+++ b/src/ICN.c
@@ -92,7 +92,8 @@ void MoL_ICNAdd(CCTK_ARGUMENTS)
#endif
#ifdef MOLDEBUG
- printf("Inside ICN.\nProcessor %d.\nStep %d.\nRefinement %d.\nTimestep %g.\nSpacestep %g.\nTime %g\n",
+ printf("Inside ICN.\nProcessor %d.\nStep %d.\nRefinement %d.\n"
+ "Timestep %g.\nSpacestep %g.\nTime %g\n",
CCTK_MyProc(cctkGH),
MoL_Intermediate_Steps - *MoL_Intermediate_Step + 1,
*cctk_levfac,
@@ -135,7 +136,8 @@ void MoL_ICNAdd(CCTK_ARGUMENTS)
if (ierr)
{
CCTK_VWarn(0, __LINE__, __FILE__, "MoL",
- "The driver does not return group information for group '%s'.",
+ "The driver does not return group information "
+ "for group '%s'.",
CCTK_GroupName(groupindex));
}
arraytotalsize = 1;
@@ -220,7 +222,8 @@ void MoL_ICNAverage(CCTK_ARGUMENTS)
#endif
#ifdef MOLDEBUG
- printf("Inside ICN.\nProcessor %d.\nStep %d.\nRefinement %d.\nTimestep %g.\nSpacestep %g.\nTime %g\n",
+ printf("Inside ICN.\nProcessor %d.\nStep %d.\nRefinement %d.\n"
+ "Timestep %g.\nSpacestep %g.\nTime %g\n",
CCTK_MyProc(cctkGH),
MoL_Intermediate_Steps - *MoL_Intermediate_Step + 1,
*cctk_levfac,
@@ -263,7 +266,8 @@ void MoL_ICNAverage(CCTK_ARGUMENTS)
if (ierr)
{
CCTK_VWarn(0, __LINE__, __FILE__, "MoL",
- "The driver does not return group information for group '%s'.",
+ "The driver does not return group information "
+ "for group '%s'.",
CCTK_GroupName(groupindex));
}
arraytotalsize = 1;
diff --git a/src/IndexArrays.c b/src/IndexArrays.c
index 8376c24..6862122 100644
--- a/src/IndexArrays.c
+++ b/src/IndexArrays.c
@@ -111,7 +111,8 @@ void MoL_SetupIndexArrays(CCTK_ARGUMENTS)
sizeof(CCTK_INT));
if (!SandRVariableIndex)
{
- CCTK_WARN(0,"Failed to allocate the save and restore variable index array");
+ CCTK_WARN(0,"Failed to allocate the save and restore "
+ "variable index array");
}
@@ -138,14 +139,16 @@ void MoL_SetupIndexArrays(CCTK_ARGUMENTS)
sizeof(CCTK_INT));
if (!ConstrainedComplexVariableIndex)
{
- CCTK_WARN(0,"Failed to allocate the constrained complex variable index array");
+ CCTK_WARN(0,"Failed to allocate the constrained complex "
+ "variable index array");
}
SandRComplexVariableIndex = (CCTK_INT *)malloc(MoL_Num_ComplexSaveAndRestore_Vars *
sizeof(CCTK_INT));
if (!SandRComplexVariableIndex)
{
- CCTK_WARN(0,"Failed to allocate the save and restore complex variable index array");
+ CCTK_WARN(0,"Failed to allocate the save and restore complex "
+ "variable index array");
}
@@ -172,14 +175,16 @@ void MoL_SetupIndexArrays(CCTK_ARGUMENTS)
sizeof(CCTK_INT));
if (!ConstrainedArrayVariableIndex)
{
- CCTK_WARN(0,"Failed to allocate the constrained array variable index array");
+ CCTK_WARN(0,"Failed to allocate the constrained array "
+ "variable index array");
}
SandRArrayVariableIndex = (CCTK_INT *)malloc(MoL_Num_ArraySaveAndRestore_Vars *
sizeof(CCTK_INT));
if (!SandRArrayVariableIndex)
{
- CCTK_WARN(0,"Failed to allocate the save and restore array variable index array");
+ CCTK_WARN(0,"Failed to allocate the save and restore "
+ "array variable index array");
}
@@ -192,28 +197,32 @@ void MoL_SetupIndexArrays(CCTK_ARGUMENTS)
sizeof(CCTK_INT));
if (!EvolvedComplexArrayVariableIndex)
{
- CCTK_WARN(0,"Failed to allocate the evolved complex array variable index array");
+ CCTK_WARN(0,"Failed to allocate the evolved complex "
+ "array variable index array");
}
RHSComplexArrayVariableIndex = (CCTK_INT *)malloc(MoL_Num_ComplexArrayEvolved_Vars *
sizeof(CCTK_INT));
if (!RHSComplexArrayVariableIndex)
{
- CCTK_WARN(0,"Failed to allocate the RHS complex array variable index array");
+ CCTK_WARN(0,"Failed to allocate the RHS complex array "
+ "variable index array");
}
ConstrainedComplexArrayVariableIndex = (CCTK_INT *)malloc(MoL_Num_ComplexArrayConstrained_Vars *
sizeof(CCTK_INT));
if (!ConstrainedComplexArrayVariableIndex)
{
- CCTK_WARN(0,"Failed to allocate the constrained complex array variable index array");
+ CCTK_WARN(0,"Failed to allocate the constrained complex "
+ "array variable index array");
}
SandRComplexArrayVariableIndex = (CCTK_INT *)malloc(MoL_Num_ComplexArraySaveAndRestore_Vars *
sizeof(CCTK_INT));
if (!SandRComplexArrayVariableIndex)
{
- CCTK_WARN(0,"Failed to allocate the save and restore complex array variable index array");
+ CCTK_WARN(0,"Failed to allocate the save and restore "
+ "complex array variable index array");
}
infoline = (char *)malloc((strlen(Generic_Method_Descriptor)+100)*
diff --git a/src/InitialCopy.c b/src/InitialCopy.c
index 1092ddb..3f44eb7 100644
--- a/src/InitialCopy.c
+++ b/src/InitialCopy.c
@@ -137,7 +137,8 @@ void MoL_InitialCopy(CCTK_ARGUMENTS)
if (ierr)
{
CCTK_VWarn(0, __LINE__, __FILE__, "MoL",
- "The driver does not return group information for group '%s'.",
+ "The driver does not return group information "
+ "for group '%s'.",
CCTK_GroupName(groupindex));
}
arraytotalsize = 1;
@@ -291,8 +292,10 @@ void MoL_InitialCopy(CCTK_ARGUMENTS)
#endif
if (PreviousComplexVar && CurrentComplexVar && ScratchComplexVar)
{
- memcpy(ScratchComplexVar, CurrentComplexVar, totalsize * sizeof(CCTK_COMPLEX));
- memcpy(CurrentComplexVar, PreviousComplexVar, totalsize * sizeof(CCTK_COMPLEX));
+ memcpy(ScratchComplexVar, CurrentComplexVar, totalsize *
+ sizeof(CCTK_COMPLEX));
+ memcpy(CurrentComplexVar, PreviousComplexVar, totalsize *
+ sizeof(CCTK_COMPLEX));
}
else
{
@@ -496,55 +499,70 @@ void MoL_ReportNumberVariables(CCTK_ARGUMENTS)
DECLARE_CCTK_PARAMETERS;
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of evolved variables is %d. %d are registered.",
+ "The maximum number of evolved variables is %d. "
+ "%d are registered.",
MoL_Num_Evolved_Vars,MoLNumEvolvedVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of constrained variables is %d. %d are registered.",
+ "The maximum number of constrained variables is %d. "
+ "%d are registered.",
MoL_Num_Constrained_Vars,MoLNumConstrainedVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of SandR variables is %d. %d are registered.",
+ "The maximum number of SandR variables is %d. "
+ "%d are registered.",
MoL_Num_SaveAndRestore_Vars,MoLNumSandRVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of evolved complex variables is %d. %d are registered.",
+ "The maximum number of evolved complex variables is %d. "
+ "%d are registered.",
MoL_Num_ComplexEvolved_Vars,MoLNumEvolvedComplexVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of constrained complex variables is %d. %d are registered.",
+ "The maximum number of constrained complex variables is %d. "
+ "%d are registered.",
MoL_Num_ComplexConstrained_Vars,MoLNumConstrainedComplexVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of SandR complex variables is %d. %d are registered.",
+ "The maximum number of SandR complex variables is %d. "
+ "%d are registered.",
MoL_Num_ComplexSaveAndRestore_Vars,MoLNumSandRComplexVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of evolved array variables is %d. %d are registered.",
+ "The maximum number of evolved array variables is %d. "
+ "%d are registered.",
MoL_Num_ArrayEvolved_Vars,MoLNumEvolvedArrayVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of constrained array variables is %d. %d are registered.",
+ "The maximum number of constrained array variables is %d. "
+ "%d are registered.",
MoL_Num_ArrayConstrained_Vars,MoLNumConstrainedArrayVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of SandR array variables is %d. %d are registered.",
+ "The maximum number of SandR array variables is %d. "
+ "%d are registered.",
MoL_Num_ArraySaveAndRestore_Vars,MoLNumSandRArrayVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of evolved complex array variables is %d. %d are registered.",
- MoL_Num_ComplexArrayEvolved_Vars,MoLNumEvolvedComplexArrayVariables);
+ "The maximum number of evolved complex array variables is %d. "
+ "%d are registered.",
+ MoL_Num_ComplexArrayEvolved_Vars,
+ MoLNumEvolvedComplexArrayVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of constrained complex array variables is %d. %d are registered.",
- MoL_Num_ComplexArrayConstrained_Vars,MoLNumConstrainedComplexArrayVariables);
+ "The maximum number of constrained complex array "
+ "variables is %d. %d are registered.",
+ MoL_Num_ComplexArrayConstrained_Vars,
+ MoLNumConstrainedComplexArrayVariables);
CCTK_VInfo(CCTK_THORNSTRING,
- "The maximum number of SandR complex array variables is %d. %d are registered.",
- MoL_Num_ComplexArraySaveAndRestore_Vars,MoLNumSandRComplexArrayVariables);
+ "The maximum number of SandR complex array "
+ "variables is %d. %d are registered.",
+ MoL_Num_ComplexArraySaveAndRestore_Vars,
+ MoLNumSandRComplexArrayVariables);
CCTK_VInfo(CCTK_THORNSTRING,
"The maximum size of any array variables is %d.",
diff --git a/src/ParamCheck.c b/src/ParamCheck.c
index 01e6cbd..2b63422 100644
--- a/src/ParamCheck.c
+++ b/src/ParamCheck.c
@@ -71,7 +71,9 @@ int MoL_ParamCheck(CCTK_ARGUMENTS)
{
if (MoL_Num_Scratch_Levels < MoL_Intermediate_Steps - 1)
{
- CCTK_PARAMWARN("When using a generic solver the number of scratch levels must be at least the number of intermediate steps - 1");
+ CCTK_PARAMWARN("When using a generic solver the number "
+ "of scratch levels must be at least the "
+ "number of intermediate steps - 1");
}
if (CCTK_Equals(Generic_Type, "Table"))
{
@@ -79,7 +81,8 @@ int MoL_ParamCheck(CCTK_ARGUMENTS)
Util_TableCreateFromString(Generic_Method_Descriptor);
if (options_table < 0)
{
- CCTK_WARN(0, "Failed to create table from Generic_Method_Descriptor!");
+ CCTK_WARN(0, "Failed to create table from "
+ "Generic_Method_Descriptor!");
}
ierr = Util_TableGetInt(options_table,
&GenericIntermediateSteps,
@@ -88,7 +91,9 @@ int MoL_ParamCheck(CCTK_ARGUMENTS)
{
if (ierr == UTIL_ERROR_TABLE_NO_SUCH_KEY)
{
- CCTK_WARN(0, "When using the generic table options you must set \"GenericIntermediateSteps\" in the options table");
+ CCTK_WARN(0, "When using the generic table options "
+ "you must set \"GenericIntermediateSteps\" in "
+ "the options table");
}
else
{
@@ -97,7 +102,8 @@ int MoL_ParamCheck(CCTK_ARGUMENTS)
}
if (MoL_Intermediate_Steps != GenericIntermediateSteps)
{
- CCTK_PARAMWARN("The number of intermediate steps must equal the number specified in the table options!");
+ CCTK_PARAMWARN("The number of intermediate steps must "
+ "equal the number specified in the table options!");
}
ierr = Util_TableDestroy(options_table);
}
@@ -105,12 +111,14 @@ int MoL_ParamCheck(CCTK_ARGUMENTS)
if ( (CCTK_Equals(ODE_Method, "RK2"))&&(!(MoL_Intermediate_Steps == 2)) )
{
- CCTK_PARAMWARN("When using the efficient RK2 evolver the number of intermediate steps must be 2");
+ CCTK_PARAMWARN("When using the efficient RK2 evolver the "
+ "number of intermediate steps must be 2");
}
if ( (CCTK_Equals(ODE_Method, "RK3"))&&(!(MoL_Intermediate_Steps == 3)) )
{
- CCTK_PARAMWARN("When using the efficient RK3 evolver the number of intermediate steps must be 3");
+ CCTK_PARAMWARN("When using the efficient RK3 evolver the "
+ "number of intermediate steps must be 3");
}
return 0;
diff --git a/src/RK2.c b/src/RK2.c
index db536ba..eef8ce7 100644
--- a/src/RK2.c
+++ b/src/RK2.c
@@ -91,7 +91,8 @@ void MoL_RK2Add(CCTK_ARGUMENTS)
#endif
#ifdef MOLDEBUG
- printf("Inside RK2.\nStep %d.\nRefinement %d.\nTimestep %g.\nSpacestep %g.\nTime %g\n",
+ printf("Inside RK2.\nStep %d.\nRefinement %d.\nTimestep %g.\n"
+ "Spacestep %g.\nTime %g\n",
MoL_Intermediate_Steps - *MoL_Intermediate_Step + 1,
*cctk_levfac,
CCTK_DELTA_TIME,
@@ -131,7 +132,8 @@ void MoL_RK2Add(CCTK_ARGUMENTS)
if (ierr)
{
CCTK_VWarn(0, __LINE__, __FILE__, "MoL",
- "The driver does not return group information for group '%s'.",
+ "The driver does not return group information "
+ "for group '%s'.",
CCTK_GroupName(groupindex));
}
arraytotalsize = 1;
@@ -202,7 +204,8 @@ void MoL_RK2Add(CCTK_ARGUMENTS)
if (ierr)
{
CCTK_VWarn(0, __LINE__, __FILE__, "MoL",
- "The driver does not return group information for group '%s'.",
+ "The driver does not return group information "
+ "for group '%s'.",
CCTK_GroupName(groupindex));
}
arraytotalsize = 1;
@@ -235,7 +238,10 @@ void MoL_RK2Add(CCTK_ARGUMENTS)
{
UpdateComplexVar[index] =
CCTK_CmplxAdd(CCTK_CmplxMul(Complex_Half,
- (CCTK_CmplxAdd(OldComplexVar[index], UpdateComplexVar[index]))), CCTK_CmplxMul(Complex_Delta_Time, RHSComplexVar[index]));
+ (CCTK_CmplxAdd(OldComplexVar[index],
+ UpdateComplexVar[index]))),
+ CCTK_CmplxMul(Complex_Delta_Time,
+ RHSComplexVar[index]));
}
}
@@ -245,7 +251,9 @@ void MoL_RK2Add(CCTK_ARGUMENTS)
}
default:
{
- CCTK_WARN(0, "RK2 expects MoL_Intermediate_Step to be in [1,2]. This should be caught at ParamCheck - bug Ian!");
+ CCTK_WARN(0, "RK2 expects MoL_Intermediate_Step to be "
+ "in [1,2]. This should be caught at ParamCheck - "
+ "bug Ian!");
break;
}
diff --git a/src/RK3.c b/src/RK3.c
index b636698..5c52d0c 100644
--- a/src/RK3.c
+++ b/src/RK3.c
@@ -96,7 +96,8 @@ void MoL_RK3Add(CCTK_ARGUMENTS)
#endif
#ifdef MOLDEBUG
- printf("Inside RK3.\nStep %d.\nRefinement %d.\nTimestep %g.\nSpacestep %g.\nTime %g\n",
+ printf("Inside RK3.\nStep %d.\nRefinement %d.\nTimestep %g.\n"
+ "Spacestep %g.\nTime %g\n",
MoL_Intermediate_Steps - *MoL_Intermediate_Step + 1,
*cctk_levfac,
CCTK_DELTA_TIME,
@@ -136,7 +137,8 @@ void MoL_RK3Add(CCTK_ARGUMENTS)
if (ierr)
{
CCTK_VWarn(0, __LINE__, __FILE__, "MoL",
- "The driver does not return group information for group '%s'.",
+ "The driver does not return group information "
+ "for group '%s'.",
CCTK_GroupName(groupindex));
}
arraytotalsize = 1;
@@ -208,7 +210,8 @@ void MoL_RK3Add(CCTK_ARGUMENTS)
if (ierr)
{
CCTK_VWarn(0, __LINE__, __FILE__, "MoL",
- "The driver does not return group information for group '%s'.",
+ "The driver does not return group information "
+ "for group '%s'.",
CCTK_GroupName(groupindex));
}
arraytotalsize = 1;
@@ -286,7 +289,8 @@ void MoL_RK3Add(CCTK_ARGUMENTS)
if (ierr)
{
CCTK_VWarn(0, __LINE__, __FILE__, "MoL",
- "The driver does not return group information for group '%s'.",
+ "The driver does not return group information "
+ "for group '%s'.",
CCTK_GroupName(groupindex));
}
arraytotalsize = 1;
@@ -309,7 +313,7 @@ void MoL_RK3Add(CCTK_ARGUMENTS)
for (var = 0; var < MoLNumEvolvedComplexVariables; var++)
{
OldComplexVar = (CCTK_COMPLEX*)CCTK_VarDataPtrI(cctkGH, 1,
- EvolvedComplexVariableIndex[var]);
+ EvolvedComplexVariableIndex[var]);
UpdateComplexVar = (CCTK_COMPLEX*)CCTK_VarDataPtrI(cctkGH, 0,
EvolvedComplexVariableIndex[var]);
RHSComplexVar = (CCTK_COMPLEX*)CCTK_VarDataPtrI(cctkGH, 0,
@@ -333,7 +337,8 @@ void MoL_RK3Add(CCTK_ARGUMENTS)
}
default:
{
- CCTK_WARN(0, "RK3 expects MoL_Intermediate_Step to be in [1,3]. This should be caught at ParamCheck - bug Ian!");
+ CCTK_WARN(0, "RK3 expects MoL_Intermediate_Step to be "
+ "in [1,3]. This should be caught at ParamCheck - bug Ian!");
break;
}
diff --git a/src/RKCoefficients.c b/src/RKCoefficients.c
index cae00b2..1f0412d 100644
--- a/src/RKCoefficients.c
+++ b/src/RKCoefficients.c
@@ -96,7 +96,8 @@ int MoL_SetupRKCoefficients(CCTK_ARGUMENTS)
{
if (MoL_Num_Scratch_Levels < MoL_Intermediate_Steps - 1)
{
- CCTK_WARN(0, "For generic RK methods, MoL_Num_Scratch_Levels should be at least MoL_Intermediate_Steps - 1");
+ CCTK_WARN(0, "For generic RK methods, MoL_Num_Scratch_Levels "
+ "should be at least MoL_Intermediate_Steps - 1");
}
for (i = 0; i < MoL_Intermediate_Steps; i++)
{
@@ -147,20 +148,23 @@ int MoL_SetupRKCoefficients(CCTK_ARGUMENTS)
}
else
{
- CCTK_WARN(0, "RKCoefficients cannot do generic RK methods with MoL_Intermediate_Steps greater than 4");
+ CCTK_WARN(0, "RKCoefficients cannot do generic RK methods "
+ "with MoL_Intermediate_Steps greater than 4");
}
}
else if (CCTK_Equals(Generic_Type,"Table"))
{
if (MoL_Num_Scratch_Levels < MoL_Intermediate_Steps - 1)
{
- CCTK_WARN(0, "For generic methods, MoL_Num_Scratch_Levels should be at least MoL_Intermediate_Steps - 1");
+ CCTK_WARN(0, "For generic methods, MoL_Num_Scratch_Levels "
+ "should be at least MoL_Intermediate_Steps - 1");
}
options_table =
Util_TableCreateFromString(Generic_Method_Descriptor);
if (options_table < 0)
{
- CCTK_WARN(0, "Failed to create table from Generic_Method_Descriptor!");
+ CCTK_WARN(0, "Failed to create table from "
+ "Generic_Method_Descriptor!");
}
ierr = Util_TableGetRealArray(options_table,
(MoL_Num_Scratch_Levels + 1) *
@@ -171,11 +175,13 @@ int MoL_SetupRKCoefficients(CCTK_ARGUMENTS)
{
if (ierr >= 0)
{
- CCTK_WARN(0, "Insufficient elements in the specified GenericAlphaCoeffs array");
+ CCTK_WARN(0, "Insufficient elements in the specified "
+ "GenericAlphaCoeffs array");
}
else if (ierr == UTIL_ERROR_TABLE_NO_SUCH_KEY)
{
- CCTK_WARN(0, "When using the generic table options you must set \"GenericAlphaCoeffs\" in the options table");
+ CCTK_WARN(0, "When using the generic table options you "
+ "must set \"GenericAlphaCoeffs\" in the options table");
}
else
{
@@ -190,11 +196,13 @@ int MoL_SetupRKCoefficients(CCTK_ARGUMENTS)
{
if (ierr >= 0)
{
- CCTK_WARN(0, "Insufficient elements in the specified GenericBetaCoeffs array");
+ CCTK_WARN(0, "Insufficient elements in the specified "
+ "GenericBetaCoeffs array");
}
else if (ierr == UTIL_ERROR_TABLE_NO_SUCH_KEY)
{
- CCTK_WARN(0, "When using the generic table options you must set \"GenericBetaCoeffs\" in the options table");
+ CCTK_WARN(0, "When using the generic table options you "
+ "must set \"GenericBetaCoeffs\" in the options table");
}
else
{
@@ -205,7 +213,8 @@ int MoL_SetupRKCoefficients(CCTK_ARGUMENTS)
}
else
{
- CCTK_WARN(0, "RKCoefficients does not recognize the value of Generic_Type");
+ CCTK_WARN(0, "RKCoefficients does not recognize the value "
+ "of Generic_Type");
}
return 0;
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);
}
diff --git a/src/SetTime.c b/src/SetTime.c
index 5c2a213..fb12ca9 100644
--- a/src/SetTime.c
+++ b/src/SetTime.c
@@ -197,7 +197,8 @@ int MoL_ResetTime(CCTK_ARGUMENTS)
}
}
#ifdef MOLDEBUG
- printf("MoL has once more reset t (%d): %f.\n", *MoL_Intermediate_Step, cctkGH->cctk_time);
+ printf("MoL has once more reset t (%d): %f.\n",
+ *MoL_Intermediate_Step, cctkGH->cctk_time);
fflush(stdout);
#endif
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-18 15:17:38 +0000