Skip to content

stdlib_experimental_io: addition of a spec and extension of loadtxt and savetxt to support integers #120

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 3 commits into from
Jan 25, 2020
Merged

stdlib_experimental_io: addition of a spec and extension of loadtxt and savetxt to support integers #120

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
e2a92ac
stdlib_experimental_io: addition of a spec and extension of loadtxt a…
jvdp1 Jan 22, 2020
47569cf
io_dev: changes following comments in PR
jvdp1 Jan 24, 2020
5ded50c
io_dev: quotes inside the inline code block
jvdp1 Jan 24, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
309 changes: 283 additions & 26 deletions src/stdlib_experimental_io.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,5 +1,8 @@
module stdlib_experimental_io
use stdlib_experimental_kinds, only: sp, dp, qp


use stdlib_experimental_kinds, only: sp, dp, qp, &
int8, int16, int32, int64
use stdlib_experimental_error, only: error_stop
use stdlib_experimental_optval, only: optval
use stdlib_experimental_ascii, only: is_blank
Expand All @@ -11,22 +14,29 @@ module stdlib_experimental_io
! Private API that is exposed so that we can test it in tests
public :: parse_mode


interface loadtxt
module procedure sloadtxt
module procedure dloadtxt
module procedure qloadtxt
module procedure loadtxt_sp
module procedure loadtxt_dp
module procedure loadtxt_qp
module procedure loadtxt_int8
module procedure loadtxt_int16
module procedure loadtxt_int32
module procedure loadtxt_int64
end interface

interface savetxt
module procedure ssavetxt
module procedure dsavetxt
module procedure qsavetxt
module procedure savetxt_sp
module procedure savetxt_dp
module procedure savetxt_qp
module procedure savetxt_int8
module procedure savetxt_int16
module procedure savetxt_int32
module procedure savetxt_int64
end interface

contains

subroutine sloadtxt(filename, d)
subroutine loadtxt_sp(filename, d)
! Loads a 2D array from a text file.
!
! Arguments
Expand Down Expand Up @@ -68,8 +78,7 @@ subroutine sloadtxt(filename, d)
end do
close(s)
end subroutine

subroutine dloadtxt(filename, d)
subroutine loadtxt_dp(filename, d)
! Loads a 2D array from a text file.
!
! Arguments
Expand Down Expand Up @@ -111,8 +120,7 @@ subroutine dloadtxt(filename, d)
end do
close(s)
end subroutine

subroutine qloadtxt(filename, d)
subroutine loadtxt_qp(filename, d)
! Loads a 2D array from a text file.
!
! Arguments
Expand Down Expand Up @@ -154,10 +162,177 @@ subroutine qloadtxt(filename, d)
end do
close(s)
end subroutine
subroutine loadtxt_int8(filename, d)
! Loads a 2D array from a text file.
!
! Arguments
! ---------
!
! Filename to load the array from
character(len=*), intent(in) :: filename
! The array 'd' will be automatically allocated with the correct dimensions
integer(int8), allocatable, intent(out) :: d(:,:)
!
! Example
! -------
!
! integer(int8), allocatable :: data(:, :)
! call loadtxt("log.txt", data) ! 'data' will be automatically allocated
!
! Where 'log.txt' contains for example::
!
! 1 2 3
! 2 4 6
! 8 9 10
! 11 12 13
! ...
!
integer :: s
integer :: nrow,ncol,i

s = open(filename)

! determine number of columns
ncol = number_of_columns(s)

! determine number or rows
nrow = number_of_rows_numeric(s)

allocate(d(nrow, ncol))
do i = 1, nrow
read(s, *) d(i, :)
end do
close(s)
end subroutine
subroutine loadtxt_int16(filename, d)
! Loads a 2D array from a text file.
!
! Arguments
! ---------
!
! Filename to load the array from
character(len=*), intent(in) :: filename
! The array 'd' will be automatically allocated with the correct dimensions
integer(int16), allocatable, intent(out) :: d(:,:)
!
! Example
! -------
!
! integer(int16), allocatable :: data(:, :)
! call loadtxt("log.txt", data) ! 'data' will be automatically allocated
!
! Where 'log.txt' contains for example::
!
! 1 2 3
! 2 4 6
! 8 9 10
! 11 12 13
! ...
!
integer :: s
integer :: nrow,ncol,i

s = open(filename)

! determine number of columns
ncol = number_of_columns(s)

! determine number or rows
nrow = number_of_rows_numeric(s)

subroutine ssavetxt(filename, d)
! Saves a 2D array into a textfile.
allocate(d(nrow, ncol))
do i = 1, nrow
read(s, *) d(i, :)
end do
close(s)
end subroutine
subroutine loadtxt_int32(filename, d)
! Loads a 2D array from a text file.
!
! Arguments
! ---------
!
! Filename to load the array from
character(len=*), intent(in) :: filename
! The array 'd' will be automatically allocated with the correct dimensions
integer(int32), allocatable, intent(out) :: d(:,:)
!
! Example
! -------
!
! integer(int32), allocatable :: data(:, :)
! call loadtxt("log.txt", data) ! 'data' will be automatically allocated
!
! Where 'log.txt' contains for example::
!
! 1 2 3
! 2 4 6
! 8 9 10
! 11 12 13
! ...
!
integer :: s
integer :: nrow,ncol,i

