无法生成grd文件

hyydqxy

编写运行生成grd文件的程序后，发现文件夹里没有生成grd文件。以下是程序：
program sta2grd
implicit none
!变量声明
character*8 stid
real lon,lat, var, rain,tim
integer nlev,flag
tim=0.0
nlev=1
flag=1
open(1,file='C:\Users\Madrid-Li\Desktop\1.txt',status='old')
open(2,file='D:/fortran/pj/sta.grd',form='binary')
10 read(1,*,end=100)stid,lon,lat,var,rain
write(2)stid,lat,lon,tim,nlev,flag,rain
goto 10
100 continue
close(1)
!程序结束
end