; IDL startup file for combined X-GEF and LR analysis!
; This file can be put in any directory and sets paths to 
; all the routines.
;
; Define where various things are:
;  path to IDL itself
DEFSYSV, '!DIR', EXISTS = ie
IF ie NE 1 THEN DEFSYSV, '!DIR', '/apr/idl/idl_4'
;  path to dd's IDL code directories
DEFSYSV, '!DDIDL', '/nfs/wiwaxia/h1/dd/idl'
;  path to lookup tables used
DEFSYSV, '!DDLOOKUPS', '/nfs/wiwaxia/h1/dd/idl/lookups'
;  path to LR data directory
DEFSYSV, '!DDLRDAT', '/nfs/fuzzy/h1/tgs/lr/dat'
;  path to X-GEF ancillary data directory
DEFSYSV, '!DDXGEFANC', '/nfs/wiwaxia/h1/dd/idl/xgef_anc'
;  path to GratingStatus spread sheet
DEFSYSV, '!DDGSDIR', '/nfs/fuzzy/h1/tgs/results'

; Startup message
print, ''
print, 'IDL startup file for HETG Meta-analysis... (12/13/95)'
; everybody uses X!
set_plot, 'X'
print, ' '

; OK, setup paths to all the dd IDL s/w...
print, ' setting paths...'
print, ' '
;  for generally useful routines:
!path=!DDIDL+'/useful:'+!path
;  for LR s/w:
!path=!DDIDL+'/lr:'+!path
;  for efficiency calculations...
!path=!DDIDL+'/labxray:'+!path ; lab simulations
;  for X-GEF:
!path=!DIR+'/lib_irt:'+!path  ; nominal IRT code
!path=!DDIDL+'/cash:'+!path  ; look here for most uptodate ver.s
!path=!DDIDL+'/irt_useful:'+!path ; useful IRT routines by dd
!path=!DDIDL+'/xrtf:'+!path
!path=!DDIDL+'/fits:'+!path
!path=!DDIDL+'/xgef_test:'+!path
!path=!DDIDL+'/jfit:'+!path
!path=!DDIDL+'/meta:'+!path
;------------------------------------------------
; and lib astro for FITS and Database?
!path=!path+':'+!DIR+'/lib_astro/pro/fits'
!path=!path+':'+!DIR+'/lib_astro/pro/fits_bintable'
!path=!path+':'+!DIR+'/lib_astro/pro/database'
!path=!path+':'+!DIR+'/lib_astro/pro/misc'
!path=!path+':'+!DIR+'/lib_astro/pro/sdas'
;------------------------------------------------
print, '                   and commons...'
; LR commons and prompt
.rnew lra
; X-GEF commons
.run irt   
; more X-GEF commons, prompt
.run fits_start 
; meta prompt
.run meta

.run cmdb_start