Merge branch 'add_disp' of https://github.com/zoziha/stdlib into add_disp

Author: zoziha

doc/specs/stdlib_io.md

@@ -214,40 +214,40 @@ end program test_io_disp
 ```
 **Results:**
 ```fortran
- disp(string):
+disp(string):
 string
 It is a note.
 
- disp(r):
- [matrix size: 2×3]
+disp(r):
+[matrix size: 2×3]
 1.000  1.000  1.000
 1.000  1.000  1.000
- disp(r(1,:))
- [vector size: 3]
+disp(r(1,:))
+[vector size: 3]
   1.00    1.00    1.00
- disp(c):
- [matrix size: 2×3]
+disp(c):
+[matrix size: 2×3]
 (1.000,0.000)  (1.000,0.000)  (1.000,0.000)
 (1.000,0.000)  (1.000,0.000)  (1.000,0.000)
- disp(i):
- [matrix size: 2×3]
+disp(i):
+[matrix size: 2×3]
 1, 1, 1,
 1, 1, 1,
- disp(l):
- [matrix size: 10×10]
+disp(l):
+[matrix size: 10×10]  
 T   T   T   ..  T
 T   T   T   ..  T
 T   T   T   ..  T
 :   :   :   :   :
 T   T   T   ..  T
- disp(c_3d(:,:,3)):
- [matrix size: 2×10]
+disp(c_3d(:,3,1:10)):
+[matrix size: 2×10]
 (1000.,0.1000E-2)  (2.000,0.000)      (2.000,0.000)      (2.000,0.000)      (2.000,0.000)           &
 (2.000,0.000)      (2.000,0.000)      (2.000,0.000)      (2.000,0.000)      (2.000,0.000)
 (2.000,0.000)      (2.000,0.000)      (2.000,0.000)      (2.000,0.000)      (2.000,0.000)           &
 (2.000,0.000)      (2.000,0.000)      (2.000,0.000)      (2.000,0.000)      (2.000,0.000)
- disp(c_3d(2,:,:)):
- [matrix size: 100×20]
+disp(c_3d(2,:,:)):
+[matrix size: 100×20]
 (2.000,0.000)  (2.000,0.000)  (2.000,0.000)  ..             (2.000,0.000)    
 (2.000,0.000)  (2.000,0.000)  (2.000,0.000)  ..             (2.000,0.000)    
 (2.000,0.000)  (2.000,0.000)  (2.000,0.000)  ..             (2.000,0.000)

src/stdlib_io_disp.fypp

@@ -51,7 +51,7 @@ contains
 
         #! Prints header
         if (present(header)) then
-            write(unit_, *) format_output_string([string_type(header)], width_, brief_, "", len(header))
+            write(unit_, "(A)") format_output_string([string_type(header)], width_, brief_, "", len(header))
         end if
 
         #:if k1 != "string_type"
@@ -63,7 +63,7 @@ contains
 
             #:elif r1 == 1
                 array_info = array_info_maker(size(x, 1))
-                write(unit_, *) format_output_string([array_info], width_, brief_, "", len(array_info))
+                write(unit_, "(A)") format_output_string([array_info], width_, brief_, "", len(array_info))
 
                 allocate(x_str(size(x, 1)))
                 do i = 1, size(x, 1)
@@ -74,7 +74,7 @@ contains
             #:elif r1 == 2
 
                 array_info = array_info_maker(size(x, 1), size(x, 2))
-                write(unit_, *) format_output_string([array_info], width_, brief_, "", len(array_info))
+                write(unit_, "(A)") format_output_string([array_info], width_, brief_, "", len(array_info))
 
                 allocate(x_str(size(x, 1), size(x, 2)))
                 do i = 1, size(x, 1)
@@ -110,14 +110,14 @@ contains
 
             #:elif r1 == 1
                 array_info = array_info_maker(size(x, 1))
-                write(unit_, *) format_output_string([array_info], width_, brief_, "", len(array_info))
+                write(unit_, "(A)") format_output_string([array_info], width_, brief_, "", len(array_info))
 
                 write(unit_, "(*(A))") format_output_string(x, width_, brief_, sep_, maxval(len(x)))
 
             #:elif r1 == 2
 
                 array_info = array_info_maker(size(x, 1), size(x, 2))
-                write(unit_, *) format_output_string([array_info], width_, brief_, "", len(array_info))
+                write(unit_, "(A)") format_output_string([array_info], width_, brief_, "", len(array_info))
 
                 max_elem_len = maxval(len(x))
 
@@ -299,7 +299,7 @@ contains
         sep_    = optval(sep, "  ")
 
         if (present(header)) then
-            write(unit_, *) format_output_string([string_type(header)], width_, brief_, "", len(header))
+            write(unit_, "(A)") format_output_string([string_type(header)], width_, brief_, "", len(header))
         end if
 
         coloum(1) = string_type(x_)