C+
C	NAME:
C		GBO_STRUCT
C	PURPOSE:
C		Define the following ground Based Observing database structures
C			* GEV_Data_Rec
C			* GXR_Data_Rec
C			* NAV_Data_Rec
C			* GBO_Version_Rec
C
C	CALLING SEQUENCE:
C		GBO_STRUCT
C	HISTORY:
C		written by Mons Morrison, Jun-92
C		slf, 23-sep-92, added GXR_Data_Rec, modified GBO_Version_Rec
C		slf, 10-oct-92, changed number pad bytes, GXR_Data_Rec
C
C-
C	---------------------------------------------------------------

	STRUCTURE	/GEV_Data_rec/
	  integer*4	time		! 00- Time (millisec of day)
	  integer*2	day		! 04- Day (since 1-Jan-79)
	  integer*4	peak		! 06- The number of seconds past the start time that the
					!     peak intensity occurs
	  integer*4	duration	! 10- The number of seconds that the event lasts
	  character*4	class		! 14- The GOES classification (ie: X3.3)
	  character*2	halpha		! 18- The H-alpha importance (ie: 3B)
	  integer*2	location(2)	! 20- The location in heliocentric coordinates
					!     Values are in degrees
					!	(0) = E/W (E is negative)
					!	(1) = N/S (S is negative)
					!     A value of -999 means that there was no data available
	  integer*2	noaa		! 24- NOAA active region number
	  integer*2	radio(3)	! 26- The radio flux at (2.7, 8.8, 15.4)
	  character*20	comment		! 32- The comment notations
					!	II, III, IV, V, C = Type II, III, IV, V, or continuum
					!		radio burst reported, respectively
					!			L = loop prominence system reported
					!			S = spray reported
					!			B = bright surge on limb reported
					!			E = eruptive prominence reported
	  byte		spare(12)	! 52- Spare
	END STRUCTURE			! 64

	STRUCTURE	/GXR_Data_rec/  ! Goes X-Ray Data
	  integer*4	time		! 00- Time (millisec of day)
	  integer*2	day		! 04- Day (since 1-Jan-79)
	  integer*2	g7lo		! Goes 7 Low energy count rate
	  integer*2	g6lo		! Goes 6 Low energy count rate
	  integer*2	g7hi		! Goes 7 High energy count rate
	  integer*2	g6hi		! Goes 6 High energy count rate
	  byte		digitize	! Digitization Method:
					!    1 = Tektronics, 6 hour plot derived
					!	 Datrng=[101,679]->[1E-9,1E-3] , log
	  byte		spare(1)	! Spare (from 6 to 1, 10-oct-92, slf)
	END STRUCTURE			! 16 total 

 

	STRUCTURE	/NAR_Data_rec/
	  integer*4	time		! 00- Time (millisec of day)
	  integer*2	day		! 04- Day (since 1-Jan-79)
	  integer*2	noaa		! 06- NOAA active region number
	  integer*2	location(2)	! 08- The location in heliocentric coordinates
					!     Values are in degrees
					!	(0) = E/W (E is negative)
					!	(1) = N/S (S is negative)
					!     A value of -999 means that there was no data available
	  integer*2	longitude	! 12- longitude of active region
	  integer*2	area		! 14- Area of active region in millionths
	  character*3	macintosh	! 16- MacIntosh classification
					!	Details ??
	  integer*2	long_ext	! 19- longitude extent in degrees
	  integer*2	num_spots	! 21- number of spots
	  character*16	mag_type	! 23- Magnetic type
					!	ALPHA
					!	BETA
					!	GAMMA
	  byte		spare(9)	! 39-
	END STRUCTURE			! 48- Total


	STRUCTURE       /GBO_Version_Rec/
          integer*2     GEV /'A021'x/   !   - GOES event log
	  integer*2	NAR /'A031'x/	!   - NOAA Active Region - slf, from A020 to A031
	  integer*2	GXT /'A041'x/	!   - GOES XR Derived from Tektronic, slf, 23-sep-92
	  integer*2	GXD /'A051'x/	!   - GOES XR Supplied Digital, slf 23-sep-92
          byte          spare(8)       !     (need for automatic conversion to IDL format)
	END STRUCTURE