您所在位置：主题：大家好，求救
付少杰99
[专家分：0] 发布于 2011-01-03 17:48:00
program test1
implicit none
real,dimension(1:16)::a
integer::i
open(unit=10,file='b.txt')
write(10,*)'1,1,2,5,4,5,8,5,6,5,3,2,5,2,36,5'
rewind(10)
do i=1,16
read(10,*)a(i)
write(*,*)a(i)
enddo
end
这是我写的，先行文件中存下一组数据，再想把它存到一维数组中去并显示，但只能显示第一个数据，为什么？？请大家帮忙啦，谢谢
implicit none
real,dimension(1:16)::a
integer::i
open(unit=10,file='b.txt')
write(10,*)'1,1,2,5,4,5,8,5,6,5,3,2,5,2,36,5'
rewind(10)
do i=1,16
read(10,*)a(i)
write(*,*)a(i)
enddo
end
这是我写的，先行文件中存下一组数据，再想把它存到一维数组中去并显示，但只能显示第一个数据，为什么？？请大家帮忙啦，谢谢
