1
! @(#)ferosextract.prg 19.1 (ESO-IPG) 02/25/03 14:22:01
2
! @(#)ferosextract.prg 1.1 (ESO-IPG) 02/25/99 16:55:20
3
! @(#)ferosextract.prg 1.0 (ESO-IPG) 14-11-97
4
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
6
!.COPYRIGHT (C) 1997 European Southern Observatory
7
!.IDENT ferosextract.prg
8
!.AUTHOR Anton Malina, LSW Heidelberg
9
!.KEYWORDS Spectroscopy, Echelle, FEROS
10
!.PURPOSE Extract spectrum
11
!.VERSION 1.0 Creation 14-Nov-1997
13
!-------------------------------------------------------
15
define/param p1 {STRAIGHT_IMG} I "straightened input spectrum: "
16
define/param p2 {EXT_IMG} I "Output image: "
17
define/param p3 {SPECTR_TYPE}{EXT_MODE}{PROFILE_GET}{IMG_WRITE} C "Spectrograph type, extraction mode, determine profile, write images (F|G,S|O,Y|N,Y|N): "
18
define/param p4 {FIT_DEG},{EXT_ITER} ? "fit degree, number of iterations: "
19
define/param p5 {CCD_RON},{CCD_GAIN},{CCD_THRES} N "readout noise, gain, threshold: "
20
define/param p6 {COEF_COP} T "coefficient output file: "
22
write/key in_c/C/1/80 {p1}
26
write/key ccd_par/R/1/80 {p5}
27
write/key out_c/C/1/80 {p6}
28
write/key out_D/C/1/80 {FIT_IMG}
29
write/key out_E/C/1/80 {MASK_IMG}
31
run STD_EXE:echext.exe