diff options
Diffstat (limited to 'src/ChangeType.c')
-rw-r--r-- | src/ChangeType.c | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/src/ChangeType.c b/src/ChangeType.c index 966445e..9361f3a 100644 --- a/src/ChangeType.c +++ b/src/ChangeType.c @@ -164,6 +164,11 @@ CCTK_INT MoL_ChangeToEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex) EvolvedVariableIndex[MoLNumEvolvedVariables] = EvolvedIndex; RHSVariableIndex[MoLNumEvolvedVariables] = RHSIndex; MoLNumEvolvedVariables++; +#ifdef MOLDEBUG + printf("Changing (unknown): vars %d var %d (%s).\n", + MoLNumEvolvedVariables, EvolvedIndex, + CCTK_VarName(EvolvedIndex)); +#endif break; } @@ -187,9 +192,14 @@ CCTK_INT MoL_ChangeToEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex) ConstrainedVariableIndex[index] = ConstrainedVariableIndex[index+1]; } MoLNumConstrainedVariables--; - EvolvedVariableIndex[index] = EvolvedIndex; - RHSVariableIndex[index] = RHSIndex; + EvolvedVariableIndex[MoLNumEvolvedVariables] = EvolvedIndex; + RHSVariableIndex[MoLNumEvolvedVariables] = RHSIndex; MoLNumEvolvedVariables++; +#ifdef MOLDEBUG + printf("Changing (constrained): vars %d var %d (%s).\n", + MoLNumEvolvedVariables, EvolvedIndex, + CCTK_VarName(EvolvedIndex)); +#endif break; } @@ -206,9 +216,14 @@ CCTK_INT MoL_ChangeToEvolved(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex) SandRVariableIndex[index] = SandRVariableIndex[index+1]; } MoLNumSandRVariables--; - EvolvedVariableIndex[index] = EvolvedIndex; - RHSVariableIndex[index] = RHSIndex; + EvolvedVariableIndex[MoLNumEvolvedVariables] = EvolvedIndex; + RHSVariableIndex[MoLNumEvolvedVariables] = RHSIndex; MoLNumEvolvedVariables++; +#ifdef MOLDEBUG + printf("Changing (SandR): vars %d var %d (%s).\n", + MoLNumEvolvedVariables, EvolvedIndex, + CCTK_VarName(EvolvedIndex)); +#endif break; } |