fortran提示file name missing or blank

绯宜物语

我是要计算季节平均，写了如下程序。可是运行提示如图错误。这是怎么回事呀？了解的同学帮忙看看吧。谢谢啦……
program t2m
integer*4,parameter:: i=1320,a=109
integer*4 :: ii,ia
real*4 var(i),sp(a),su(a),au(a),wi(a)
open(10,file='f:\1gc.grd',form='binary')
do ii=1,i
read(10) var(ii)
enddo
do ia=0,a
sp(ia)=(var(3+12*ia)+var(4+12*ia)+var(5+12*ia))/3
su(ia)=(var(6+12*ia)+var(7+12*ia)+var(8+12*ia))/3
au(ia)=(var(9+12*ia)+var(10+12*ia)+var(11+12*ia))/3
enddo
do ia=0,a
if(ia.eq.0) then
wi(ia)=(var(1+12*ia)+var(2+12*ia))/2
else
wi(ia)=(var(12*ia)+var(1+12*ia)+var(2+12*ia))/3
endif
enddo       
open(20,file='f:\t2m0sp.txt')
write(20,100) sp
100 format(1f10.3)
open(30,file='f:\t2m0su.txt')
write(30,200) su
200 format(12f10.3)
open(40,file='f:\t2m0au.txt')
write(50,300) au
300 format(12f10.3)
open(50,file='f:\t2m0wi.txt')
write(50,400) wi
400 format(12f10.3)
close(10)
close(20)
close(30)
close(40)
close(50)
end

莫名╰☆╮殇

你在没有open文件号为50的文件就输出了，就是open40下面个

绯宜物语

莫名╰☆╮殇 发表于 2014-8-25 11:21
你在没有open文件号为50的文件就输出了，就是open40下面个

啊啊，谢谢……刚刚发现了……纠结死了，太粗心了我！非常感谢！！！