- 积分
- 6269
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-3-13
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 贝加尔湖以西 于 2017-11-16 13:34 编辑
错误:
forrtl: severe (257): formatted I/O to unit open for unformatted transfers, unit
16, file C:\Users\Administrator\Desktop\southwest_daily_pre_1980_2012.dat
Image PC Routine Line Source
cha.exe 0040A589 Unknown Unknown Unknown
Press any key to continue
我的程序:
program main
parameter(l=11993)
dimension sti(l),lon(l),lat(l),t(l),pre(l)
character*8 sti
integer i
real lon,lat,t,pre
open(15,file='D:\yjs\y\shuju.txt')
open(16,file='C:\Users\Administrator\Desktop\southwest_daily_pre_1980_2012.dat',form='binary')
do i=1,l
read(16,*) sti(i),lon(i),lat(i),t(i),pre(l)
enddo
do i=1,l
write(15,*) sti(i),lon(i),lat(i),t(i),pre(l)
end do
close(15)
close(16)
end
|
|