diff options
-rw-r--r-- | src/ChangeType.c | 58 | ||||
-rw-r--r-- | src/GenericRK.c | 35 | ||||
-rw-r--r-- | src/ICN.c | 12 | ||||
-rw-r--r-- | src/IndexArrays.c | 27 | ||||
-rw-r--r-- | src/InitialCopy.c | 54 | ||||
-rw-r--r-- | src/ParamCheck.c | 20 | ||||
-rw-r--r-- | src/RK2.c | 18 | ||||
-rw-r--r-- | src/RK3.c | 17 | ||||
-rw-r--r-- | src/RKCoefficients.c | 27 | ||||
-rw-r--r-- | src/Registration.c | 501 | ||||
-rw-r--r-- | src/SetTime.c | 3 |
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++) @@ -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; @@ -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; } @@ -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 |