FORTRAN中读入文件时出错,显示为“unformatted I/O not consistent with open opinions”,什么意思?
答案:2 悬赏:30 手机版
解决时间 2021-02-26 12:05
- 提问者网友:寂寞撕碎了回忆
- 2021-02-25 21:54
FORTRAN中读入文件时出错,显示为“unformatted I/O not consistent with open opinions”,什么意思?
最佳答案
- 五星知识达人网友:杯酒困英雄
- 2021-02-25 22:27
program Main
implicit none
integer, parameter :: iN = 40
integer :: iRec, i
real :: rTemp(iN)
open (10, file = "D:\321\11.txt")
do i = 1, iN
read (10, *) rTemp(i)
print*, rTemp(i)
end do
close (10)
open (20, file = "111.txt", form = "unformatted", access = "direct", recl = 10)
iRec = 0
do i = 1, iN
iRec = iRec + 1
write(20, rec = iRec) rTemp(i)
write(*, *) rTemp(i)
print*, i
end do
close (20)
open (22, file = "111.txt", form = "binary", access = "direct", recl = 10)
do i = 1, 2
read (22, *) rTemp(i)
print*, rTemp(i)
end do
close (22)
end Program Main
implicit none
integer, parameter :: iN = 40
integer :: iRec, i
real :: rTemp(iN)
open (10, file = "D:\321\11.txt")
do i = 1, iN
read (10, *) rTemp(i)
print*, rTemp(i)
end do
close (10)
open (20, file = "111.txt", form = "unformatted", access = "direct", recl = 10)
iRec = 0
do i = 1, iN
iRec = iRec + 1
write(20, rec = iRec) rTemp(i)
write(*, *) rTemp(i)
print*, i
end do
close (20)
open (22, file = "111.txt", form = "binary", access = "direct", recl = 10)
do i = 1, 2
read (22, *) rTemp(i)
print*, rTemp(i)
end do
close (22)
end Program Main
全部回答
- 1楼网友:woshuo
- 2021-02-25 23:55
你好!
把具体的语句贴上来吧,open里有一些选项二进制文件是不支持的,比如说blank
如有疑问,请追问。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