1
! @(#)cloud.ctx 19.1 (ES0-DMD) 02/25/03 13:23:18
2
!===========================================================================
3
! Copyright (C) 1995 European Southern Observatory (ESO)
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.
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.
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,
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
27
!===========================================================================
29
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
31
! Procedure cloud.ctx M.Pierre+J.D.Ponz 880421
35
! Define CLOUD commands
38
! --------------------------------------------------------------
40
! define context origin
43
WRITE/KEY CLDDIM/R/1/3 0.,0.,0.
44
! coeffs for the continuum
45
WRITE/KEY CLDCT/R/1/6 1.,0.,0.,0.,0.,0.
47
WRITE/KEY CLDZ/R/1/1 0.
48
! Maxwellian or Voigtian (default) profiles
49
WRITE/KEY CLDOP/I/1/1 1
51
CREA/COMM COMPUTE/ABSORPTION @c cloudabs
52
CREA/COMM COMPUTE/EMISSION @c cloudemi
53
CREA/COMM CREATE/PSF @c cloudpsf
54
CREA/COMM TUTORIAL/CLOUD @c cloudemo
55
WRITE/OUT "----------------------------------------------------------------"
56
WRITE/OUT " Context CLOUD. version 2.0 "
57
WRITE/OUT " Initialize commands CREATE/PSF, COMPUTE/ABS COMPUTE/EMI "
58
WRITE/OUT " Template tables EMI.tbl, ABSC.tbl and ABSP.tbl are "
59
WRITE/OUT " located in MID_TEST "
60
WRITE/OUT "----------------------------------------------------------------"