aboutsummaryrefslogtreecommitdiff
path: root/src/RK2.c
diff options
context:
space:
mode:
authorhawke <hawke@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b>2003-05-24 14:34:37 +0000
committerhawke <hawke@578cdeb0-5ea1-4b81-8215-5a3b8777ee0b>2003-05-24 14:34:37 +0000
commit627caa6bdf1e4b6db96a799454303d8b2e7935fe (patch)
tree1664fad214476385f5c296f081ee13bb2b8db58b /src/RK2.c
parentf3a2829b5b32b6fad8383ac16c16ac6c2f58b696 (diff)
Comment or ifdef out complex variable support as Carpet doesn't like it.
To use the complex variable stuff right now you need to uncomment the appropriate groups in the interface.ccl and #def MOLDOESCOMPLEX in the appropriate files. It still probably won't work. git-svn-id: http://svn.cactuscode.org/arrangements/CactusNumerical/MoL/trunk@13 578cdeb0-5ea1-4b81-8215-5a3b8777ee0b
Diffstat (limited to 'src/RK2.c')
-rw-r--r--src/RK2.c20
1 files changed, 20 insertions, 0 deletions
diff --git a/src/RK2.c b/src/RK2.c
index 34232be..1b88f78 100644
--- a/src/RK2.c
+++ b/src/RK2.c
@@ -78,12 +78,18 @@ void MoL_RK2Add(CCTK_ARGUMENTS)
CCTK_REAL *UpdateVar;
CCTK_REAL *RHSVar;
+ /* FIXME */
+
+#ifdef MOLDOESCOMPLEX
+
CCTK_COMPLEX *OldComplexVar;
CCTK_COMPLEX *UpdateComplexVar;
CCTK_COMPLEX *RHSComplexVar;
CCTK_COMPLEX Complex_Delta_Time = CCTK_Cmplx(CCTK_DELTA_TIME, 0);
CCTK_COMPLEX Complex_Half = CCTK_Cmplx(0.5, 0);
+#endif
+
#ifdef MOLDEBUG
printf("Inside RK2.\nStep %d.\nRefinement %d.\nTimestep %g.\nSpacestep %g.\nTime %g\n",
MoL_Intermediate_Steps - *MoL_Intermediate_Step + 1,
@@ -140,6 +146,10 @@ void MoL_RK2Add(CCTK_ARGUMENTS)
}
}
+ /* FIXME */
+
+#ifdef MOLDOESCOMPLEX
+
for (var = 0; var < MoLNumEvolvedComplexVariables; var++)
{
UpdateComplexVar = (CCTK_COMPLEX*)CCTK_VarDataPtrI(cctkGH, 0,
@@ -154,6 +164,9 @@ void MoL_RK2Add(CCTK_ARGUMENTS)
RHSComplexVar[index]));
}
}
+
+#endif
+
break;
}
case 1:
@@ -205,6 +218,10 @@ void MoL_RK2Add(CCTK_ARGUMENTS)
}
}
+ /* FIXME */
+
+#ifdef MOLDOESCOMPLEX
+
for (var = 0; var < MoLNumEvolvedComplexVariables; var++)
{
OldComplexVar = (CCTK_COMPLEX*)CCTK_VarDataPtrI(cctkGH, 1,
@@ -221,6 +238,9 @@ void MoL_RK2Add(CCTK_ARGUMENTS)
(CCTK_CmplxAdd(OldComplexVar[index], UpdateComplexVar[index]))), CCTK_CmplxMul(Complex_Delta_Time, RHSComplexVar[index]));
}
}
+
+#endif
+
break;
}
default: