*       SUBROUTINE XXSPOT (ICOL,NCOL,KSDEL)@C_TITLE  XXSPOT  XGDATA Spot logic for the IRTM database (TSDR).C_ARGUMENTSM      INTEGER*2 ICOL(1)  ![B] Column identification array, containing integerH                         !column id's for the variables to be extracted.K      INTEGER NCOL	 ![I] Number of principal variables on which to operate./      INTEGER KSDEL	 ![I] Delta spot increment.LC_DESCRIPTION  The subroutine XXSPOT provides XGDATA with spot logic for theMC IRTM database (TSDR); it determines the location of the principal variablesPC in the database.  The first 6 variables in the database are spot independent, NC following the first six are 7 sets of 11 items for each of the seven spots. <C In total there are 84 variables (columns in the database).CNC This routine is called from SPOTCHECK when the column identification integerJC of a spot dependent variable needs to be set.  This routine modifies theIC integers in array ICOL to correspond to the correct column position for+C one of seven spots from the IRTM chevron.>C_HISTORY  82Sept03  R.Mehlman  UCLA   ICOL made int*2 1/3/83.C_END      IF (NCOL.LE.0) RETURN       KDIF=KSDEL*11          D!-----loop through the column array determining the column id of theF!     variable requested for a particular spot.  Variable requested is=!     a function of the spot.  COLUMN_ID = Var_id + spot * 11      DO 5 K=1,NCOL        KCOL=ICOL(K)        IF (KCOL.LE.6) GO TO 5        ICOL(K)=KCOL+KDIF 5    CONTINUE      RETURN	      END