;+
; PROJECT
;
;           Solar-B EIS
;
; NAME
;
;           EIS_SET_ZDBASE
;
; PURPOSE
;
;           Procedure to set ZDBASE 
;
; INPUTS
;
;           value = 0/1 for OFFICIAL/USER
;
; CATEGORY
;
;           EIS Technical Planning
;           Database
;
; WRITTEN
;           John A Rainnie, RAL, 10-Feb-2006
;
; MODIFICATION HISTORY
;
;-
;************************************************************************
PRO eis_set_zdbase , value

IF (value NE 0 OR 1) THEN BEGIN

    print,"++++++++++++++++++++++++++++++++++"
    print,"Invalid input into 'eis_set_zdbase'"
    print,"Returning"
    print,"++++++++++++++++++++++++++++++++++"
    RETURN

ENDIF

CASE value OF
    0 : s = fix_zdbase(/EIS)
    1 : s = fix_zdbase(/USER)
ENDCASE

END