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

1 files changed, 22 insertions, 2 deletions

diff --git a/src/GenericRK.c b/src/GenericRK.c
index d1e3bc8..417f2e4 100644
--- a/src/GenericRK.c
+++ b/src/GenericRK.c
@@ -75,11 +75,17 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
   CCTK_INT groupindex, ierr;
   CCTK_INT arraytotalsize, arraydim;
 
+  /* FIXME */
+
+#ifdef MOLDOESCOMPLEX
+
   CCTK_COMPLEX Complex_alpha, Complex_beta, Complex_Delta_Time;
   CCTK_COMPLEX *UpdateComplexVar;
   CCTK_COMPLEX *RHSComplexVar;
   CCTK_COMPLEX *ScratchComplexVar;
 
+#endif
+
   CCTK_INT index, var, scratchstep, alphaindex, scratchindex;
   CCTK_INT totalsize;
   CCTK_REAL alpha, beta;
@@ -88,13 +94,19 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
   CCTK_REAL *ScratchVar;
 
   totalsize = cctk_lsh[0] * cctk_lsh[1] * cctk_lsh[2];
-  
-  Complex_Delta_Time = CCTK_Cmplx((*Original_Delta_Time), 0);
 
   beta = RKBetaCoefficients[MoL_Intermediate_Steps - 
                            (*MoL_Intermediate_Step)];
+
+  /* FIXME */
+
+#ifdef MOLDOESCOMPLEX
+  
+  Complex_Delta_Time = CCTK_Cmplx((*Original_Delta_Time), 0);
   Complex_beta = CCTK_Cmplx(beta, 0);
 
+#endif
+
   /* Real GFs */
 
   for (var = 0; var < MoLNumEvolvedVariables; var++)
@@ -193,6 +205,10 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
 
   /* Complex GFs */
 
+  /* FIXME */
+
+#ifdef MOLDOESCOMPLEX
+
   for (var = 0; var < MoLNumEvolvedComplexVariables; var++)
   {
     
@@ -262,6 +278,10 @@ void MoL_GenericRKAdd(CCTK_ARGUMENTS)
     }
   }
 
+  /* FIXME */
+
+#endif
+
   /* Real arrays */
 
   for (var = 0; var < MoLNumEvolvedArrayVariables; var++)