SUBROUTINE POLSET (IERR) C----------------------------------------------------------------------- C! Fills polarization correction table from info in AN table. C# UV EXT-appl Calibration C----------------------------------------------------------------------- C; Copyright (C) 1995, 2007, 2010, 2012, 2014-2015, 2017-2018 C; Associated Universities, Inc. Washington DC, USA. C; C; This program is free software; you can redistribute it and/or C; modify it under the terms of the GNU General Public License as C; published by the Free Software Foundation; either version 2 of C; the License, or (at your option) any later version. C; C; This program is distributed in the hope that it will be useful, C; but WITHOUT ANY WARRANTY; without even the implied warranty of C; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the C; GNU General Public License for more details. C; C; You should have received a copy of the GNU General Public C; License along with this program; if not, write to the Free C; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge, C; MA 02139, USA. C; C; Correspondence concerning AIPS should be addressed as follows: C; Internet email: aipsmail@nrao.edu. C; Postal address: AIPS Project Office C; National Radio Astronomy Observatory C; 520 Edgemont Road C; Charlottesville, VA 22903-2475 USA C----------------------------------------------------------------------- C Fills polarization correction table from info in AN table. C Inputs from common C STNEPL R(2,*) Feed real/elipticity (poln, IF) C STNORI R(2,*) Feed imag/orientation (poln, IF) C STNPST C*8 Feed solution type: C 'APPROX ' => linear approximation C 'ORI-ELP ' => orientation-ellipticity C 'X-Y LIN ' => lin. approx. for lin. C polarized (X-Y) data. C 'VLBI' => lin. approx for VLBI. C Output: C IERR I Return error code, 0=>OK else error. C 1=table too small, 2=multiple subarrays, C 5=FREQID incompatibility C 10 = unknown polarization parameterization, C otherwise GETANT error. C Output to common /CPLINF/: C PARTIM R Time of current parallactic angles. (-1.0E10) C PARSOU I Source ID for current parallactic angles. (-10) C PREFA I Poln. ref antenna 'ORI-' only C POLPD R(if) 'R-L' phase difference 'ORI-' only C Nchan * Nif in line case C POLCAL R(2,*) Polarization correction C Values in order: C By baseline C By IF (EIF-BIF+1) C A 4x4 complex matrix to be multiplied by C the observed polarization vector C (RR,LL,RL,LR) to produce the C corrected data. C Indexing scheme: an entry defined by ant1