! @(#)cloud.ctx	17.1.1.1 (ES0-DMD) 01/25/02 17:13:42
!===========================================================================
! 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 cloud.ctx       M.Pierre+J.D.Ponz 880421
!                           M.Peron           910431
! Purpose  : 
!            SET/CONTEXT cloud
!            Define CLOUD commands
!
!
! -------------------------------------------------------------- 
!
! define context origin
!HELP = contrib
!                          start, step, npix
WRITE/KEY  CLDDIM/R/1/3    0.,0.,0.
!                          coeffs for the continuum
WRITE/KEY  CLDCT/R/1/6     1.,0.,0.,0.,0.,0.
!                          z of the source
WRITE/KEY  CLDZ/R/1/1      0.
!                          Maxwellian or Voigtian (default) profiles 
WRITE/KEY  CLDOP/I/1/1     1
!
CREA/COMM  COMPUTE/ABSORPTION @c cloudabs
CREA/COMM  COMPUTE/EMISSION   @c cloudemi
CREA/COMM  CREATE/PSF         @c cloudpsf
CREA/COMM  TUTORIAL/CLOUD     @c cloudemo
WRITE/OUT  "----------------------------------------------------------------"
WRITE/OUT  " Context CLOUD. version 2.0 "
WRITE/OUT  " Initialize commands CREATE/PSF, COMPUTE/ABS COMPUTE/EMI  "
WRITE/OUT  " Template tables EMI.tbl, ABSC.tbl and ABSP.tbl are "
WRITE/OUT  " located in MID_TEST "
WRITE/OUT  "----------------------------------------------------------------"