diff options
| author | hawke <hawke@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b> | 2004-02-28 09:27:34 +0000 |
|---|---|---|
| committer | hawke <hawke@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b> | 2004-02-28 09:27:34 +0000 |
| commit | f1347e91aa3f76f06d37853afe869b9168a34b1e (patch) | |
| tree | 1eddc03ab020619095ada522f34e32661c09217c /src/GenericRK.c | |
| parent | e782aae1339a75b1fe1d8dcc95392ae95aada03a (diff) | |
Correct a bug in storing the scratch space levels. This will fix RK4.
git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/MoL/trunk@49 578cdeb0-5ea1-4b81-8215-5a3b8777ee0b
Diffstat (limited to 'src/GenericRK.c')
| -rw-r--r-- | src/GenericRK.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/GenericRK.c b/src/GenericRK.c index af331e0..308ca74 100644 --- a/src/GenericRK.c +++ b/src/GenericRK.c @@ -118,7 +118,7 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS) EvolvedVariableIndex[var]); RHSVar = (CCTK_REAL *)CCTK_VarDataPtrI(cctkGH, 0, RHSVariableIndex[var]); - +/* #define MOLDEBUG */ #ifdef MOLDEBUG printf("In generic RK. Variable %d (%s). RHS %d (%s).\n", EvolvedVariableIndex[var], @@ -159,7 +159,8 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS) */ ScratchVar = CCTK_VarDataPtrI(cctkGH, 0, CCTK_FirstVarIndex("MOL::SCRATCHSPACE") - + var); + + var + + MoL_Num_Evolved_Vars * scratchindex); #ifdef MOLDEBUG printf("Reading from scratch space, initial address %ld index %d\n", ScratchVar, (var * MoL_Num_Scratch_Levels + @@ -207,7 +208,8 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS) */ ScratchVar = CCTK_VarDataPtrI(cctkGH, 0, CCTK_FirstVarIndex("MOL::SCRATCHSPACE") - + var); + + var + + MoL_Num_Evolved_Vars * (MoL_Intermediate_Steps - (*MoL_Intermediate_Step))); #ifdef MOLDEBUG printf("Writing to scratch space, initial address %ld, " "index %d, totalsize %d \n", |