求大神帮忙看下这一小段程序哪有问题

天生我才

RT  运行之后总显示读取有问题，应该怎么修改呢？

!     open(11,file='Z_SATE_C_EUMP_20130521000001983_O_NPP_ATMS_NUL_S1C_35KM_GLB_MUT.BIN', &
!     open(11,file='Z_SATE_C_EUMP_20130521000044685_O_NPP_CRIS_NUL_S1C_15KM_GLB_MUT.BIN', &
      num=0
      do ifile=1,88888888
      open(10,file='filename',status='old')
      read(10,'(a80)',end=888) name
      print*,ifile, trim(name)

      open(11,file=trim(name),form='binary',status = 'old')
!
      do ich=1,99999999
!
      do i=1,nhead+nchan
       read(11,end=999) data1(i)
!       print*,i,data1(i)
      enddo
      num=num+1
      if (real(data1(2)) .ne. 10.) then
       print*,'The sensor is not amsua , stop 8899'
       stop 8899
      end if
!

zhenghaita

read(10,'(a80)',end=888) name
888的语句不写也可以吗？

zhenghaita

如果是这个问题，999 那样也要补充完整

天生我才

zhenghaita 发表于 2014-10-26 17:37
如果是这个问题，999 那样也要补充完整

是把888和999都删掉吗，也不行啊，感觉和 ‘（a80）’ 有关系，不懂这个是啥意思