Made format constants public

doc/specs/stdlib_io.md

@@ -273,3 +273,44 @@ program demo_getline
  end do
 end program demo_getline
 ```
+
+## Formatting constants
+
+### Status
+
+Experimental
+
+### Description
+
+Formatting constants for printing out integer, floating point, and complex numbers at their full precision.
+Provides formats for all kinds as defined in stdlib_kinds
+
+### Example
+
+```fortran
+program deom_fmt_constants
+ use intrinsic, iso_fortran_env, only : int32, int64, float32, float64
+ use stdlib_io, only : FMT_INT, FMT_REAL_SP, FMT_REAL_DP, FMT_COMPLEX_SP, FMT_COMPLEX_DP
+ implicit none
+
+ integer(kind=int32) :: i32
+ integer(kind=int64) :: i64
+ real(kind=real32) :: r32
+ real(kind=real64) :: r64
+ complex(kind=real32) :: c32
+ complex(kind=real64) :: c64
+
+ i32 = 100_int32
+ i64 = 100_int64
+ r32 = 100.0_real32
+ r64 = 100.0_real64
+ c32 = cmplx(100.0_real32, kind=real32)
+ c64 = cmplx(100.0_real64, kind=real64)
+
+ print "2("//FMT_INT//",1x)", i32, i64
+ print FMT_REAL_SP, r32
+ print FMT_REAL_DP, r64
+ print FMT_COMPLEX_SP, c32
+ print FMT_COMPLEX_DP, c64
+
+```

src/stdlib_io.fypp

@@ -23,15 +23,18 @@ module stdlib_io
 
  ! Format strings with edit descriptors for each type and kind
  character(*), parameter :: &
- FMT_INT = '(*(i0,1x))', &
- FMT_REAL_SP = '(*(es15.8e2,1x))', &
- FMT_REAL_DP = '(*(es24.16e3,1x))', &
- FMT_REAL_XDP = '(*(es26.18e3,1x))', &
- FMT_REAL_QP = '(*(es44.35e4,1x))', &
- FMT_COMPLEX_SP = '(*(es15.8e2,1x,es15.8e2))', &
- FMT_COMPLEX_DP = '(*(es24.16e3,1x,es24.16e3))', &
- FMT_COMPLEX_XDP = '(*(es26.18e3,1x,es26.18e3))', &
- FMT_COMPLEX_QP = '(*(es44.35e4,1x,es44.35e4))'
+ FMT_INT = '(i0)', &
+ FMT_REAL_SP = '(es15.8e2)', &
+ FMT_REAL_DP = '(es24.16e3)', &
+ FMT_REAL_XDP = '(es26.18e3)', &
+ FMT_REAL_QP = '(es44.35e4)', &
+ FMT_COMPLEX_SP = '(es15.8e2,1x,es15.8e2)', &
+ FMT_COMPLEX_DP = '(es24.16e3,1x,es24.16e3)', &
+ FMT_COMPLEX_XDP = '(es26.18e3,1x,es26.18e3)', &
+ FMT_COMPLEX_QP = '(es44.35e4,1x,es44.35e4)'
+
+ public :: FMT_INT, FMT_REAL_SP, FMT_REAL_DP, FMT_REAL_XDP, FMT_REAL_QP
+ public :: FMT_COMPLEX_SP, FMT_COMPLEX_DP, FMT_COMPLEX_XDP, FMT_COMPLEX_QP
 
  !> Version: experimental
  !>
@@ -112,9 +115,9 @@ contains
  allocate(d(nrow, ncol))
  do i = 1, nrow
  #:if 'real' in t1
- read(s, FMT_REAL_${k1}$) d(i, :)
+ read(s, "(*"//FMT_REAL_${k1}$(1:len(FMT_REAL_${k1}$)-1)//",1x))") d(i, :)
  #:elif 'complex' in t1
- read(s, FMT_COMPLEX_${k1}$) d(i, :)
+ read(s, "(*"//FMT_COMPLEX_${k1}$(1:len(FMT_COMPLEX_${k1}$)-1)//",1x))") d(i, :)
  #:else
  read(s, *) d(i, :)
  #:endif
@@ -150,11 +153,11 @@ contains
  s = open(filename, "w")
  do i = 1, size(d, 1)
  #:if 'real' in t1
- write(s, FMT_REAL_${k1}$) d(i, :)
+ write(s, "(*"//FMT_REAL_${k1}$(1:len(FMT_REAL_${k1}$)-1)//",1x))") d(i, :)
  #:elif 'complex' in t1
- write(s, FMT_COMPLEX_${k1}$) d(i, :)
+ write(s, "(*"//FMT_COMPLEX_${k1}$(1:len(FMT_COMPLEX_${k1}$)-1)//",1x))") d(i, :)
  #:elif 'integer' in t1
- write(s, FMT_INT) d(i, :)
+ write(s, "(*"//FMT_INT(1:len(FMT_INT)-1)//",1x))") d(i, :)
  #:else
  write(s, *) d(i, :)
  #:endif