SUBROUTINE LXYPOL (IERR) C----------------------------------------------------------------------- C! Fills polarization correction table for AT like linear polarization. C# UV EXT-appl Calibration C----------------------------------------------------------------------- C; Copyright (C) 1995, 2010, 2012, 2014, 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 for Linear C polarization feeds (XY). C Inputs: C PANGLE R(*) Parallactic angles of the antennas (Rad) C Output: C IERR I Return error code, 0=>OK else error. C 1=table too small, 2=multiple subarrays, C 10 = unknown polarization parameterization, C otherwise GETANT error. C Output to common /SELCAL/: C PARTIM R Time of current parallactic angles. (-1.0E10) C PARSOU I Source ID for current parallactic angles. (-10) 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