aboutsummaryrefslogtreecommitdiff
path: root/src/GenericRK.c
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/GenericRK.c
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/GenericRK.c')
-rw-r--r--src/GenericRK.c35
1 files changed, 23 insertions, 12 deletions
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++)