program rdgoeslnlt2
!
!     This program reads GOES-EAST IR Bands Full Disk lon,lat,time data.
!
      integer*4 n,np
!     parameter (np=10080910)   !for lnltIR20012741445.G08s1.txt
      parameter (np=403239)     !for lnltIR20012741445.G08s5.txt
      real*4 lon(np)            !Longitude
      real*4 lat(np)            !Latitude
      real*4 hour(np)           !DECIMAL HOUR
      real*4 ln,lt,hr

!     open(10,file='GOESIRlnlt.s1.txt',status='old',form='formatted')
      open(10,file='GOESIRlnlt.s5.txt',status='old',form='formatted')

      do n=1,np
         read(10,*) ln,lt,hr
         if(n.le.3.or.n.ge.np-2) print *,n,ln,lt,hr
         lon(n)=ln
         lat(n)=lt
         hour(n)=hr
 999  enddo

      close(10)

      stop
      end