C
C This routine reads the final (predict) SEDRs which differ in format
C from mission SEDRs 1977-1990 in that the pointing vector data is
C split out into a separate ACSII file.
C
      CHARACTER DSN*50
      INTEGER*2 TIME(6)
      REAL*4 RANGE,ANG(2),SPV(6),RH(3),
     &       MTB(3,3),MTB5(3,3),MHG(3,3)
      REAL*8 TD,TP,TN,REALTIME
C 
C OPEN POINTING VECTOR FILE FOR READING
C
      WRITE(6,*) 'ENTER POINTING VECTOR FILE NAME'
      READ(5,'(A)') DSN
      OPEN(40,FILE=DSN,STATUS='OLD',FORM='FORMATTED',READONLY)
      WRITE(6,*) 'POINTING VECTOR FILE NAME: ',DSN
C
C OPEN NAVIGATION FILE FOR READING.  EXPECT UNFORMATTED, VAXG FLOATING
C POINT DATA.
C
      WRITE(6,*) 'ENTER NAVIGATION FILE NAME'
      READ(5,'(A)') DSN
      OPEN(41,FILE=DSN,STATUS='OLD',CONVERT='VAXG',
     &     FORM='UNFORMATTED',RECORDTYPE='VARIABLE',READONLY)
      WRITE(6,*) 'NAVIGATION FILE NAME: ',DSN
C
      WRITE(6,*) 'ENTER EDR TIME YY/DDD/HH:MM:SS'
      READ(5,800) TIME
      write(6,*) time
      write(6,*) realtime(time)
 800  FORMAT(I2,1X,I3,3(1X,I2),1X,I3)
      CALL GETSEDR(TIME,TD,TN,TP,SPV,RANGE,ANG,MTB,MTB5,MHG)
      THETA = ANG(2)
      BETA = ANG(1)
      RH(1) = SPV(1)
      RH(2) = SPV(2)
      RH(3) = SPV(3)
      BETA = BETA * 180.0/3.1415
      THETA = THETA * 180.0/3.14159
      WRITE(6,810) TIME,RANGE,BETA,THETA,(RH(I),I=1,3)
      WRITE(6,'(2X,1(3(1X,E10.4),3X))') (MHG(I,1),I=1,3)
      WRITE(6,'(2X,1(3(1X,E10.4),3X))') (MHG(I,2),I=1,3)
      WRITE(6,'(2X,1(3(1X,E10.4),3X)/)') (MHG(I,3),I=1,3)
C
C      WRITE(6,'(2X,3(3(1X,E10.4),3X))') (MTB(I,1),I=1,3),
C     &   (MTB5(1,I),I=1,3),(MHG(I,1),I=1,3)
C      WRITE(6,'(2X,3(3(1X,E10.4),3X))') (MTB(I,2),I=1,3),
C     &   (MTB5(2,I),I=1,3),(MHG(I,2),I=1,3)
C      WRITE(6,'(2X,3(3(1X,E10.4),3X)/)') (MTB(I,3),I=1,3),
C     &   (MTB5(3,I),I=1,3),(MHG(I,3),I=1,3)
C
      CLOSE(40)
      CLOSE(41)
C
  810 FORMAT(1X,I2.2,'-',I3.3,'/',I2.2,2(':',I2.2),'.',I3.3,1X,
     &       F8.4,2(1X,F7.3),3(1X,F9.4))
      END