Skip to content

Commit 69bc5d7

Browse files
committed
made str public in the csv_string for now.
minor commenting updates.
1 parent 27bcbe8 commit 69bc5d7

File tree

1 file changed

+3
-6
lines changed

1 file changed

+3
-6
lines changed

src/csv_module.F90

Lines changed: 3 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -26,9 +26,8 @@ module csv_module
2626
type,public :: csv_string
2727
!! a cell from a CSV file.
2828
!!
29-
!! This use used to store the data internally
29+
!! This is used to store the data internally
3030
!! in the [[csv_file]] class.
31-
private
3231
character(len=:),allocatable :: str
3332
end type csv_string
3433

@@ -1203,8 +1202,6 @@ end subroutine read_line_from_file
12031202
! call split(s,',',vals)
12041203
!````
12051204
!
1206-
!@warning Doesn't seem to work for `len(token)>1`
1207-
!
12081205
!@warning Does not account for tokens contained within quotes string !!!
12091206

12101207
pure subroutine split(str,token,chunk_size,vals)
@@ -1216,8 +1213,8 @@ pure subroutine split(str,token,chunk_size,vals)
12161213
integer,intent(in) :: chunk_size !! for expanding vectors
12171214
type(csv_string),dimension(:),allocatable,intent(out) :: vals
12181215

1219-
integer :: i
1220-
integer :: len_str
1216+
integer :: i !! counter
1217+
integer :: len_str !! significant length of `str`
12211218
integer :: len_token !! length of the token
12221219
integer :: n_tokens !! number of tokens
12231220
integer :: i1 !! index

0 commit comments

Comments
 (0)