11module stdlib_experimental_io
2- use iso_fortran_env, only: sp= >real32, dp= >real64 , qp= >real128
2+ use iso_fortran_env, only: sp= >real32, dp= >real64, qp= >real128
33implicit none
44private
55public :: loadtxt, savetxt
@@ -18,7 +18,6 @@ module stdlib_experimental_io
1818
1919contains
2020
21- ! PUBLIC
2221subroutine sloadtxt (filename , d )
2322! Loads a 2D array from a text file.
2423!
@@ -45,12 +44,12 @@ subroutine sloadtxt(filename, d)
4544! ...
4645!
4746integer :: s
48- integer :: nrow,ncol,i
47+ integer :: nrow,ncol,i
4948
5049open (newunit= s, file= filename, status= " old" )
5150
5251! determine number of columns
53- ncol= number_of_columns(s)
52+ ncol = number_of_columns(s)
5453
5554! determine number or rows
5655nrow = number_of_rows_numeric(s)
@@ -88,12 +87,12 @@ subroutine dloadtxt(filename, d)
8887! ...
8988!
9089integer :: s
91- integer :: nrow,ncol,i
90+ integer :: nrow,ncol,i
9291
9392open (newunit= s, file= filename, status= " old" )
9493
9594! determine number of columns
96- ncol= number_of_columns(s)
95+ ncol = number_of_columns(s)
9796
9897! determine number or rows
9998nrow = number_of_rows_numeric(s)
@@ -131,12 +130,12 @@ subroutine qloadtxt(filename, d)
131130! ...
132131!
133132integer :: s
134- integer :: nrow,ncol,i
133+ integer :: nrow,ncol,i
135134
136135open (newunit= s, file= filename, status= " old" )
137136
138137! determine number of columns
139- ncol= number_of_columns(s)
138+ ncol = number_of_columns(s)
140139
141140! determine number or rows
142141nrow = number_of_rows_numeric(s)
@@ -219,7 +218,6 @@ subroutine qsavetxt(filename, d)
219218end subroutine
220219
221220
222- ! PRIVATE
223221integer function number_of_columns (s )
224222 ! determine number of columns
225223 integer ,intent (in ):: s
0 commit comments