fortran十进制直接成二进制，配相应的ctl，在grads中显示出来的值是错的，求求大侠帮帮忙吧，

parameter (N=46)
integer i
real yr,x(N),y(N),z(N)
open(10,file='D:\2017\ice_jx_year_jibing_1970-2015-dong.TXT')
    do i=1,N 
      read(10,*) yr,x(i),y(i) 
    enddo
   close(10)
   open(100,file='D:\2017\ice_jx_year_jibing_1970-2015-dong.grd',form='binary')
   do i=1,N
   write(100)x(i), y(i)
   ENDDO

 end

下面是相应的ctl，用grads是可以打开的，可是画出来的图却显示全是0，

dset d:\2017\ice_jx_year_jibing_1970-2015-dong.grd
undef -999.0
title SVD time coefficient of rainfall and NP MLD
xdef  1 linear  119.5    1.0
ydef   1 linear  19.739  0.333
zdef   1 levels  5    
tdef  46 linear   jan1969  1yr
vars 2
tcf 1 999 mean Jul rainfall (mm)
tcg 1 999 mean Jan mld
endvars