连续读数据可否遇到无效数据忽略
本帖最后由 cqflhl 于 2024-10-29 08:52 编辑1,2,3,n,5,6,a,b,8
把上述字符串读入一个数组中, 只能读入前3个, 遇到非数字就中断
是否有办法忽略, 把5,6读入数组第5,6个位置.
program Test
implicit none
character(80) ch(8)
integer dat(8), i, j
read(*,*) ch
dat = -999
do i = 1, 8
read(ch(i),*,iostat=j) dat(i)
end do
print*,dat
end program
li913 发表于 2024-10-29 09:04
program Test
implicit none
character(80) ch(8)
先读入字符串数组过渡一下吧, 那长度只有预设了哟, 单精度8个就够 本帖最后由 愤怒的三炮 于 2024-10-29 14:42 编辑
li913 发表于 2024-10-29 09:04
program Test
implicit none
character(80) ch(8)
学到了。
页:
[1]