Merge pull request #241 from jacobwilliams/real-format-2

Made default real format when initialize() is not called consistent w…

Author: jacobwilliams

src/json_parameters.F90

@@ -59,7 +59,7 @@ module json_parameters
     character(kind=CK,len=*),parameter :: slash           = achar(47, kind=CK)
     character(kind=CK,len=*),parameter :: backslash       = achar(92, kind=CK)
 
-    character(kind=CDK,len=*),parameter :: default_real_fmt = '(ss,E26.16E4)'
+    character(kind=CDK,len=*),parameter :: default_real_fmt = '(ss,E27.17E4)'
         !! default real number format statement (for writing real values to strings and files).
         !! Note that this can be overridden by calling [[json_initialize]].
 

src/json_value_module.F90

@@ -847,7 +847,7 @@ subroutine json_initialize(json,verbose,compact_reals,&
                             trim(w) // '.' // trim(d) // 'E' // trim(e) // ')'
         else
             json%real_fmt = '(' // sgn // ',' // trim(rl_edit_desc) // &
-                            '30.16E3)'  !just use this one (should never happen)
+                            '27.17E4)'  !just use this one (should never happen)
         end if
 
     end if