fortran运行时出现运行FORTRAN时出现run-time error F6501: READ(D:\321\11.txt)
programMainimplicitnoneinteger,parameter::iN=51integer::iRec,ireal::rTemp(iN)open(10,...
program Main
implicit none
integer, parameter :: iN = 51
integer :: iRec, i
real :: rTemp(iN)
open (10, file = "D:\321\11.txt")
do i = 1, iN
read (10, *) rTemp(i)
end do
close (10)
open (20, file = "111.dat", form = "unformatted", access = "direct", recl = 1)
iRec = 0
do i = 1, iN
iRec = iRec + 1
write(20, rec = iRec) rTemp(i)
write(*, *) rTemp(i)
end do
close (20)
end Program Main 展开
implicit none
integer, parameter :: iN = 51
integer :: iRec, i
real :: rTemp(iN)
open (10, file = "D:\321\11.txt")
do i = 1, iN
read (10, *) rTemp(i)
end do
close (10)
open (20, file = "111.dat", form = "unformatted", access = "direct", recl = 1)
iRec = 0
do i = 1, iN
iRec = iRec + 1
write(20, rec = iRec) rTemp(i)
write(*, *) rTemp(i)
end do
close (20)
end Program Main 展开
1个回答
展开全部
说明 D:\321\11.txt 不符合你的程序要求呗。
可能是行数不够，可能是文件里有英文字母，不单纯是数字。等等。
可能是行数不够，可能是文件里有英文字母，不单纯是数字。等等。
更多追问追答
追问
我想问下那文件怎么样才符合要求呢，这个程序的功能主要是什么呢，求指点
追答
11.txt 需要51行，每行一个实数。不能含英文字母，其他符号（小数点除外）
如果你连程序功能都不知道，建议你先从头学习。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
