Deploying to stdlib-fpm from @ 084f3c4 🚀

Author: milancurcic

src/stdlib_io.f90

@@ -19,17 +19,32 @@ module stdlib_io
   ! Private API that is exposed so that we can test it in tests
   public :: parse_mode
 
-  ! Format strings with edit descriptors for each type and kind
+  !> Version: experimental
+  !>
+  !> Format strings with edit descriptors for each type and kind
+  !> ([Specification](../page/specs/stdlib_io.html))
   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))'
+    !> Format string for integers
+    FMT_INT = '(i0)', &
+    !> Format string for single precision real numbers
+    FMT_REAL_SP = '(es15.8e2)', &
+    !> Format string for souble precision real numbers
+    FMT_REAL_DP = '(es24.16e3)', &
+    !> Format string for extended double precision real numbers
+    FMT_REAL_XDP = '(es26.18e3)', &
+    !> Format string for quadruple precision real numbers
+    FMT_REAL_QP = '(es44.35e4)', &
+    !> Format string for single precision complex numbers
+    FMT_COMPLEX_SP = '(es15.8e2,1x,es15.8e2)', &
+    !> Format string for double precision complex numbers
+    FMT_COMPLEX_DP = '(es24.16e3,1x,es24.16e3)', &
+    !> Format string for extended double precision complex numbers
+    FMT_COMPLEX_XDP = '(es26.18e3,1x,es26.18e3)', &
+    !> Format string for quadruple precision complex numbers
+    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
   !>
@@ -115,7 +130,7 @@ subroutine  loadtxt_rsp(filename, d)
 
       allocate(d(nrow, ncol))
       do i = 1, nrow
-          read(s, FMT_REAL_sp) d(i, :)
+          read(s, "(*"//FMT_REAL_sp(1:len(FMT_REAL_sp)-1)//",1x))") d(i, :)
       end do
       close(s)
 
@@ -162,7 +177,7 @@ subroutine  loadtxt_rdp(filename, d)
 
       allocate(d(nrow, ncol))
       do i = 1, nrow
-          read(s, FMT_REAL_dp) d(i, :)
+          read(s, "(*"//FMT_REAL_dp(1:len(FMT_REAL_dp)-1)//",1x))") d(i, :)
       end do
       close(s)
 
@@ -398,7 +413,7 @@ subroutine  loadtxt_csp(filename, d)
 
       allocate(d(nrow, ncol))
       do i = 1, nrow
-          read(s, FMT_COMPLEX_sp) d(i, :)
+          read(s, "(*"//FMT_COMPLEX_sp(1:len(FMT_COMPLEX_sp)-1)//",1x))") d(i, :)
       end do
       close(s)
 
@@ -446,7 +461,7 @@ subroutine  loadtxt_cdp(filename, d)
 
       allocate(d(nrow, ncol))
       do i = 1, nrow
-          read(s, FMT_COMPLEX_dp) d(i, :)
+          read(s, "(*"//FMT_COMPLEX_dp(1:len(FMT_COMPLEX_dp)-1)//",1x))") d(i, :)
       end do
       close(s)
 
@@ -476,7 +491,7 @@ subroutine savetxt_rsp(filename, d)
       integer :: s, i
       s = open(filename, "w")
       do i = 1, size(d, 1)
-          write(s, FMT_REAL_sp) d(i, :)
+          write(s, "(*"//FMT_REAL_sp(1:len(FMT_REAL_sp)-1)//",1x))") d(i, :)
       end do
       close(s)
     end subroutine savetxt_rsp
@@ -503,7 +518,7 @@ subroutine savetxt_rdp(filename, d)
       integer :: s, i
       s = open(filename, "w")
       do i = 1, size(d, 1)
-          write(s, FMT_REAL_dp) d(i, :)
+          write(s, "(*"//FMT_REAL_dp(1:len(FMT_REAL_dp)-1)//",1x))") d(i, :)
       end do
       close(s)
     end subroutine savetxt_rdp
@@ -530,7 +545,7 @@ subroutine savetxt_iint8(filename, d)
       integer :: s, i
       s = open(filename, "w")
       do i = 1, size(d, 1)
-          write(s, FMT_INT) d(i, :)
+          write(s, "(*"//FMT_INT(1:len(FMT_INT)-1)//",1x))") d(i, :)
       end do
       close(s)
     end subroutine savetxt_iint8
@@ -557,7 +572,7 @@ subroutine savetxt_iint16(filename, d)
       integer :: s, i
       s = open(filename, "w")
       do i = 1, size(d, 1)
-          write(s, FMT_INT) d(i, :)
+          write(s, "(*"//FMT_INT(1:len(FMT_INT)-1)//",1x))") d(i, :)
       end do
       close(s)
     end subroutine savetxt_iint16
@@ -584,7 +599,7 @@ subroutine savetxt_iint32(filename, d)
       integer :: s, i
       s = open(filename, "w")
       do i = 1, size(d, 1)
-          write(s, FMT_INT) d(i, :)
+          write(s, "(*"//FMT_INT(1:len(FMT_INT)-1)//",1x))") d(i, :)
       end do
       close(s)
     end subroutine savetxt_iint32
@@ -611,7 +626,7 @@ subroutine savetxt_iint64(filename, d)
       integer :: s, i
       s = open(filename, "w")
       do i = 1, size(d, 1)
-          write(s, FMT_INT) d(i, :)
+          write(s, "(*"//FMT_INT(1:len(FMT_INT)-1)//",1x))") d(i, :)
       end do
       close(s)
     end subroutine savetxt_iint64
@@ -638,7 +653,7 @@ subroutine savetxt_csp(filename, d)
       integer :: s, i
       s = open(filename, "w")
       do i = 1, size(d, 1)
-          write(s, FMT_COMPLEX_sp) d(i, :)
+          write(s, "(*"//FMT_COMPLEX_sp(1:len(FMT_COMPLEX_sp)-1)//",1x))") d(i, :)
       end do
       close(s)
     end subroutine savetxt_csp
@@ -665,7 +680,7 @@ subroutine savetxt_cdp(filename, d)
       integer :: s, i
       s = open(filename, "w")
       do i = 1, size(d, 1)
-          write(s, FMT_COMPLEX_dp) d(i, :)
+          write(s, "(*"//FMT_COMPLEX_dp(1:len(FMT_COMPLEX_dp)-1)//",1x))") d(i, :)
       end do
       close(s)
     end subroutine savetxt_cdp