SUBROUTINE RTLOADERS(NTRACK,nperiod,ilat,ilon)
c                      date 8/1/96               pgmr - Anita C. Brenner
c                           7/96                        Brian B. Beckley
c function - load ephemerides for a specific track of a repeat cycle for
c               ers1 or ers2
c input parameter - ntrack - I*4- track number within the repeat cycle
c                                 
c output parameters - output into common block crforb
c                ILAT  I*4 : latitude array in microdegrees
c                ILON  I*4 : east longitude array in microdegrees
c                NINDRFI*4: number of georefeneced indeces in revolution NTREF
c                NTREF I*4: track number (1 - 501)
      IMPLICIT none
      integer*4 ilat,ilon,nrec,ntrack,i,nperiod
      integer*4 in5,iout6,inephm,inssh,intime,inflag,inmss,indir
      dimension ilat(nperiod),ilon(nperiod)
      common/cunits/in5,iout6,inephm,inssh,intime,inflag,inmss,indir 
      NREC=NTRACK*2-1
      READ(inephm,REC=NREC)ILAT
      NREC=NREC+1
      READ(inephm,REC=NREC)ILON
      DO 100 I=1,6040
      IF(ILON(I).LE.-999)GO TO 200
 100    CONTINUE
 200  continue
      RETURN
      END