;PRO test_sim
;+
; Simulate the proposed set of simple tests to monitor gratings
; before/after environmental test.
; 9/21/94 dd
; 3/29/95 dd Updated for current directories etc.
;-

;@xray_common
;@labx_common
;@xrtf_common

;Default parameters

lx_sI = 0.1

lx_slitH = 25.4
lx_slitW = 0.5

xr_nr = 10000

; Thin HEG:
heg
lx_gthk = 5000.

date_code = '950329'

lx_sV = 6.0
lx_tname = 'MgO'
xr_detx = 0.0
lx_gm=99
xrtf
pspc_write_data, 'pspc.'+date_code+'.HEG.Dir.'+lx_tname+'.a'
lx_gm = 1
pre_print
xrtf
post_print
pspc_write_data, 'pspc.'+date_code+'.HEGpSIM.'+lx_tname+'.a'

lx_sV = 9.0
lx_tname = 'Mo'
lx_gm=99
xr_detx = -20.0
xrtf
pspc_write_data, 'pspc.'+date_code+'.HEG.Dir.'+lx_tname+'.a'
lx_gm = 1
pre_print
xrtf
post_print
pspc_write_data, 'pspc.'+date_code+'.HEGpSIM.'+lx_tname+'.a'

lx_sV = 9.0
lx_tname = 'Ti'
xr_detx = -10.0
lx_gm=99
xrtf
pspc_write_data, 'pspc.'+date_code+'.HEG.Dir.'+lx_tname+'.a'
lx_gm = 1
pre_print
xrtf
post_print
pspc_write_data, 'pspc.'+date_code+'.HEGpSIM.'+lx_tname+'.a'


;RETURN
;END