C+
C	NAME:
C		FEM_STRUCT
C	PURPOSE:
C		Define the following FEM (S/C transition) specific database structures
C			* FEM_Data_Rec
C			* FEM_Version_Rec
C
C	CALLING SEQUENCE:
C		FEM_STRUCT
C	HISTORY:
C		Written 22-Nov-91 by M.Morrison
C		23-Mar-95 (MDM) - Changed the structure to hold 6 station contacts
C				  within a single orbit to handle Wallops
C		15-May-95 (MDM) - Added comment information (add Santiago)
C
C-
C	---------------------------------------------------------------

	STRUCTURE	/FEM_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            ! 04- Beginning of S/C day (Millisec of day)
					!     (True predicted start time, no margin worked
					!     in like the FileID has)
	  integer*2     day             ! 06- Beginning of S/C day (days since 1-Jan-79)

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

	  integer*2	st_station(6)	! 14- Start of station contact in seconds from S/C day
					!	(i) = can be six station contacts in one day
	  integer*2	en_station(6)	! 26- End of station contact in seconds from S/C day
					!	(i) = can be six station contacts in one day
	  byte		st$station(6)	! 38- Station 
					!		'U' = KSC
					!		'C' = Canberra
					!		'M' = Madrid
					!		'G' = Goldstone
					!		'W' = Wallops
					!		'S' = Santiago
					!	(i) = can be six station contacts in one day
	  byte		use_station(6)	! 44- 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		! 50- Spacecraft revolution number
					!     This is actually only the number of S/C day/night
					!     transitions
	  byte		week		! 52- Week number (1-53)
	  byte		year		! 53- year (91,92,...)
	  byte		iday		! 54- Day within the week (0-6)
	  byte		day_rev		! 55- Revolution number within the day (1-15)

	  character*13	fileid		! 56- 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(11)	! 69- Spare
	END STRUCTURE			! 80- Total


	integer*4	nFEM_Data_Rec
	parameter	(nFEM_Data_Rec = 64)

	STRUCTURE       /FEM_Version_Rec/
          integer*2     data /'9004'x/  ! 02- Data section version number

                                        !     This structure is not written to any files
          byte          spare           !     (need for automatic conversion to IDL format)
	END STRUCTURE