Skip to content

Commit f22bad9

Browse files
committed
docs(stdlib_io): Add an example to show the brief mode of print_array
1 parent 7c7b8b8 commit f22bad9

File tree

3 files changed

+25
-0
lines changed

3 files changed

+25
-0
lines changed

doc/specs/stdlib_io.md

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -343,6 +343,10 @@ that shows only the representative portions of large arrays, which is useful for
343343

344344
### Example
345345

346+
```fortran
347+
{!./example/io/example_print_array_brief.f90}
348+
```
349+
346350
```fortran
347351
{!./example/io/example_print_array.f90}
348352
```

example/io/CMakeLists.txt

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -7,3 +7,4 @@ ADD_EXAMPLE(open)
77
ADD_EXAMPLE(savenpy)
88
ADD_EXAMPLE(savetxt)
99
ADD_EXAMPLE(print_array)
10+
ADD_EXAMPLE(print_array_brief)
Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,20 @@
1+
program example_io_print_array_brief
2+
3+
use stdlib_io, only: print_array
4+
implicit none
5+
6+
real, dimension(123, 456) :: array
7+
8+
call random_number(array)
9+
10+
print "(a)", "=== print_array ==="
11+
call print_array(array, delimiter=', ', brief=.true.)
12+
13+
end program example_io_print_array_brief
14+
15+
! === print_array ===
16+
! 5.44562101E-01, 5.97862303E-01, 1.64548337E-01, ..., 1.18231595E-01
17+
! 6.42154396E-01, 8.24955523E-01, 2.37900555E-01, ..., 6.27207816E-01
18+
! 6.64815307E-02, 8.11999142E-01, 2.75685191E-01, ..., 4.20989931E-01
19+
! ...
20+
! 8.61099184E-01, 6.91828251E-01, 2.91268706E-01, ..., 3.90086174E-01

0 commit comments

Comments
 (0)