Function: irlrs_xgain Purpose: applies cross-scan gain correction for LRS data. Category: IRAS LRS File: irlrs_const.c Author: P.R. Roelfsema Use: IRLRS_XGAIN( DETNO , Input integer MXGAIN , Input real XSCAN , Input real ( >= NDATA ) NDATA , Input integer DATA ) In/Out real ( >= NDATA ) IRLRS_XGAIN returns: -1 DETNO is not a legal LRS detector. 1 OK, DETNO is short wave detector. 2 OK, DETNO is long wave detector. DETNO - LRS detector number. MXGAIN - maximum cross-scan gain correction allowed. If for a cross-scan offset XSCAN the gain is larger than MXGAIN the corresponding element in DATA is set to UNDEFINED. XSCAN - array containing cross-scan offsets in degrees w.r.t. the center of DETNO as defined by IRCC_MASK for which gains are to be calculated. NDATA - number of points for which gain is to be applied. DATA - data array to which gain factors are applied. Updates: Nov 28, 1990: PRR, Creation date