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.