s = open(filename)

! determine number of columns
ncol = number_of_columns(s)

! determine number or rows
nrow = number_of_rows_numeric(s)

allocate(d(nrow, ncol))
do i = 1, nrow
read(s, *) d(i, :)
end do
close(s)
end subroutine
subroutine loadtxt_int64(filename, d)
! Loads a 2D array from a text file.
!
! Arguments
! ---------
!
! Filename to load the array from
character(len=*), intent(in) :: filename
! The array 'd' will be automatically allocated with the correct dimensions
integer(int64), allocatable, intent(out) :: d(:,:)
!
! Example
! -------
!
! integer(int64), allocatable :: data(:, :)
! call loadtxt("log.txt", data) ! 'data' will be automatically allocated
!
! Where 'log.txt' contains for example::
!
! 1 2 3
! 2 4 6
! 8 9 10
! 11 12 13
! ...
!
integer :: s
integer :: nrow,ncol,i

s = open(filename)

! determine number of columns
ncol = number_of_columns(s)

! determine number or rows
nrow = number_of_rows_numeric(s)

allocate(d(nrow, ncol))
do i = 1, nrow
read(s, *) d(i, :)
end do
close(s)
end subroutine

subroutine savetxt_sp(filename, d)
! Saves a 2D array into a text file.
!
! Arguments
! ---------
Expand All @@ -178,9 +353,8 @@ subroutine ssavetxt(filename, d)
end do
close(s)
end subroutine

subroutine dsavetxt(filename, d)
! Saves a 2D array into a textfile.
subroutine savetxt_dp(filename, d)
! Saves a 2D array into a text file.
!
! Arguments
! ---------
Expand All @@ -201,9 +375,8 @@ subroutine dsavetxt(filename, d)
end do
close(s)
end subroutine

subroutine qsavetxt(filename, d)
! Saves a 2D array into a textfile.
subroutine savetxt_qp(filename, d)
! Saves a 2D array into a text file.
!
! Arguments
! ---------
Expand All @@ -214,16 +387,101 @@ subroutine qsavetxt(filename, d)
! Example
! -------
!
! real(dp) :: data(3, 2)
! real(qp) :: data(3, 2)
! call savetxt("log.txt", data)

integer :: s, i
character(len=14) :: format_string
s = open(filename, "w")
do i = 1, size(d, 1)
write(s, *) d(i, :)
end do
close(s)
end subroutine
subroutine savetxt_int8(filename, d)
! Saves a 2D array into a text file.
!
! Arguments
! ---------
!
character(len=*), intent(in) :: filename ! File to save the array to
integer(int8), intent(in) :: d(:,:) ! The 2D array to save
!
! Example
! -------
!
! integer(int8) :: data(3, 2)
! call savetxt("log.txt", data)

integer :: s, i
s = open(filename, "w")
do i = 1, size(d, 1)
write(s, *) d(i, :)
end do
close(s)
end subroutine
subroutine savetxt_int16(filename, d)
! Saves a 2D array into a text file.
!
! Arguments
! ---------
!
character(len=*), intent(in) :: filename ! File to save the array to
integer(int16), intent(in) :: d(:,:) ! The 2D array to save
!
! Example
! -------
!
! integer(int16) :: data(3, 2)
! call savetxt("log.txt", data)

integer :: s, i
s = open(filename, "w")
do i = 1, size(d, 1)
write(s, *) d(i, :)
end do
close(s)
end subroutine
subroutine savetxt_int32(filename, d)
! Saves a 2D array into a text file.
!
! Arguments
! ---------
!
character(len=*), intent(in) :: filename ! File to save the array to
integer(int32), intent(in) :: d(:,:) ! The 2D array to save
!
! Example
! -------
!
! integer(int32) :: data(3, 2)
! call savetxt("log.txt", data)

write(format_string, '(a1,i06,a7)') '(', size(d, 2), 'f40.34)'
integer :: s, i
s = open(filename, "w")
do i = 1, size(d, 1)
write(s, format_string) d(i, :)
write(s, *) d(i, :)
end do
close(s)
end subroutine
subroutine savetxt_int64(filename, d)
! Saves a 2D array into a text file.
!
! Arguments
! ---------
!
character(len=*), intent(in) :: filename ! File to save the array to
integer(int64), intent(in) :: d(:,:) ! The 2D array to save
!
! Example
! -------
!
! integer(int64) :: data(3, 2)
! call savetxt("log.txt", data)

integer :: s, i
s = open(filename, "w")
do i = 1, size(d, 1)
write(s, *) d(i, :)
end do
close(s)
end subroutine
Expand Down Expand Up @@ -289,7 +547,6 @@ integer function open(filename, mode, iostat) result(u)
character(*), intent(in), optional :: mode
integer, intent(out), optional :: iostat

integer :: io_
character(3) :: mode_
character(:),allocatable :: action_, position_, status_, access_, form_

Expand Down
Loading