SURFLIB_FILL_POLPACK_ANGLES - Average

Description:

Copy the waveplate and rotation angles from WPLATE and ANGROT (Which have dimensions (N_INT,N_MEAS) to a 2-dim array containing the angles (waveplate and rotation) for each integration and (in a separate array) the angles for each measurement. Note that since the rotation angles are stored in the file as one per integration, they need to be averaged over the integration in order to calculate the correct value for the measurement. ANG_MEAS and ANG_INT should be set to VAL__BADR before entry to this routine.

Invocation:

CALL SURFLIB_FILL_POLPACK_ANGLES( MAX_FILE, MAX_INT, MAX_MEAS, N_FILE, N_INT, N_MEAS, WPLATE, ANGROT, FAST_AXIS, ANG_INT, ANG_MEAS, STATUS)

Arguments:

MAX_FILE = INTEGER (Given)

First Dimension of ANG_INT,ANG_MEAS

MAX_INT = INTEGER (given)

Second dimension of ANG_INT

MAX_MEAS = INTEGER (given)

Second dimension of ANG_MEAS

N_FILE = INTEGER (Given)

Current slice in ANG_INT, ANG_MEAS

N_INT = INTEGER (Given)

Number of integrations per measurement

N_MEAS = INTEGER (Given)

Number of measurements

WPLATE(N_INT, N_MEAS) = REAL (Given)

Waveplate angles for each integration

ANGROT(N_INT, N_MEAS) = REAL (Given)

Waveplate angles for each integration

FAST_AXIS = REAL (Given)

Angle of the fast axis of the waveplate and the zero position of the waveplate. Added to each waveplate angle to calculate the true angle of the waveplate.

ANG_INT(MAX_FILE, MAX_INT, 2) = REAL (Returned)

Waveplate and rotation angles for each integration 1=Waveplate, 2=Rotation. The waveplate angle is corrected for fast axis.

ANG_MEAS(MAX_FILE, MAX_MEAS, 2) = REAL (Returned)

Waveplate and rotation angles for each measurement. 1=Waveplate, 2=Rotation. The waveplate angle is corrected for fast axis. The rotation angle is average over each integration during the measurement. The waveplate angle is set to bad if it is not constant for the given measurement.

STATUS = INTEGER (Given and Returned)

Global status

Copyright

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