SCULIB_DECODE

←Prev
SURF Programming Interface
Next→
TOC ↑

SCULIB_DECODE_FILTER

decode filter name into names and wavelengths of filters in front of each instrument section in use

Description:

This routine decodes the filter name to give the name and central wavelength of the filter in front of each sub-instrument being used.

The filter name should be in format $<$ short $>$ : $<$ long $>$ where these are the names of the filters in front of the short and long-wave focal planes.

   $<$ short $>$  can be:-
 $<$ long $>$  can be:-
 
 ’350’   short wavelength   =   350.0   name =   ’350’ 
  ’450’                            450.0           ’450’                                                                                                                 
 ’600’       600.0     ’600’
  ’750’                            750.0           ’750’                                                                                                                 
 ’850’       850.0     ’850’
 ’PHOT’                           -1.0           ’BLANK’                                                                                                               
          
 
  ’350’            long array  =   350.0   name =  ’350’                                                                                                                 
         P1100, P1300, P2000      350.0           ’350’                                                                                                                 
  ’450’            long array  =   450.0           ’450’                                                                                                                 
         P1100, P1300, P2000      450.0           ’450’                                                                                                                 
  ’600’            long array  =   600.0           ’600’                                                                                                                 
         P1100, P1300, P2000      600.0           ’600’                                                                                                                 
  ’750’            long array  =   750.0           ’750’                                                                                                                 
         P1100, P1300, P2000      750.0           ’750’                                                                                                                 
  ’850’            long array  =   850.0           ’850’                                                                                                                 
         P1100, P1300, P2000      850.0           ’850’                                                                                                                 
 ’PHOT’           long array  =   -1.0           ’BLANK’                                                                                                               
                       P1100  =  1100.0          ’1100’                                                                                                                
   P1300   =   1300.0     ’1300’
                       P2000  =  2000.0          ’2000’

If the filter name does not fit the ‘pattern’ described an error message will be output and the routine return with bad status. The routine is insensitive to the case of ‘PHOT’.

Invocation

CALL SCULIB_DECODE_FILTER (FILTER, N_SUB, SUB_INSTRUMENT, SUB_FILTER, WAVELENGTH, STATUS)

Arguments

FILTER = CHARACTER $$ ( $$ ) (Given)

name of filter

N_SUB = INTEGER (Given)

number of sub instruments being used

SUB_INSTRUMENT (N_SUB) = CHARACTER $$ ( $$ ) (Given)

the names of the sub instruments being used

SUB_FILTER (N_SUB) = CHARACTER $$ ( $$ ) (Returned)

the name of the filter in front of each sub-instrument

WAVELENGTH (N_SUB) = REAL (Returned)

the wavelength in microns of the filters in front of the sub instruments being used. An inappropriate filter will have wavelength set to VAL__BADR

STATUS = INTEGER (Given and returned)

global status

Notes:

The wavelength values are probably out of step with those currently in use by the real-time system.

Copyright

←Prev
SURF Programming Interface
Next→
TOC ↑


’350’	short wavelength	=	350.0	name =	’350’
’450’			450.0		’450’
’600’			600.0		’600’
’750’			750.0		’750’
’850’			850.0		’850’
’PHOT’			-1.0		’BLANK’


’350’	long array	=	350.0	name =	’350’
	P1100, P1300, P2000		350.0		’350’
’450’	long array	=	450.0		’450’
	P1100, P1300, P2000		450.0		’450’
’600’	long array	=	600.0		’600’
	P1100, P1300, P2000		600.0		’600’
’750’	long array	=	750.0		’750’
	P1100, P1300, P2000		750.0		’750’
’850’	long array	=	850.0		’850’
	P1100, P1300, P2000		850.0		’850’
’PHOT’	long array	=	-1.0		’BLANK’
	P1100	=	1100.0		’1100’
	P1300	=	1300.0		’1300’
	P2000	=	2000.0		’2000’