From b32ca03ec667173fef1c91928059de98912e0b15 Mon Sep 17 00:00:00 2001 From: lanfer Date: Thu, 2 Mar 2000 15:44:41 +0000 Subject: allow exponential format in output git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOBasic/trunk@39 b589c3ab-70e8-4b4d-a09f-cba2dd200880 --- src/Write.c | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'src/Write.c') diff --git a/src/Write.c b/src/Write.c index d10d69e..322cc62 100644 --- a/src/Write.c +++ b/src/Write.c @@ -27,7 +27,10 @@ void IOBasic_Write (cGH *GH, int index, const char *alias) FILE *file; CCTK_REAL *data_real; CCTK_INT *data_int; + int decnot; + /* check if decimal or exponential notation desired*/ + decnot=CCTK_Equals(out_format,"f")?1:0; /* first, check if variable has storage assigned */ if (! CCTK_QueryGroupStorageI (GH, CCTK_GroupIndexFromVarI (index))) { @@ -82,11 +85,17 @@ void IOBasic_Write (cGH *GH, int index, const char *alias) switch (CCTK_VarTypeI(index)) { case CCTK_VARIABLE_REAL: data_real = ((CCTK_REAL ***) GH->data) [index][0]; - fprintf(file,"%f %25.13f\n",GH->cctk_time,*data_real); + if (decnot) + fprintf(file,"%f %25.13f\n",GH->cctk_time,*data_real); + else + fprintf(file,"%e %25.13e\n",GH->cctk_time,*data_real); break; case CCTK_VARIABLE_INT: data_int = ((CCTK_INT ***) GH->data) [index][0]; - fprintf(file,"%f %d\n",GH->cctk_time,*data_int); + if (decnot) + fprintf(file,"%f %d\n",GH->cctk_time,*data_int); + else + fprintf(file,"%e %d\n",GH->cctk_time,*data_int); break; default: CCTK_WARN (3, "Unsupported data type"); -- cgit v1.2.3