;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:		pmas_lamps
;
;*CATEGORY:	PMAS instrument control
;
;*PURPOSE:	calibration lamp settings and/or status.
;
;               Standard mode:
;               The procedure allows one to simply switch on/off
;               one or several of the following lamps (Neon,Krypton,Mercury,
;               Argon,Halogen=tungsten filament) for subsequent calibration.
;
;               Maintenance mode:
;               Alternatively, one can switch on/off power supplies + shutters,
;               select among two pairs of spectral lamps, or retrieve the
;               current status of CALSBOX (calibration source box) 
;
;               Note: some spectral lamps may require several tens of seconds
;               to ignite and burn properly. PIN diodes are used to monitor
;               whether or not flux is produced by each lamp.
;
;		Status only mode:
;               Calling pmas_lamps with one parameter only (f_error) prints
;               a table with relevant hardware settings (unless /Q or /SILENT)
;
;*PARAMETERS:
;	INPUT:	none
;
;	OUTPUT:	f_error		1 if formatting error, else 0
;               cont1,sp1_1,sp1_2,sp2_1,sp2_2 : structure LPU of the form
;                               {LPU, power:0/1,  selected:0/1, lamp:'Hg',
;                                     flux:0/1,   shutter:0/1},   
;                               where 0/1 stands for entries of either 0 or 1
;                               lamp is a string for type of spectral lamp.
;	KEYWORDS:
;		/SILENT		if set, no printing on screen 
;		/DEBUG		if set, interpretation of strings printed
;               PC1=0/1         switch off/on halogen lamp power supply 
;               PS1=0/1         switch off/on spectral line lamp Sp1 power
;               PS2=0/1         switch off/on spectral line lamp Sp2 power
;               /HL             select Halogen lamp (used only with /ON )
;               /Neon or /Kr    select Neon or Krypton lamp
;               /Hg or /Ar      select Mercury or Argon
;               /ON             if used with lamp selection, immediately
;                               switch on power supplies+shutters, respectively
; 		SC=0/1          close/open Halogen lamp shutter
;               SNe=,SKr=,SHg=,SAr=0/1 close/open shutter for Neon, Krypton,
;                                      Mercury, and Argon lamps, respectively.
;	 	/DEFAULT	switch on HL, Neon, and Hg
;               /OFF		switch off all lamps, power, shutters immediately
;		/QUICK          return without requesting CALSBOX status
;
;
;*EXAMPLES:     - Standard Mode examples:
;               pmas_lamps,f,/Neon,/Hg,/HL,/ON    switch on Neon,Hg,HL
;               pmas_lamps,f,Neon=1,Hg=1,HL=1,/ON ... same (/KEYW equiv. KEYW=1)
;               pmas_lamps,f,Neon=0               switch off Neon
;               pmas_lamps,f,/OFF                 switch off completely
;
;               - Maintenance Mode example:
;               pmas_lamps,f,/PS2,PS1=0,/Hg,SHg=0  switch on power Sp2, switch
;                                                  off power Sp1, select Hg,
;                                                  but keep shutter closed.
;
;*SYSTEM VARIABLES USED:	- none -
;
;*COMMON BLOCKS:		- none -
;
;*INTERACTIVE INPUT:		- none -
;
;*SUBROUTINES CALLED:		- none -
;
;*FILES USED:			- none -
;
;*SIDE EFFECTS:		*** needs to be updated when ACE software is changed ! 
;
;*RESTRICTIONS:
;
;*NOTES:
;
;*PROCEDURE:
;
;*MODIFICATION HISTORY:
;
;	21/10/01	MMR	initial programming
;          
;*AUTHORS:
;
;	MMR		Martin M. Roth	Astrophysikalisches Institut Potsdam
;					An der Sternwarte 16
;					D-14547 Potsdam  
;					Tel. +49 - 331 - 7499 313
;                                       email: mmroth@aip.de
;-
;---------------------------------------------------------------------------