SUBROUTINE RTLOADtopex(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               topex
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,nindrf,j
      integer*4 in5,iout6,inephm,inssh,intime,inflag,inmss,indir
      INTEGER*4 IBUF(1700),JBUF(1700)
      dimension ilat(nperiod),ilon(nperiod)
      common/cunits/in5,iout6,inephm,inssh,intime,inflag,inmss,indir 
      nREC=(NTrack-1)*8+1
      READ(inephm,REC=nREC)IBUF
      NINDRF=IBUF(1)
      nREC=nREC+1
      READ(inephm,REC=nREC)JBUF
      DO 100 I=2,1700
      J=I-1
      ilat(J)=IBUF(I)
      ilon(J)=JBUF(I)
 100  CONTINUE

      nREC=nREC+1
      READ(inephm,REC=nrec)IBUF
      nrec=nrec+1
      READ(inephm,REC=nrec)JBUF
      DO 110 I=1,1700
      J=I-1+1700
      ilon(J)=JBUF(I)
      ilat(J)=IBUF(I)
 110  CONTINUE
      nrec=nrec+1
      READ(inephm,REC=nrec)IBUF
      nrec=nrec+1
      READ(inephm,REC=nrec)JBUF
      DO 120 I=1,1700
      J=I-1+3400
      ilat(J)=IBUF(I)
      ilon(J)=JBUF(I)
 120  CONTINUE

      nrec=nrec+1
      READ(inephm,REC=nrec)IBUF
      nrec=nrec+1
      READ(inephm,REC=nrec)JBUF
      DO 130 I=1,1700
      J=I-1+5100
      ilat(J)=IBUF(I)
      ilon(J)=JBUF(I)
 130  CONTINUE
 140  CONTINUE

      RETURN
      END