diff options
Diffstat (limited to 'noao/onedspec/scopy.cl')
| -rw-r--r-- | noao/onedspec/scopy.cl | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/noao/onedspec/scopy.cl b/noao/onedspec/scopy.cl new file mode 100644 index 00000000..5ac09c94 --- /dev/null +++ b/noao/onedspec/scopy.cl @@ -0,0 +1,30 @@ +# SCOPY -- Copy spectra + +procedure scopy (input, output) + +string input {prompt="List of input spectra"} +string output {prompt="List of output spectra"} + +real w1 = INDEF {prompt="Starting wavelength"} +real w2 = INDEF {prompt="Ending wavelength"} +string apertures = "" {prompt="List of apertures or columns/lines"} +string bands = "" {prompt="List of bands or lines/bands"} +string beams = "" {prompt="List of beams or echelle orders"} +int apmodulus = 0 {prompt="Input aperture modulus (0=none)\n"} + +string format = "multispec" {prompt="Output spectra format", + enum="multispec|onedspec"} +bool renumber = no {prompt="Renumber output apertures?"} +int offset = 0 {prompt="Output aperture number offset"} +bool clobber = no {prompt="Modify existing output images?"} +bool merge = no {prompt="Merge with existing output images?"} +bool rebin = yes {prompt="Rebin to exact wavelength region?"} +bool verbose = no {prompt="Print operations?"} + +begin + sarith (input, "copy", "", output, w1=w1, w2=w2, apertures=apertures, + bands=bands, beams=beams, apmodulus=apmodulus, reverse=no, + ignoreaps=no, format=format, renumber=renumber, offset=offset, + clobber=clobber, merge=merge, rebin=rebin, errval=0., + verbose=verbose) +end |