From a21b899e4f32882635fb5cf58bfb4d36b055d0cf Mon Sep 17 00:00:00 2001 From: allen Date: Tue, 20 Jun 2000 09:10:51 +0000 Subject: Using ParameterGet git-svn-id: http://svn.cactuscode.org/flesh/trunk@1684 17b73243-c579-4c4c-a9d2-2d5706c11dac --- src/main/CactusDefaultEvolve.c | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) (limited to 'src/main/CactusDefaultEvolve.c') diff --git a/src/main/CactusDefaultEvolve.c b/src/main/CactusDefaultEvolve.c index 26552dc6..056549b8 100644 --- a/src/main/CactusDefaultEvolve.c +++ b/src/main/CactusDefaultEvolve.c @@ -13,7 +13,7 @@ #include #include "cctk_Flesh.h" -#include "cctk_Parameters.h" +#include "cctk_Parameter.h" #include "CactusIOFunctions.h" @@ -124,8 +124,8 @@ int CactusDefaultEvolve(tFleshConfig *config) /*** a Traverse with CCTK_ANALYSIS ***/ ForallConvLevels(iteration, convergence_level) { - CCTK_Traverse(config->GH[convergence_level], "CCTK_ANALYSIS"); - CCTK_OutputGH(config->GH[convergence_level]); + CCTK_Traverse(config->GH[convergence_level], "CCTK_ANALYSIS"); + CCTK_OutputGH(config->GH[convergence_level]); } EndForallConvLevels; @@ -224,7 +224,17 @@ int CactusDefaultEvolve(tFleshConfig *config) @@*/ static int DoneMainLoop (CCTK_REAL cctk_time, int iteration) { - DECLARE_CCTK_PARAMETERS + int param_type; + CCTK_INT cctk_itlast; + CCTK_REAL cctk_initial_time; + CCTK_REAL cctk_final_time; + + cctk_initial_time = (*(CCTK_REAL *)CCTK_ParameterGet("cctk_initial_time", + "Cactus",¶m_type)); + cctk_final_time = (*(CCTK_REAL *)CCTK_ParameterGet("cctk_final_time", + "Cactus",¶m_type)); + cctk_itlast = (*(CCTK_INT *)CCTK_ParameterGet("cctk_itlast", + "Cactus",¶m_type)); return (! (iteration < cctk_itlast || (cctk_final_time > cctk_initial_time ? @@ -255,7 +265,6 @@ static int StepGH(cGH *GH) CCTK_Traverse(GH, "CCTK_PRESTEP"); CCTK_Traverse(GH, "CCTK_EVOL"); - /* Advance GH->time AFTER evolving */ GH->cctk_time = GH->cctk_time + GH->cctk_delta_time; -- cgit v1.2.3