; wrmask.pro
;
; This program automates the process of creating a 'mask' file once
; the user has determined which pixels of the calibration image are
; to be used for determining the filter passband.
wm=WHERE(mask,nwm)
HELP,wm,nwm
OPENW,1,'mask'
PRINTF,1,nwm,FORMAT='(I3)'
PRINTF,1,wm,FORMAT='(I5)'
CLOSE,1
SPAWN,'head mask'
END