C+
C	NAME:
C		FEM_OLD_STRUCT
C	PURPOSE:
C		Define the following FEM (S/C transition) specific database structures
C			* FEM_9001_Data_Rec
C
C	CALLING SEQUENCE:
C		FEM_OLD_STRUCT
C	HISTORY:
C		Written 22-Nov-91 by M.Morrison
C
C-
C	---------------------------------------------------------------

	STRUCTURE	/FEM_9001_Data_Rec/	
	  integer*2	index_version /'9001'x/
					!
					!	One record per S/C day
					!	15 orbits per 24 hours
					!	105 orbits per week
					!	5460 orbits per year
	  integer*4     time            ! 00- Beginning of S/C day (Millisec of day)
					!     (True predicted start time, no margin worked
					!     in like the FileID has)
	  integer*2     day             ! 04- Beginning of S/C day (days since 1-Jan-79)

	  integer*2	night		! 06- Start of S/C night in seconds from S/C day
	  integer*2	st_saa		! 08- Start of S/C SAA in seconds from S/C day
	  integer*2	en_saa		! 10- End of S/C SAA in seconds from S/C day

	  integer*2	st_station(3)	! 12- Start of station contact in seconds from S/C day
					!	(i) = can be three station contacts in one day
	  integer*2	en_station(3)	! 16- End of station contact in seconds from S/C day
					!	(i) = can be three station contacts in one day
	  byte		st$station(3)	! 20- Station 
					!		'U' = KSC
					!		'C' = Canberra
					!		'M' = Madrid
					!		'G' = Goldstone
					!	(i) = can be three station contacts in one day
	  byte		st$antenna(3,2)	! 26- Antenna to be used (A or B)
					!	(i,j)
					!	(i) = can be three station contacts in one day
					!	(j) = can be two antenna uses per contact
	  integer*2	cng_antenna(3)	! 22- Time that the antenna must be changed in
					!     seconds from S/C day.  If the antenna is not
					!     changed, then these values are zero
					!	(i) = can be three station contacts in one day
	  byte		use_station(3)	! 30- Whether the station was actually used for a down
					!     link or not (0=no, 1=yes)
					!     DERIVED AFTER DOWNLINK BY LOOKING AT SIRIUS DATA

	  integer*2	sc_rev		! 30- Spacecraft revolution number
					!     This is actually only the number of S/C day/night
					!     transitions
	  byte		week		! 32- Week number (1-53)
	  byte		year		! 33- year (91,92,...)
	  byte		iday		! 34- Day within the week (0-6)
	  byte		day_rev		! 35- Revolution number within the day (1-15)

	  character*13	fileid		! 36- The master fileid for this orbit
					!     The FileID time is approximately 5 minutes before
					!     the true S/C day time.  This is the time used for
					!     extraction to insure that data in one orbit is not
					!     broken across files.

	  byte		spare(1)	! 49- Spare
	END STRUCTURE			! 64- Total


	STRUCTURE	/FEM_9002_Data_Rec/	
	  integer*2	path		! 00- The SIRIUS mainframe path ID (only the last
					!     4 characters since the date is the first
					!     6 characters (yyddmm)
	  integer*4     time            ! 00- Beginning of S/C day (Millisec of day)
					!     (True predicted start time, no margin worked
					!     in like the FileID has)
	  integer*2     day             ! 04- Beginning of S/C day (days since 1-Jan-79)

	  integer*2	night		! 06- Start of S/C night in seconds from S/C day
	  integer*2	st_saa		! 08- Start of S/C SAA in seconds from S/C day
	  integer*2	en_saa		! 10- End of S/C SAA in seconds from S/C day

	  integer*2	st_station(3)	! 12- Start of station contact in seconds from S/C day
					!	(i) = can be three station contacts in one day
	  integer*2	en_station(3)	! 16- End of station contact in seconds from S/C day
					!	(i) = can be three station contacts in one day
	  byte		st$station(3)	! 20- Station 
					!		'U' = KSC
					!		'C' = Canberra
					!		'M' = Madrid
					!		'G' = Goldstone
					!	(i) = can be three station contacts in one day
	  byte		st$antenna(3,2)	! 26- Antenna to be used (A or B)
					!	(i,j)
					!	(i) = can be three station contacts in one day
					!	(j) = can be two antenna uses per contact
	  integer*2	cng_antenna(3)	! 22- Time that the antenna must be changed in
					!     seconds from S/C day.  If the antenna is not
					!     changed, then these values are zero
					!	(i) = can be three station contacts in one day
	  byte		use_station(3)	! 30- Whether the station was actually used for a down
					!     link or not (0=no, 1=yes)
					!     DERIVED AFTER DOWNLINK BY LOOKING AT SIRIUS DATA

	  integer*2	sc_rev		! 30- Spacecraft revolution number
					!     This is actually only the number of S/C day/night
					!     transitions
	  byte		week		! 32- Week number (1-53)
	  byte		year		! 33- year (91,92,...)
	  byte		iday		! 34- Day within the week (0-6)
	  byte		day_rev		! 35- Revolution number within the day (1-15)

	  character*13	fileid		! 36- The master fileid for this orbit
					!     The FileID time is approximately 5 minutes before
					!     the true S/C day time.  This is the time used for
					!     extraction to insure that data in one orbit is not
					!     broken across files.

	  byte		spare(1)	! 49- Spare
	END STRUCTURE			! 64- Total