!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! SDDL Name:	ORBIT_RECORD.SDDL
!
! Purpose:      This include file contains local common for position vector calcs
!
! Modification History:
!
!   Date       OPR      Who                       Reason
! --------   -------    ---   -------------------------------------------------
! 12/ 9/94    27329     SSS   Original implementation
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!

LANGUAGE	FORTRAN

FILE            ZORBIT_RECORD.ALL

RECORD  WVORBP_TYPE

    DESCRIPTION      "local common for position vector calcs"


    FIELD  input_time
        TYPE            R8
        UNITS           "SECONDS"
        DESCRIPTION     "time for which the position vector is to be calculated"
    END_FIELD


    FIELD  sc_index
        TYPE            I2
        UNITS           "N/A"
        DESCRIPTION     "spacecraft index: 1=st, 2=tdrs-e, 3=tdrs-w"
    END_FIELD


    FIELD  f_functions
        TYPE            R8
        DIMENSION       4
        DESCRIPTION     "f-functions for input time and spacecraft:
                        f1 = argument of latitude, degrees
                        f2 = range, km
                        f3 = right ascension of ascending node, degrees
                        f4 = inclination, degrees"
    END_FIELD


    FIELD  wvog_g
        TYPE            R8
        UNITS           "DEGREES"
        DESCRIPTION     "g from appendix b.5.1"
    END_FIELD


    FIELD  sin_f1
        TYPE            R8
        UNITS           "N/A"
        DESCRIPTION     "sine of the argument of latitude, f1"
    END_FIELD


    FIELD  cos_f1
        TYPE            R8
        UNITS           "N/A"
        DESCRIPTION     "cosine of the argument of latitude, f1"
    END_FIELD


    FIELD  sin_f3
        TYPE            R8
        UNITS           "N/A"
        DESCRIPTION     "sine of the right acsension, f3"
    END_FIELD


    FIELD  cos_f3
        TYPE            R8
        UNITS           "N/A"
        DESCRIPTION     "cosine of the right acsension, f3"
    END_FIELD


    FIELD  sin_f4
        TYPE            R8
        UNITS           "N/A"
        DESCRIPTION     "sine of the inclination,f4"
    END_FIELD


    FIELD  cos_f4
        TYPE            R8
        UNITS           "N/A"
        DESCRIPTION     "cosine of the inclination, f4"
    END_FIELD


    FIELD  position_vector
        TYPE            R8
        UNITS           "KM"
        DIMENSION       3
        DESCRIPTION     "position vector for input time and spacecraft, km"
    END_FIELD


    FIELD  orbit_number
        TYPE            I4
        UNITS           "N/A"
        DESCRIPTION     "orbit number for input time and spacecraft"
    END_FIELD

END_RECORD

INSTANCE  orbit_record
    TYPE        WVORBP_TYPE
    GLOBAL
END_INSTANCE