- 积分
- 2824
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2014-3-7
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2014-5-16 20:30:19
|
显示全部楼层
program main
implicit none
character*8::stid
real::lon,lat,rain,tim
integer::nlev,flag
tim=0.0
nlev=1
flag=1
open(11,file='e:\qingzang\chi\stid.txt',status='old')
open(12,file='e:\qingzang\chi\bu1.txt',status='old')
open(13,file='e:\qingzang\chi\sta.grd',status='replace',form='binary')
open(14,file='e:\qingzang\chi\st1.txt',status='replace')
10 read(11,*,end=100)stid,lon,lat
read(12,*,end=100)rain
write(13)stid,lat,lon,tim,nlev,flag,rain
write(14,*)stid,lat,lon,tim,nlev,flag,rain
goto 10
100 continue
close(11)
close(12)
nlev=0
flag=0
write(13)stid,lat,lon,tim,nlev,flag
write(14,*)stid,lat,lon,tim,nlev,flag
close(13)
close(14)
end
这个是fortran。。 |
|