您所在位置：主题：求高人指点！读取文件数据的程序为什么错了？错在哪里？谢谢！
gaoxin1989
[专家分：0] 发布于 2012-04-02 19:59:00
program main
implicit none
! character wo
integer::tempint=20
real fsx(100),fsy(100)
integer ink
open(57, file="load.txt",access="sequential", status="old")
do ink=1,tempint
read(57,200) ink,fsx(ink),fsy(ink)
write(*,*) ink,fsx(ink),fsy(ink)
end do
200 format(2/)
close (57)
end
implicit none
! character wo
integer::tempint=20
real fsx(100),fsy(100)
integer ink
open(57, file="load.txt",access="sequential", status="old")
do ink=1,tempint
read(57,200) ink,fsx(ink),fsy(ink)
write(*,*) ink,fsx(ink),fsy(ink)
end do
200 format(2/)
close (57)
end
