diff options
author | hawke <hawke@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b> | 2003-07-24 13:11:59 +0000 |
---|---|---|
committer | hawke <hawke@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b> | 2003-07-24 13:11:59 +0000 |
commit | b18926e6de794bb786988f3f61b2943ffbd6da1a (patch) | |
tree | 3bfaebc25c4398b5ea2ae2a056cb0ab72bdce0f2 /src/GenericRK.c | |
parent | 3b7f68b36f2f2ffd862234b6c5b9e70a37953f42 (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.c | 35 |
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++) |