Procedure

     SPKR10 ( SPK, read record from SPK type 10 segment )

     SUBROUTINE SPKR10 ( HANDLE, DESCR, ET, RECORD )

Abstract

     Read a single SPK data record from a segment of type 10
     (NORAD two line element sets).

Required_Reading

     SPK

Keywords

     EPHEMERIS

Declarations

     IMPLICIT NONE

     INCLUDE               'sgparam.inc'
     INTEGER               HANDLE
     DOUBLE PRECISION      DESCR    ( 5 )
     DOUBLE PRECISION      ET
     DOUBLE PRECISION      RECORD   ( * )

Brief_I/O

     VARIABLE  I/O  DESCRIPTION
     --------  ---  --------------------------------------------------
     HANDLE     I   File handle.
     DESCR      I   Segment descriptor.
     ET         I   Target epoch.
     RECORD     O   Data record.

Detailed_Input

     HANDLE,
     DESCR    are the file handle and segment descriptor for
              a SPK segment of type 10.

     ET       is a target epoch, for which a data record from
              a specific segment is required.

Detailed_Output

     RECORD   is the record from the specified segment which,
              when evaluated at epoch ET, will give the state
              (position and velocity) of some body, relative
              to some center, in some inertial reference frame.

Parameters

     None.

Exceptions

     1)  It is assumed that the descriptor and handle supplied are
         for a properly constructed type 10 segment. No checks are
         performed to ensure this.

     2)  If an error occurs while looking up SPK data, the error is
         signaled by a routine in the call tree of this routine.

Files

     See argument HANDLE.

Particulars

     See the SPK Required Reading file for a description of the
     structure of a data type 10 segment.

Examples

     The data returned by the SPKRnn routine is in its rawest form,
     taken directly from the segment. As such, it will be meaningless
     to a user unless he/she understands the structure of the data type
     completely. Given that understanding, however, the SPKRxx
     routines might be used to "dump" and check segment data for a
     particular epoch.


     C
     C     Get a segment applicable to a specified body and epoch.
     C
           CALL SPKSFS ( BODY, ET, HANDLE, DESCR, IDENT, FOUND )

     C
     C     Look at parts of the descriptor.
     C
           CALL DAFUS ( DESCR, 2, 6, DCD, ICD )
           CENTER = ICD( 2 )
           REF    = ICD( 3 )
           TYPE   = ICD( 4 )

           IF ( TYPE .EQ. 1 ) THEN
              CALL SPKR10 ( HANDLE, DESCR, ET, RECORD )
                  .
                  .  Look at the RECORD data.
                  .
           END IF

Restrictions

     None.

Literature_References

     None.

Author_and_Institution

     J. Diaz del Rio    (ODC Space)
     W.L. Taber         (JPL)
     E.D. Wright        (JPL)

Version

    SPICELIB Version 1.1.1, 17-JUN-2021 (JDR)

        Edited the header to comply with NAIF standard. Updated entry
        #2 in $Exceptions section. Moved SPK required reading from
        $Literature_References to $Required_Reading section.

    SPICELIB Version 1.1.0, 09-MAR-2009 (EDW)

        Removed declaration of unused variable DOINT.

    SPICELIB Version 1.0.0, 05-JAN-1994 (WLT)