← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to stdred/spec/etc/spec.ctx

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
stdred/spec/etc/spec.ctx
 
1
! @(#)spec.ctx  19.1 (ES0-DMD) 02/25/03 14:28:35
 
2
!===========================================================================
 
3
! Copyright (C) 1995 European Southern Observatory (ESO)
 
4
!
 
5
! This program is free software; you can redistribute it and/or 
 
6
! modify it under the terms of the GNU General Public License as 
 
7
! published by the Free Software Foundation; either version 2 of 
 
8
! the License, or (at your option) any later version.
 
9
!
 
10
! This program is distributed in the hope that it will be useful,
 
11
! but WITHOUT ANY WARRANTY; without even the implied warranty of
 
12
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
13
! GNU General Public License for more details.
 
14
!
 
15
! You should have received a copy of the GNU General Public 
 
16
! License along with this program; if not, write to the Free 
 
17
! Software Foundation, Inc., 675 Massachusetss Ave, Cambridge, 
 
18
! MA 02139, USA.
 
19
!
 
20
! Corresponding concerning ESO-MIDAS should be addressed as follows:
 
21
!       Internet e-mail: midas@eso.org
 
22
!       Postal address: European Southern Observatory
 
23
!                       Data Management Division 
 
24
!                       Karl-Schwarzschild-Strasse 2
 
25
!                       D 85748 Garching bei Muenchen 
 
26
!                       GERMANY
 
27
!===========================================================================
 
28
!
 
29
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
30
! 
 
31
! Procedure spec.ctx       P. Ballester    910111
 
32
!                             
 
33
! Purpose  :
 
34
!            SET/CONTEXT spec
 
35
!            Define standard spec commands
 
36
!
 
37
! -------------------------------------------------------------- 
 
38
!
 
39
! indicate origin of context
 
40
!HELP = stdred
 
41
! 
 
42
DEFINE/LOCAL LERR/I/1/1 'ERROR(2)'              !save current user level
 
43
SET/MIDAS USER=EXPERT
 
44
!
 
45
! Commands for the wavelength calibration
 
46
!
 
47
CREATE/COMMAND  OVERPLOT/IDENT         @s overiden
 
48
CREATE/COMMAND  SEARCH/LINE            @s searline
 
49
CREATE/COMMAND  CORRELATE/LINE         @s specorrel
 
50
!
 
51
! Flux Calibration Commands
 
52
!
 
53
CREATE/COMMAND  MERGE/SPECTRUM         @s spemerge
 
54
CREATE/COMMAND  EXTINCT/SPEC           @s extinct
 
55
CREATE/COMMAND  FILTER/RIPPLE          @s fripple
 
56
CREATE/COMMAND  REFRACTION/LONG        @s sprefrac
 
57
CREATE/COMMAND  COMPUTE/PARAL          @s sparlax
 
58
!
 
59
! Spectral Analysis Commands
 
60
!
 
61
CREATE/COMMAND  DEBLEND/LINE           @s spdblend
 
62
CREATE/COMMAND  CONTINUUM/SPEC         @s spcontin
 
63
CREATE/COMMAND  NORMALIZE/SPECTRUM     @s norm1d
 
64
!
 
65
! Special transform commands
 
66
!
 
67
CREATE/COMMAND  DISPERSION/HOUGH       @s sphough
 
68
CREATE/COMMAND  CENTER/HISTOGRAM       @s spcenthist
 
69
CREATE/COMMAN   CUMULATE/HISTOGRAM     @s spcumhist
 
70
!
 
71
! Other Commands 
 
72
!
 
73
CREATE/COMMAND  ROTATE/SPEC            @s sprotate
 
74
CREATE/COMMAND  GRAPH/SPEC             @s spgraph
 
75
CREATE/COMMAND  VERIFY/SPEC            @s spverif
 
76
CREATE/COMMAND  HST/SPEC               @s sphst
 
77
!
 
78
AUX_MODE(4) = 1            ! Copy all descriptors
 
79
ERROR(2) = LERR
 
80
!
 
81
! Define a set of keywords for extended polynomial regression
 
82
! (Commands REGRESS/POLY and SAVE/REGR)
 
83
!
 
84
WRITE/KEYW   KEYLONGC/C/1/20   " "  ALL
 
85
WRITE/KEYW   KEYLONGI/I/1/20    0    ALL
 
86
WRITE/KEYW   KEYLONGR/R/1/20    0.   ALL
 
87
WRITE/KEYW   KEYLONGD/D/1/100   0.   ALL
 
88
!
 
89
WRITE/OUT   *********** Context Spec enabled *****************
 
90
WRITE/OUT  "  "
 
91
! 
 
92
! 
 
93
entry clear
 
94
! 
 
95
delete/keyw keylongc,keylongi,keylongr,keylongd