1
! @(#)ferosunblaze.prg 19.1 (ESO-IPG) 02/25/03 14:22:03
2
! @(#)ferosunblaze.prg 1.1 (ESO-IPG) 02/25/99 16:55:20
3
! @(#)ferosunblaze.prg 1.0 (ESO-IPG) 14-11-97
4
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
6
!.COPYRIGHT (C) 1997 European Southern Observatory
7
!.IDENT ferosunblaze.prg
8
!.AUTHOR Anton Malina, LSW Heidelberg
9
!.KEYWORDS Spectroscopy, Echelle, FEROS
10
!.PURPOSE Remove blaze function
11
!.VERSION 1.0 Creation 14-Nov-1997
13
!-------------------------------------------------------
15
define/param p1 {EXT_IMG}
16
define/param p2 {FLATEXT_IMG}
17
define/param p3 {UNBLAZED_IMG}
20
! uses SEARCH/LINE from context spec
21
IF {FIBER_MODE} .EQ. 1 THEN ! one fiber
22
COMPUTE/IMA {p3} = {p1} / {p2}
24
COMPUTE/IMA {p3}1 = {p1}1 / {p2}1
25
COMPUTE/IMA {p3}2 = {p1}2 / {p2}2