add specific single/double/quad format statements

Author: jacobwilliams

src/csv_module.F90

@@ -443,23 +443,23 @@ subroutine add_cell(me,val,int_fmt,real_fmt,trim_str)
             if (present(real_fmt)) then
                 rfmt = trim(adjustl(real_fmt))
             else
-                rfmt = default_real_fmt
+                rfmt = default_sp_fmt
             end if
             write(real_val,fmt=rfmt,iostat=istat) val
             write(me%iunit,fmt='(A)',advance='NO',iostat=istat) trim(adjustl(real_val))
         type is (real(wp))
             if (present(real_fmt)) then
                 rfmt = trim(adjustl(real_fmt))
             else
-                rfmt = default_real_fmt
+                rfmt = default_wp_fmt
             end if
             write(real_val,fmt=rfmt,iostat=istat) val
             write(me%iunit,fmt='(A)',advance='NO',iostat=istat) trim(adjustl(real_val))
         type is (real(qp))
             if (present(real_fmt)) then
                 rfmt = trim(adjustl(real_fmt))
             else
-                rfmt = default_real_fmt
+                rfmt = default_qp_fmt
             end if
             write(real_val,fmt=rfmt,iostat=istat) val
             write(me%iunit,fmt='(A)',advance='NO',iostat=istat) trim(adjustl(real_val))

src/csv_parameters.f90

@@ -8,13 +8,15 @@ module csv_parameters
 
     private
 
-    integer(ip),parameter,public :: max_real_str_len = 27 !! maximum string length of a real number
-    character(len=*),parameter,public :: default_real_fmt = '(E27.17E4)'
-        !! default real number format statement (for writing real values to strings and files).
+    integer(ip),parameter,public :: max_real_str_len = 256 !! maximum string length of a real number
+
+    character(len=*),parameter,public :: default_sp_fmt = '(E17.8E3)'  !! default single number format statement
+    character(len=*),parameter,public :: default_wp_fmt = '(E27.17E4)' !! default double number format statement 
+    character(len=*),parameter,public :: default_qp_fmt = '(E46.35E5)' !! default quad number format statement
 
     integer(ip),parameter,public :: max_integer_str_len = 256 !! maximum string length of an integer.
     character(len=*),parameter,public :: default_int_fmt  = '(I256)'
-        !! default integer number format statement (for writing real values to strings and files).
+        !! default integer number format statement (for writing integer values to strings and files).
 
     end module csv_parameters
 !*******************************************************************************