;+
; PROJECT
;          SolarB EIS
;
; NAME
;          EIS_EVENT_PROPS_SAME
;
; PURPOSE
;          Function which ...
;
; CATEGORY
;          Timeline planning (timeline)
;
; WRITTEN
;          John Rainnie, RAL, 7-Apr-2008
;
; HISTORY
;          v0.1 JAR dd-Mon-2008
;               Blah blah
;
;-
;************************************************************************
FUNCTION eis_event_props_same , array

valid          = {valid:0B , mText:STRARR(4)}
valid.mText[0] = "There are multiple Bright Point trigger studies"
valid.mText[1] = "which have different properties! They must all be"
valid.mText[2] = "the same since there is only one table permitted."

; Response Study ID
test = WHERE(array[0].response_study_id NE                                $
              array[1:*].response_study_id  , count)
IF (count NE 0) THEN BEGIN
    valid.mText[3] = "Response Study ID. Aborting!"
    RETURN , valid
ENDIF
; X Repoint
test = WHERE(array[0].x_repoint NE                                $
              array[1:*].x_repoint  , count)
IF (count NE 0) THEN BEGIN
    valid.mText[3] = "X Repoint. Aborting!"
    RETURN , valid
ENDIF
; Y Repoint
test = WHERE(array[0].y_repoint NE                                $
              array[1:*].y_repoint  , count)
IF (count NE 0) THEN BEGIN
    valid.mText[3] = "Y Repoint. Aborting!"
    RETURN , valid
ENDIF
; Repoint Raster Index
test = WHERE(array[0].repoint_raster_index NE                                $
              array[1:*].repoint_raster_index  , count)
IF (count NE 0) THEN BEGIN
    valid.mText[3] = "Repoint Raster Index. Aborting!"
    RETURN , valid
ENDIF
; X Min Limit
test = WHERE(array[0].x_min_limit NE                                $
              array[1:*].x_min_limit  , count)
IF (count NE 0) THEN BEGIN
    valid.mText[3] = "X Min Limit. Aborting!"
    RETURN , valid
ENDIF
; Y Min Limit
test = WHERE(array[0].y_min_limit NE                                $
              array[1:*].y_min_limit  , count)
IF (count NE 0) THEN BEGIN
    valid.mText[3] = "Y Min Limit. Aborting!"
    RETURN , valid
ENDIF
; X Threshold
test = WHERE(array[0].x_pixel_threshold NE                                $
              array[1:*].x_pixel_threshold  , count)
IF (count NE 0) THEN BEGIN
    valid.mText[3] = "X Threshold. Aborting!"
    RETURN , valid
ENDIF
; Y Threshold
test = WHERE(array[0].y_pixel_threshold NE                                $
              array[1:*].y_pixel_threshold  , count)
IF (count NE 0) THEN BEGIN
    valid.mText[3] = "Y Threshold. Aborting!"
    RETURN , valid
ENDIF


; props = {eis_event_component                                   ,           $
;                seq_id                        : 0L              ,           $
;                respond_to_eis_event          : 0B              ,           $
;                response_study_id             : 0L              ,           $
;                x_repoint                     : 0B              ,           $
;                y_repoint                     : 0B              ,           $
;                repoint_raster_index          : 0               ,           $
;                event_flag                    : BYTARR(25)      ,           $
;                x_pixel_threshold             : 0B              ,           $
;                y_pixel_threshold             : 0B              ,           $
;                x_min_limit                   : 0L              ,           $
;                y_min_limit                   : 0L                          $
;            }

valid.valid = 1

RETURN , valid

END