diff options
Diffstat (limited to 'src/Registration.c')
-rw-r--r-- | src/Registration.c | 40 |
1 files changed, 38 insertions, 2 deletions
diff --git a/src/Registration.c b/src/Registration.c index 71c98ee..13d5d12 100644 --- a/src/Registration.c +++ b/src/Registration.c @@ -1113,7 +1113,11 @@ CCTK_INT MoL_RegisterEvolvedComplex(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex) DECLARE_CCTK_PARAMETERS; - CCTK_INT /* ierr, */ index, varused, numtimelevs1, numtimelevs2; + /* FIXME */ + +#ifdef MOLDOESCOMPLEX + + CCTK_INT index, varused, numtimelevs1, numtimelevs2; #ifdef MOLDEBUG printf("Arrived in MoLRegisterEvolvedComplex \n"); @@ -1240,6 +1244,8 @@ CCTK_INT MoL_RegisterEvolvedComplex(CCTK_INT EvolvedIndex, CCTK_INT RHSIndex) MoLNumSandRComplexVariables--; } +#endif /* FIXME */ + return 0; } @@ -1249,6 +1255,10 @@ CCTK_INT MoL_RegisterConstrainedComplex(CCTK_INT ConstrainedIndex) DECLARE_CCTK_PARAMETERS; + /* FIXME */ + +#ifdef MOLDOESCOMPLEX + CCTK_INT numtimelevs, varused, evolved, index; if (!(CCTK_GroupTypeFromVarI(ConstrainedIndex)==CCTK_GF)) @@ -1328,6 +1338,8 @@ CCTK_INT MoL_RegisterConstrainedComplex(CCTK_INT ConstrainedIndex) } +#endif /* FIXME */ + return 0; } @@ -1337,6 +1349,10 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplex(CCTK_INT SandRIndex) DECLARE_CCTK_PARAMETERS; + /* FIXME */ + +#ifdef MOLDOESCOMPLEX + CCTK_INT numtimelevs, varused, evolved; if (!(CCTK_GroupTypeFromVarI(SandRIndex)==CCTK_GF)) @@ -1404,6 +1420,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplex(CCTK_INT SandRIndex) } +#endif /* FIXME */ + return 0; } @@ -1912,7 +1930,11 @@ CCTK_INT MoL_RegisterEvolvedComplexArray(CCTK_INT EvolvedIndex, DECLARE_CCTK_PARAMETERS; - CCTK_INT /* ierr, */ index, varused, numtimelevs1, numtimelevs2; + /* FIXME */ + +#ifdef MOLDOESCOMPLEX + + CCTK_INT index, varused, numtimelevs1, numtimelevs2; #ifdef MOLDEBUG printf("Arrived in MoLRegisterEvolvedComplexArray \n"); @@ -2033,6 +2055,8 @@ CCTK_INT MoL_RegisterEvolvedComplexArray(CCTK_INT EvolvedIndex, MoLNumSandRComplexArrayVariables--; } +#endif /* FIXME */ + return 0; } @@ -2042,6 +2066,10 @@ CCTK_INT MoL_RegisterConstrainedComplexArray(CCTK_INT ConstrainedIndex) DECLARE_CCTK_PARAMETERS; + /* FIXME */ + +#ifdef MOLDOESCOMPLEX + CCTK_INT numtimelevs, varused, evolved, index; if (!(CCTK_GroupTypeFromVarI(ConstrainedIndex)==CCTK_ARRAY)) @@ -2121,6 +2149,8 @@ CCTK_INT MoL_RegisterConstrainedComplexArray(CCTK_INT ConstrainedIndex) } +#endif + return 0; } @@ -2130,6 +2160,10 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplexArray(CCTK_INT SandRIndex) DECLARE_CCTK_PARAMETERS; + /* FIXME */ + +#ifdef MOLDOESCOMPLEX + CCTK_INT numtimelevs, varused, evolved; if (!(CCTK_GroupTypeFromVarI(SandRIndex)==CCTK_ARRAY)) @@ -2197,6 +2231,8 @@ CCTK_INT MoL_RegisterSaveAndRestoreComplexArray(CCTK_INT SandRIndex) } +#endif + return 0; } |