Description:
This routine obtains
the parameters of the JIGGLE pattern: JIGL_X, JIGL_Y and some FITS parameters. The
dimensions of these arrays are checked and an error returned if necessary.
Invocation
CALL
SCULIB_GET_JIGGLE(LOC, MAX_JIGGLE, N_FITS, FITS, JIGGLE_COUNT, JIGGLE_REPEAT,
JIGGLE_P_SWITCH, SAMPLE_PA, SAMPLE_COORDS, JIGGLE_X, JIGGLE_Y, STATUS)
Arguments
LOC
= _CHARACTER (Given)
Locator to the SCUBA extension
MAX_JIGGLE = _INTEGER (Given)
Maximum number of jiggle positions
N_FITS = _INTEGER (Given)
Size of FITS array
FITS =
_CHARACTER (Given)
FITS values
JIGGLE_COUNT = _INTEGER (Returned)
Actual size of
jiggle pattern
JIGGLE_REPEAT = _INTEGER (Returned)
Number of times jiggle pattern is repeated
in a switch
JIGGLE_P_SWITCH = _INTEGER (Returned)
Number of jiggles per switch
SAMPLE_PA = _REAL
position angle of sample x axis relative to x axis of SAMPLE_COORDS
SAMPLE_COORDS = _CHARACTER
coordinate system of sample offsets
JIGGLE_X = _REAL
(Returned)
X jiggle positions
JIGGLE_Y = _REAL (Returned)
Y jiggle positions
STATUS =
_INTEGER (Given & Returned)
Global status
Notes:
This routine does not annul the locator.
Prior Requirements
The locator to the structure must already be available.
Copyright
Copyright
©1995,1996,1997,1998,1999 Particle Physics and Astronomy Research Council. All Rights Reserved.