SURFLIB_FILL_WPLATE - Populate the WavePlate array

Description:

Populate an array containing the waveplate angle for each sample. This can be calculated in two ways. If the SCUCD_WPLATE array is present (N_WPLATE$>$0), then this array contains the waveplate position for each measurement. If this array is not present the Waveplate angle is assumed to start at 0 degrees and increment by 22.5 degrees for each integration. If the number of measurements exceeds the number of positions in the SCUCD_WPLATE array the sequence wraps round to the first value. The final output array will contain a single number (waveplate position) per sample (up to N_POS). The output value will be in degrees.

Since integrations and measurements are stored sequentially in a data file (in DEM_PNTR) there is no need to use SCULIB_FIND_SWITCH to determine the start and end points in the data array - use SCULIB_FIND_INT.

The waveplate angles are also stored in a small array containing a single wave plate angle for each integration and each measurement. This is created to make it easier to extract the individual waveplate positions later on when storing them in output file

Invocation:

CALL SURFLIB_FILL_WPLATE(USE_WP, N_WPLATE, SCUCD_WPLATE, N_POS, N_EXP, N_INT, N_MEAS, DEM_PNTR, WPLATE_OUT, WPLATE_ANG, STATUS)

Arguments:

N_WPLATE = INTEGER (Given)

Size of SCUCD_WPLATE array. If the value is zero then SCUCD_WPLATE will not be used.

SCUCD_WPLATE(N_WPLATE) = REAL (Given)

Waveplate positions for each measurement (degrees)

N_POS = INTEGER (Given)

Number of samples in WPLATE_OUT

N_EXP = INTEGER (Given)

Number of exposures in DEM_PNTR array

N_INT = INTEGER (Given)

Number of integrations in DEM_PNTR array

N_MEAS= INTEGER (Given)

Number of measurements in DEM_PNTR array

DEM_PNTR ( 1, N_EXP, N_INT, N_MEAS ) = INTEGER (Given)

Start position for each EXP, INT, MEAS

WPLATE_OUT ( N_POS ) = REAL (Returned)

Waveplate position for each sample (degrees)

WPLATE_ANG( N_INT, N_MEAS ) = REAL (Given)

Waveplate position for each integration/measurement

STATUS = INTEGER (Given & Returned)

Global status

Copyright

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