Skip to content

Commit 6a895e1

Browse files
committed
Loadtxt real format update
Change loadtxt format for real numbers to list directed.
1 parent 19f84ce commit 6a895e1

File tree

1 file changed

+1
-3
lines changed

1 file changed

+1
-3
lines changed

src/stdlib_io.fypp

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -144,9 +144,7 @@ contains
144144
end do
145145

146146
do i = 1, max_rows_
147-
#:if 'real' in t1
148-
read(s, "(*"//FMT_REAL_${k1}$(1:len(FMT_REAL_${k1}$)-1)//",1x))") d(i, :)
149-
#:elif 'complex' in t1
147+
#:if 'complex' in t1
150148
read(s, "(*"//FMT_COMPLEX_${k1}$(1:len(FMT_COMPLEX_${k1}$)-1)//",1x))") d(i, :)
151149
#:else
152150
read(s, *) d(i, :)

0 commit comments

Comments
 (0)