cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc



      ! This program reads a few records that were generated by the
      ! MIR decoding program.

      character*128     filename       

      structure /OutStruct/
      real*4            RecNumber
      real*4            RTCmonth, RTCDayOfMonth
      real*4            IrigHour, IrigMin, IrigSec
      real*4            NavJulian, NavHour,  NavMin,  NavSec
      real*4            latitude, longitude
      real*4            AirTemp, altitude, pitch, roll, heading
      real*4            BrightTemps(57,6)
      end structure

      record/OutStruct/ i

      integer   m, k

      print *,'Enter input filename:>'
      read(5,'(A)') filename

      open  (unit    = 8,
     $       file    = filename,
     $       access  = 'direct',
     $       status  = 'old',
     $       err     = 1999,
     $       recl    = 359)
     
c      open(8, file='/usr/disk1/wang/mir/data/toga_flight06.mir',
c     $     access='DIRECT', status='OLD', err=1999, recl=359)

      do m=2001,2010
c     do m=1,2
         read(8, rec=m, end=500, err=400) i

         write(*,*)'=================================================='
         write(*,'(a,f10.1         )')'Block No.', i.RecNumber
       write(*,1)i.RTCmonth,i.RTCDayOfMonth,i.IrigHour,
     @ i.IrigMin,i.IrigSec
         write(*,3)i.NavJulian, i.NavHour, i.NavMin, i.NavSec
         write(*,4) i.latitude ,i.longitude,i.AirTemp, i.altitude
               do   kk=1,6
                write(*,'(1x)')
                write(*,2) (i.BrightTemps(k,kk)  ,k= 1,57)
               end do
      end do
      stop 'Done!'
 400  call perror('Error reading record')
      stop 3
 500  call perror('Hit EOF reading record')
      stop 4
 1999 call perror('Error opening input file!')
      stop 5
c 1    format(1x,2f8.1) 'RTCmonth,RTCDayOfMonth'
  1    format(1x 'month,day,IrigHR,MIN,SEC',5f5.1)
  2    format(   (10f6.1))                         
  3    format(1x,'NavJulian, hr,min,sec' ,8x,4f5.1)
  4    format(1x,'LAT LON TEMP ALT' ,2f8.2,1x,2f8.1)
      end