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

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)

N_WPLATE = INTEGER (Given)

SCUCD_WPLATE(N_WPLATE) = REAL (Given)

N_POS = INTEGER (Given)

N_EXP = INTEGER (Given)

N_INT = INTEGER (Given)

N_MEAS= INTEGER (Given)

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

WPLATE_OUT ( N_POS ) = REAL (Returned)

WPLATE_ANG( N_INT, N_MEAS ) = REAL (Given)

STATUS = INTEGER (Given & Returned)

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