1
!===========================================================================
2
! Copyright (C) 1995-2010 European Southern Observatory (ESO)
4
! This program is free software; you can redistribute it and/or
5
! modify it under the terms of the GNU General Public License as
6
! published by the Free Software Foundation; either version 2 of
7
! the License, or (at your option) any later version.
9
! This program is distributed in the hope that it will be useful,
10
! but WITHOUT ANY WARRANTY; without even the implied warranty of
11
! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12
! GNU General Public License for more details.
14
! You should have received a copy of the GNU General Public
15
! License along with this program; if not, write to the Free
16
! Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
19
! Correspondence concerning ESO-MIDAS should be addressed as follows:
20
! Internet e-mail: midas@eso.org
21
! Postal address: European Southern Observatory
22
! Software Development Division
23
! Karl-Schwarzschild-Strasse 2
24
! D 85748 Garching bei Muenchen
26
!===========================================================================
28
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
30
! Procedure lyman.ctx P. Ballester 910111
35
! Define standard lyman commands
37
! --------------------------------------------------------------
39
! indicate origin of context
42
DEFINE/LOCAL LERR/I/1/1 {ERROR(2)} !save current user level
45
CREATE/COMMAND BATCH/LYMAN @c backly
46
CREATE/COMMAND COMPUTE/LYMAN @c comply
47
CREATE/COMMAND CONVERT/LYMAN @c convlyman
48
CREATE/COMMAND CURSOR/LYMAN @c cursly
49
CREATE/COMMAND INITIAL/LYMAN @c lyminit
50
CREATE/COMMAND FIT/DIRECT @c fitdir
51
CREATE/COMMAND FIT/LYMAN @c fitly
52
CREATE/COMMAND PLOT/LYMAN @c plotly
53
CREATE/COMMAND PLOT/REDSHIFT @c plotredsh
55
!CREATE/COMMAND SET/LYMAN @c setly
58
AUX_MODE(4) = 1 ! Copy all descriptors
61
WRITE/OUT "*** Context Lyman enabled ***"
63
WRITE/OUT "Commands: BATCH/LYMAN [spe] [inphis] [outtab] [outhis] [gra Y/N]"
64
WRITE/OUT " COMPUTE/LYMAN linetab outsp [refspe] [option] [noise]"
65
WRITE/OUT " CONVERT/LYMAN image table stdev Resolution"
66
WRITE/OUT " CURSOR/LYMAN "
67
WRITE/OUT " INIT/LYMAN "
68
WRITE/OUT " FIT/DIRECT [spec] [outtab] [history] [session] [grap(Y/N)]"
69
WRITE/OUT " FIT/LYMAN [spec] [outtab] [history] [session] [grap(Y/N)]"
70
WRITE/OUT " PLOT/LYMAN [spec] [lamcen1,..] [size1,..] [label1..] [session]"
71
WRITE/OUT " PLOT/REDSHIFT [spec] [z/lamcen] [size] [label1,..] [session]"
72
!WRITE/OUT " SET/LYMAN "