C
C******************* TOP OF COMMON BLOCK - I2HINF *********************
C
C   NAME- I2HINF
C
C   LANGUAGE- VS FORTRAN  TYPE- COMMON BLOCK    COMPUTER- NAS 9000
C
C   VERSION- 1.0    DATE- 01/20/95   PROGRAMMER- TIM GARDNER (HSTX)
C   VERSION- 2.0    DATE- 06/14/95   PROGRAMMER- LI LU (SMSRC)
C   VERSION- 3.0    DATE- 05/04/98   PROGRAMMER- LEAH WILSON (RSTX)
C
C   FUNCTION- THIS COMMON BLOCK CONTAINS INFORMATION NEEDED FOR THE
C             BI-LINEAR INTERPOLATION OF INSTRUMENT DATA TO HIRS SPOTS.
C
C   SHARED PARAMETERS-
C     VARIABLE                TYPE      DESCRIPTION
C     --------                ----      -----------
C     INISPT(HNSPOT,HTOTLN)   INT       BUFFER HOLDING SPOT NUMBER OF
C                                       THE EARLIEST 4 INSTRUMENT SPOTS
C                                       SURROUNDING A HIRS SPOT.
C
C     INILIN(HNSPOT,HTOTLN)   INT       BUFFER HOLDING LINE NUMBER OF
C                                       THE EARLIEST 4 INSTRUMENT LINES
C                                       SURROUNDING A HIRS SPOT.
C
C     WGTI2H(4,HNSPOT,HTOTLN) REAL      BUFFER HOLDING WEIGHTING CO-
C                                       EFFIECIENTS FOR THE 4 INSTRUMENT
C                                       SPOTS SURROUNDING A HIRS SPOT.
C
C     DIST2H(4,HNSPOT,HTOTLN) REAL      BUFFER HOLDING DISTANCES
C                                       BETWEEN THE 4 INSTRUMENT SPOTS
C                                       AND THE HIRS SPOT TO BE
C                                       INTERPOLATED TO.
C
C     EXTRAP(HNSPOT,HTOTLN)   LOG       BUFFER HOLDING A FLAG FOR EACH
C                                       HIRS SPOT INDICATING WHETHER
C                                       TO EXTRAPOLATE TO THE SPOT.
C
C     WGTCAL(HNSPOT,HTOTLN)   LOG       INDICATES WHETHER WEIGHTS HAVE
C                                       BEEN CALCULATED FOR THE SPOT.
C
C     TLIM(2)                 REAL      MIN/MAX TEMPERATURE LIMITS.
C
C     BLOCK DATA- NONE
C
C     COMMENTS- THIS COMMON BLOCK MUST BE PRECEDED BY THE INCLUDE
C               MEMBER INSPARM
C
C**********************************************************************
C
C
      INTEGER INISPT(HNSPOT,HTOTLN), INILIN(HNSPOT,HTOTLN)
      LOGICAL EXTRAP(HNSPOT,HTOTLN), WGTCAL(HNSPOT,HTOTLN)
      REAL WGTI2H(4,HNSPOT,HTOTLN), DIST2H(4,HNSPOT,HTOTLN),TLIM(2)
C
      COMMON /I2HINF/ TLIM, INISPT, INILIN, WGTI2H, DIST2H, EXTRAP, 
     1                WGTCAL
C
C******************* BOTTOM OF COMMON BLOCK - I2HINF ******************
C