diff options
| author | lanfer <lanfer@b589c3ab-70e8-4b4d-a09f-cba2dd200880> | 2000-03-02 15:44:41 +0000 |
|---|---|---|
| committer | lanfer <lanfer@b589c3ab-70e8-4b4d-a09f-cba2dd200880> | 2000-03-02 15:44:41 +0000 |
| commit | b32ca03ec667173fef1c91928059de98912e0b15 (patch) | |
| tree | bc7c8a335d79b1c43a073e555053fdb00324fca8 /src/Write.c | |
| parent | 5bbae845df0f9f1202ad7ac5cc788d2291294a8e (diff) | |
allow exponential format in output
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/IOBasic/trunk@39 b589c3ab-70e8-4b4d-a09f-cba2dd200880
Diffstat (limited to 'src/Write.c')
| -rw-r--r-- | src/Write.c | 13 |
1 files changed, 11 insertions, 2 deletions
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"); |