! @(#)spec.ctx	17.1.1.1 (ES0-DMD) 01/25/02 17:55:34
!===========================================================================
! Copyright (C) 1995 European Southern Observatory (ESO)
!
! This program is free software; you can redistribute it and/or 
! modify it under the terms of the GNU General Public License as 
! published by the Free Software Foundation; either version 2 of 
! the License, or (at your option) any later version.
!
! This program is distributed in the hope that it will be useful,
! but WITHOUT ANY WARRANTY; without even the implied warranty of
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
! GNU General Public License for more details.
!
! You should have received a copy of the GNU General Public 
! License along with this program; if not, write to the Free 
! Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
! MA 02139, USA.
!
! Corresponding concerning ESO-MIDAS should be addressed as follows:
!	Internet e-mail: midas@eso.org
!	Postal address: European Southern Observatory
!			Data Management Division 
!			Karl-Schwarzschild-Strasse 2
!			D 85748 Garching bei Muenchen 
!			GERMANY
!===========================================================================
!
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! 
! Procedure spec.ctx       P. Ballester    910111
!                             
! Purpose  :
!            SET/CONTEXT spec
!            Define standard spec commands
!
! -------------------------------------------------------------- 
!
! indicate origin of context
!HELP = stdred
! 
DEFINE/LOCAL LERR/I/1/1 'ERROR(2)'		!save current user level
SET/MIDAS USER=EXPERT
!
! Commands for the wavelength calibration
!
CREATE/COMMAND  OVERPLOT/IDENT         @s overiden
CREATE/COMMAND  SEARCH/LINE            @s searline
CREATE/COMMAND  CORRELATE/LINE         @s specorrel
!
! Flux Calibration Commands
!
CREATE/COMMAND  MERGE/SPECTRUM         @s spemerge
CREATE/COMMAND  EXTINCT/SPEC           @s extinct
CREATE/COMMAND  FILTER/RIPPLE          @s fripple
CREATE/COMMAND  REFRACTION/LONG        @s sprefrac
CREATE/COMMAND  COMPUTE/PARAL          @s sparlax
!
! Spectral Analysis Commands
!
CREATE/COMMAND  DEBLEND/LINE           @s spdblend
CREATE/COMMAND  CONTINUUM/SPEC         @s spcontin
CREATE/COMMAND  NORMALIZE/SPECTRUM     @s norm1d
!
! Special transform commands
!
CREATE/COMMAND  DISPERSION/HOUGH       @s sphough
CREATE/COMMAND  CENTER/HISTOGRAM       @s spcenthist
CREATE/COMMAN   CUMULATE/HISTOGRAM     @s spcumhist
!
! Other Commands 
!
CREATE/COMMAND  ROTATE/SPEC            @s sprotate
CREATE/COMMAND  GRAPH/SPEC             @s spgraph
CREATE/COMMAND  VERIFY/SPEC            @s spverif
CREATE/COMMAND  HST/SPEC               @s sphst
!
AUX_MODE(4) = 1            ! Copy all descriptors
ERROR(2) = LERR
!
! Define a set of keywords for extended polynomial regression
! (Commands REGRESS/POLY and SAVE/REGR)
!
WRITE/KEYW   KEYLONGC/C/1/20   " "  ALL
WRITE/KEYW   KEYLONGI/I/1/20    0    ALL
WRITE/KEYW   KEYLONGR/R/1/20    0.   ALL
WRITE/KEYW   KEYLONGD/D/1/100   0.   ALL
!
WRITE/OUT   *********** Context Spec enabled *****************
WRITE/OUT  "  "
! 
! 
entry clear
! 
delete/keyw keylongc,keylongi,keylongr,keylongd