结果怎么会这样？

若曼m

有一个rain.ch文件，内容如下：
Year     Month     Stid    Lat     Lon     Rianfall
1980        1      qqq    34.3    -85.5     123.3
1980        1      rrr    44.2    -84.5      87.1
1980        1      sss    22.4    -83.5     412.8
1980        1      ttt    33.4    -82.5      23.3

运行FORTRAN程序

      character*8 stid
      open(8,name='rain.ch',status='old')
      open(10,name='rain.dat',form='unformatted')
      iflag=0
10    read(8,9000,end=90)iyear,imonth,stid,rlat,rlon,rval
9000  format(I4,3x,I2,2x,A8,3F8.1)
      if(iflag.eq.0)then
        iflag=1
        iyrold=iyear
        imnold=imonth
      endif
      if(iyrold.ne.iyear.or.imnold.ne.imonth)then
         nlev=0
         write(10)stid,rlat,rlon,tim,nlev,nflag
      endif
      iyrold=iyear
      imnold=imonth
      tim=0.0
      nlev=1
      nflag=1
      write(10)stid,rlat,rlon,tim,nlev,nflag
      write(10)rval
      goto 10
90    continue
      nlev=0
      write(10)stid,rlat,rlon,tim,nlev,nflag
      stop
end

结果是这样的



不知道为什么 ，求解答。

lqouc

先空读一行，去掉表头

若曼m

lqouc 发表于 2015-4-20 14:04
先空读一行，去掉表头

意思是把这一行Year     Month     Stid    Lat     Lon     Rianfall去掉么？
还是不行。

topmad

默认了FORTRAN的 I-N规则
你要先定义一下你的各各变量的类型