33#:set KINDS_TYPES = REAL_KINDS_TYPES + INT_KINDS_TYPES + CMPLX_KINDS_TYPES
44
55module stdlib_experimental_io
6- !!Provides a support for file handling.
6+ !! Provides a support for file handling.
7+ !!
8+ !! __Read the [specification here](../page/specs/stdlib_experimental_io.html).__
79 use stdlib_experimental_kinds, only: sp, dp, qp, &
810 int8, int16, int32, int64
911 use stdlib_experimental_error, only: error_stop
@@ -18,12 +20,18 @@ module stdlib_experimental_io
1820 public :: parse_mode
1921
2022 interface loadtxt
23+ !! Loads a 2D array from a text file
24+ !!
25+ !! __Read the [specification here](../page/specs/stdlib_experimental_io.html#description)__
2126 #:for k1, t1 in KINDS_TYPES
2227 module procedure loadtxt_${t1[0]}$${k1}$
2328 #:endfor
2429 end interface loadtxt
2530
2631 interface savetxt
32+ !! Saves a 2D array into a text file
33+ !!
34+ !! __Read the [specification here](../page/specs/stdlib_experimental_io.html#description_2)__
2735 #:for k1, t1 in KINDS_TYPES
2836 module procedure savetxt_${t1[0]}$${k1}$
2937 #:endfor
@@ -157,20 +165,25 @@ contains
157165
158166
159167 integer function open(filename, mode, iostat) result(u)
160- ! Open a file
161- !
162- ! To open a file to read:
163- !
164- ! u = open("somefile.txt") # The default `mode` is "rt"
165- ! u = open("somefile.txt", "r")
166- !
167- ! To open a file to write:
168- !
169- ! u = open("somefile.txt", "w")
170-
171- ! To append to the end of the file if it exists:
172- !
173- ! u = open("somefile.txt", "a")
168+ !! Opens a file
169+ !!
170+ !! __Read the [specification here](../page/specs/stdlib_experimental_io.html#description_1)__
171+ !!
172+ !!##### Behavior
173+ !!
174+ !!
175+ !! To open a file to read:
176+ !!
177+ !! u = open("somefile.txt") # The default `mode` is "rt"
178+ !! u = open("somefile.txt", "r")
179+ !!
180+ !! To open a file to write:
181+ !!
182+ !! u = open("somefile.txt", "w")
183+ !!
184+ !! To append to the end of the file if it exists:
185+ !!
186+ !! u = open("somefile.txt", "a")
174187
175188 character(*), intent(in) :: filename
176189 character(*), intent(in), optional :: mode
0 commit comments