PRO ASTROLIB
;+
; NAME
;	ASTROLIB
; PURPOSE:
;	Add the non-standrad system variables in use in the IDL Astronomy 
;	User's Library.    Also defines the environment variable or VMS 
;	logical ASTRO_DATA pointing to the directory containing data files 
;	associated with the IDL Astronomy library (system dependent).
;
; CALLING SEQUENCE:
;	ASTROLIB
;
; INPUTS:
;	None.
;
; OUTPUTS:
;	None.
;
; METHOD:
;	The non-standard system variables !PRIV, !DEBUG, !TEXTUNIT, and 
;	!TEXTOUT are added using DEFSYSV.
;
; REVISION HISTORY:
;	Written, Wayne Landsman, July 1986.
;	Use DEFSYSV instead of ADDSYSVAR           December 1990
;-
  On_error,2   

  defsysv, '!DEBUG', 0
  defsysv, '!PRIV', 2
  defsysv, '!TEXTUNIT', 0
  defsysv, '!TEXTOUT', 1 

; The following code needs to modified for each particular installation

  where_db = '~dd/irt/xgef_test/'


  if !VERSION.OS eq "vms" then $ 
     setlog,'ASTRO_DATA','$1$DUA5:[IDLUSER.DATA]' $
  else $
     setenv,'ASTRO_DATA='+where_db

  message,'Astronomy Library system variables have been added',/INF
  message,'Grating Database is in '+where_db ,/INF

  return
  end