;
; make the resolving power rdb files for flight predictions
; optimistic and convervative (but both realistic)
; 9/24/97 dd
;

cip_dir = '/spectra/d6/CIP/'

; - - - - -
; Optimistic values
; - - - - -
; MEG
eb_reset,1
; make it
eb_vse
; put it in CIP dir
SPAWN,'cp MEG_res.rdb '+cip_dir+'MEG_res_opt.rdb'

; HEG
eb_reset,0
; make it
eb_vse
SPAWN,'cp HEG_res.rdb '+cip_dir+'HEG_res_opt.rdb'

; LEG
eb_reset,2
; make it
eb_vse
SPAWN,'cp LEG_res.rdb '+cip_dir+'LEG_res_opt.rdb'

; - - - - -
; Conservative values
; - - - - -
; MEG
eb_reset,1
; be a little conservative:
eb_ps(8) = 0.6  ; aspect rms diameter arc sec, expect 0.34 ?!
eb_ps(16) = 0.2 ; defocus of 0.2 mm - worst case?
eb_ps(23) = 2.5 ; dp/p at spec. of 250 ppm
; make it
eb_vse
; put it in CIP dir
SPAWN,'cp MEG_res.rdb '+cip_dir+'MEG_res_con.rdb'

; HEG
eb_reset,0
; be a little conservative:
eb_ps(8) = 0.6  ; aspect rms diameter arc sec, expect 0.34 ?!
eb_ps(16) = 0.2 ; defocus of 0.2 mm - worst case?
eb_ps(23) = 2.5 ; dp/p at spec. of 250 ppm
; make it
eb_vse
SPAWN,'cp HEG_res.rdb '+cip_dir+'HEG_res_con.rdb'

; LEG
eb_reset,2
; be a little conservative:
eb_ps(8) = 0.6  ; aspect rms diameter arc sec, expect 0.34 ?!
eb_ps(16) = 0.2 ; defocus of 0.2 mm - worst case?
eb_ps(23) = 1.5 ; dp/p at spec. of 250 ppm
; make it
eb_vse
SPAWN,'cp LEG_res.rdb '+cip_dir+'LEG_res_con.rdb'