diff options
Diffstat (limited to 'src/OutputScalar.c')
| -rw-r--r-- | src/OutputScalar.c | 34 |
1 files changed, 25 insertions, 9 deletions
diff --git a/src/OutputScalar.c b/src/OutputScalar.c index ed9c149..6e23774 100644 --- a/src/OutputScalar.c +++ b/src/OutputScalar.c @@ -15,6 +15,7 @@ #include "cctk.h" #include "cctk_Parameters.h" +#include "util_String.h" #include "iobasicGH.h" static const char *rcsid = "$Header$"; @@ -288,9 +289,9 @@ int IOBasic_TriggerScalarOutput (cGH *GH, int vindex) static void CheckSteerableParameters (iobasicGH *myGH) { DECLARE_CCTK_PARAMETERS - int out_old; + int i, num_vars, out_old; int times_set; - int i; + char *fullname, *msg; static int outScalar_vars_lastset = -1; @@ -316,20 +317,35 @@ static void CheckSteerableParameters (iobasicGH *myGH) times_set = CCTK_ParameterQueryTimesSet ("outScalar_vars", CCTK_THORNSTRING); if (times_set != outScalar_vars_lastset) { - memset (myGH->do_outScalar, 0, CCTK_NumVars ()); + num_vars = CCTK_NumVars (); + memset (myGH->do_outScalar, 0, num_vars); CCTK_TraverseString (outScalar_vars, SetOutputFlag, myGH->do_outScalar, CCTK_GROUP_OR_VAR); if (CCTK_Equals (newverbose, "standard") || CCTK_Equals (newverbose, "full")) { - for (i=0;i<CCTK_NumVars();i++) + msg = NULL; + for (i = 0; i < num_vars; i++) { - if (myGH->do_outScalar[i]) - { - CCTK_VInfo (CCTK_THORNSTRING, - "Scalar: Output requested for %s",CCTK_FullName(i)); - } + if (myGH->do_outScalar[i]) + { + fullname = CCTK_FullName (i); + if (! msg) + { + Util_asprintf (&msg, "Scalar: Output requested for %s", fullname); + } + else + { + Util_asprintf (&msg, "%s %s", msg, fullname); + } + free (fullname); + } + } + if (msg) + { + CCTK_INFO (msg); + free (msg); } } |