From 7cd050912443d94120cce214b11964b7dc713cd7 Mon Sep 17 00:00:00 2001 From: Steven Roberts Date: Fri, 28 Jun 2024 22:16:24 -0700 Subject: [PATCH] Switch Butcher table to 'e' format --- src/arkode/arkode_butcher.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/arkode/arkode_butcher.c b/src/arkode/arkode_butcher.c index 71236b3376..3ab0e7e2f5 100644 --- a/src/arkode/arkode_butcher.c +++ b/src/arkode/arkode_butcher.c @@ -392,7 +392,7 @@ void ARKodeButcherTable_Write(ARKodeButcherTable B, FILE* outfile) fprintf(outfile, " "); for (j = 0; j < B->stages; j++) { - fprintf(outfile, SUN_FORMAT_G " ", B->A[i][j]); + fprintf(outfile, SUN_FORMAT_E " ", B->A[i][j]); } fprintf(outfile, "\n"); } @@ -400,14 +400,14 @@ void ARKodeButcherTable_Write(ARKodeButcherTable B, FILE* outfile) fprintf(outfile, " c = "); for (i = 0; i < B->stages; i++) { - fprintf(outfile, SUN_FORMAT_G " ", B->c[i]); + fprintf(outfile, SUN_FORMAT_E " ", B->c[i]); } fprintf(outfile, "\n"); fprintf(outfile, " b = "); for (i = 0; i < B->stages; i++) { - fprintf(outfile, SUN_FORMAT_G " ", B->b[i]); + fprintf(outfile, SUN_FORMAT_E " ", B->b[i]); } fprintf(outfile, "\n"); @@ -416,7 +416,7 @@ void ARKodeButcherTable_Write(ARKodeButcherTable B, FILE* outfile) fprintf(outfile, " d = "); for (i = 0; i < B->stages; i++) { - fprintf(outfile, SUN_FORMAT_G " ", B->d[i]); + fprintf(outfile, SUN_FORMAT_E " ", B->d[i]); } fprintf(outfile, "\n"); }