- 积分
- 513
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-5-12
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2013-5-14 09:21:35
|
显示全部楼层
本帖最后由 重北 于 2013-5-14 09:40 编辑
图没有上传成功,我把错误报告的字敲下来了,就是下面这段:
run-time error F6981:WRITE(CON)
-initial left parenthesis expected informat
Press any key to continue
代码如下:
parameter(n=237)
integer i
character*8 sta(n)
integer nlev,nflag,high(n)
integer hig(n),station(n)
real lat(n),lon(n)
!!!读入时次资料
open(unit=22, file="F:\12072808.000")
!!!空读
do i=1,16
read (22,*)
enddo
!!!读7月26号资料
do i=1,237
read (22,*) station(i),lon(i),lat(i),hig(i),high(i)
enddo
close(22)
!!!写入dat文件中
open(unit=23, file="F:\12072808.dat",form='binary')
nlev=1
nflag=1
tim=0.0
do i=1,237
sta(i)=char(i)
print sta(i),lat(i),lon(i),tim,nlev,nflag,high(i)
write(23 )sta(i),lat(i),lon(i),tim,nlev,nflag
write(23)high(i)
enddo
nlev=0
nflag=0
write(23)sta(1),lat(1),lon(1),tim,nlev,nflag
close(22)
close(23)
end
不知怎么回事啊
|
|