SURFLIB_DECODE_REMSKY_STRING - Calculate bolometer list from remsky input

Description:

Given an array of bolometer descriptions, return an array of bolometer numbers. Input array can contain a variety of forms for identifying bolometers or lists of bolometers. This string is generated by, for example, the REMSKY task.

Invocation:

CALL SURFLIB_DECODE_REMSKY_STRING( SUB_INSTRUMENT, N_ELEMENTS, BOL_DESC, N_BOLS, BOL_ADC, BOL_CHAN, BOL_LIST, N_BOLS_OUT, STATUS )

Arguments:

SUB_INSTRUMENT = CHARACTER (Given)

Sub instrument name. This governs the bolometers that are allowed to be returned.

N_ELEMENTS = INTEGER (Given)

Number of elements in the input array

BOL_DESC( N_ELEMENTS ) = CHARACTER$*$($*$) (Given)

Array of bolometer descriptions Can take the form of:

n	bolometer number
id	bolometer id (eg H7)
all	all bolometers
rn	Nth ring of bolometers

Can be prefixed with a minus sign to indicate that a bolometer should be removed from the final list. The calculation is sequential.

N_BOLS = INTEGER (Given)

Maximum allowed size for return array containing bolometer numbers An error is given if this number is exceeded. In effect this is equivalent to the actual number of bolometers on the array.

BOL_ADC( N_BOLS ) = INTEGER (Given)

ADC numbers for identifying bolometers

BOL_CHAN( N_BOLS ) = INTEGER (Given)

Channel number for identifying bolometers

BOL_LIST( N_BOLS ) = INTEGER (Returned)

List of bolometer numbers corresponding to the supplied strings.

N_BOLS_OUT = INTEGER (Returned)

Actual number of bolometers returned in BOL_LIST

STATUS = INTEGER (Given & Returned)

Global status

Syntax

[all]	Whole array
[r0]	Ring zero (central pixel)
[h7,r1]	inner ring and h7
[r1,-h8]	inner ring without h8
[r1,-18]	inner ring without bolometer 18
[all,-r1,-h7]	all pixels except the inner ring/h7
[all,-r3,g1]	all pixels except ring 3 but with g1 (g1 is in r3)
[all,-r1,-r2,-r3,-r4,-r5]	Selects the central pixel!!

Note that the sequence is evaluated in turn so that [all,-all,h7] will still end up with pixel h7.

Copyright

Copyright ©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.