FORTAN降水处理十进制转二进制生成DAT文件出错

Hvoice

我的程序如下，但是总是提醒我有错误，各位大神帮忙看一下，小女子感恩不尽{:soso_e154:}
  PARAMETER(Ns=28,Nd=1)
CHARACTER*8 STID(NS)
      REAL RLAT(NS),RLON(NS),TIM
INTEGER NLEV,NFLAG
REAL RAIN(Nd,Ns)

      open (1,file='h:\lw\station.txt')
read(1,'(a8,2f8.2)') (STID(IS),RLAT(IS),RLON(IS),is=1,ns)
close(1)
      
      OPEN (8,FILE='h:\lw\rain.txt')
     
      do is=1,nd
        READ (8,'(f5.1)')(RAIN(is,id),id=1,ns)
end do
      close(8)
      
       OPEN (16,FILE='h:\lw\pi.dat',
     &       FORM='UNFORMATTED',RECORDTYPE='STREAM')
      DO Id = 1, nd
! DO IM = 1, NM

   TIM = 0.0      
        NLEV = 1
        NFLAG = 1
        DO Is = 1, Ns
          WRITE (16) STID(IS),RLAT(IS),RLON(IS),TIM,NLEV,NFLAG
          WRITE (16) (RAIN(Id,Is))
!          WRITE (14)  RAIN(IM,IY,IS)
        END DO  
   NLEV = 0        
   NFLAG = 0
        WRITE (16) STID(1),RLAT(1),RLON(1),TIM,NLEV,NFLAG
!      END DO
END DO
90   CONTINUE

      END

yangyangyang

降水有27个，站点28个。

Hvoice

yangyangyang 发表于 2015-4-18 13:21
降水有27个，站点28个。

谢谢，我改了，但是还是有错误，错误提示和之前一样

Hvoice

yangyangyang 发表于 2015-4-18 13:21
降水有27个，站点28个。

已解决了哈， OPEN (16,FILE='h:\lw\pi.dat',
     &       FORM='UNFORMATTED',RECORDTYPE='STREAM')
改写为： OPEN (16,FILE='h:\lw\pi.dat',
     &       FORM='binary')
就可以运行出来了