C
C*************** TOP OF INCLUDE MEMBER - SPGUNT ************************
C
C  NAME- SPGUNT
C
C  LANGUAGE- VS FORTRAN   TYPE- PARAMETER FILE   COMPUTER- CRAY J916
C
C  VERSION- 1.0    DATE- 05/08/91    PROGRAMMER- CARLA NEIGH (SMSRC)
C  VERSION- 2.0    DATE- 08/22/94    PROGRAMMER- SURYA JANDHYLA (SMSRC)
C     XATOV-37       MSU AND SSU UNITS WERE CHANGED TO AMSU-A AND
C                    AMSU-B UNITS. REMOVED SSDUNT AND SSAUNT.
C  VERSION- 2.1    DATE- 12/14/95    PROGRAMMER- CARLA NEIGH (SMSRC)
C     ATOVS-288 :   ADDED UNIT NUMBERS FOR IRDB AND 1B* STRUCTURE
C                   FILES.  REMOVED UNIT FOR UK PRODUCT FILE AND
C                   COLCDB.
C  VERSION- 3.0    DATE- 11/18/96    PROGRAMMER- LEAH WILSON (HSTX)
C                  ADD UNIT NUMBERS FOR DSDR1T AND ANCILLARY FILES.
C  VERSION- 3.1    DATE- 07/03/97    PROGRAMMER- LEAH WILSON (HSTX)
C                  ADD UNIT NUMBERS FOR KIDS FILE.
C  VERSION- 3.2    DATE- 09/02/97    PROGRAMMER- LEAH WILSON (HSTX)
C                  ODB UNIT NUMBER NOW BECOMES ODF UNIT NUMBER.
C                  ADD AIDF AND HIDF UNIT NUMBERS.
C  VERSION- 3.3    DATE- 02/12/98    PROGRAMMER- A. ALLEGRINO (RAYTHEON)
C                  ADDED THE LIMB CORRECTION COEFFICIENT OBSERVATION
C                  UNIT NUMBERS (60 & 61).
C  VERSION- 3.4    DATE- 08/06/02    PROGRAMMER- FRANK TILLEY (RAYTHEON)
C                  ADDED AMSU-B LIMB CORRECTION COEFFICIENT OBSERVATION
C                  UNIT NUMBER (62).
C  VERSION- 3.5    DATE- 01/12/04    PROGRAMMER- FRANK TILLEY (RAYTHEON)
C                  ADDED AMSU-B LIMB INSTRUMENTAL DATA FILE (ODF) UNIT
C                  NUMBER (90).
C  VERSION- 3.6    DATE- 12/06/04    PROGRAMMER- FRANK TILLEY (RAYTHEON)
C                  CHANGED 1B* RELATED UNIT NUMBERS FROM INT TO I*4.
C
C  FUNCTION- THIS PARAMETER FILE CONTAINS THE I/O UNIT NUMBER FOR ALL
C            FILES TO BE USED IN SPGS.
C
C  SHARED PARAMETERS-
C    VARIABLE   TYPE   DESCRIPTION
C    --------   ----   -----------
C    HUNIT      I*4    HIRS 1B* I/O UNIT.
C
C    AUNIT      I*4    AMSU-A 1B* I/O UNIT.
C
C    BUNIT      I*4    AMSU-B 1B* I/O UNIT.
C
C    GUNIT      I*4    GAC 1B* I/O UNIT.
C
C    HSTRUC     I*4    HIRS 1B* STRUCTURE FILE I/O UNIT.
C
C    ASTRUC     I*4    AMSU-A 1B* STRUCTURE FILE I/O UNIT.
C
C    BSTRUC     I*4    AMSU-B 1B* STRUCTURE FILE I/O UNIT.
C
C    GSTRUC     I*4    GAC 1B* STRUCTURE FILE I/O UNIT.
C
C    CDBUNT     INT    CDB I/O UNIT.
C
C    ODBUNT     INT    ODF I/O UNIT.
C
C    MAPUNT     INT    MAPPARM I/O UNIT.
C
C    IRDUNT     INT    IRDB I/O UNIT.
C
C    NMCPUN     INT    NMC PRODUCT FILE I/O UNIT.
C
C    UNTOPC     INT    OPCDB I/O UNIT.
C
C    SMSUNT     INT    SMS I/O UNIT.
C
C    OZUNIT     INT    OZONE FILE I/O UNIT.
C
C    FPUNIT     INT    FRAMES PREVIOUSLY PROCESSED I/O UNIT.
C
C    CLRUNT     INT    CLEAR FIRST GUESS LIBRARY I/O UNIT.
C
C    CLDUNT     INT    CLOUDY FIRST GUESS LIBRARY I/O UNIT.
C
C    NHRUNT     INT    NOHIRS FIRST GUESS LIBRARY I/O UNIT.
C
C    R1TUNT     INT    DSDR1T I/O UNIT.
C
C    SPRUNT     INT    DSDR1T SPARES FILE I/O UNIT.
C
C    WRDUNT     INT    DSDR1T WORDS FILE I/O UNIT.
C
C    KUNIT      INT    KIDS MESSAGE FILE I/O UNIT.
C
C    HIDFU      INT    HIRS INSTRUMENTAL DATA FILE UNIT.
C
C    AIDFU      INT    AMSU-A INSTRUMENTAL DATA FILE UNIT.
C
C    BIDFU      INT    AMSU-B INSTRUMENTAL DATA FILE UNIT.
C
C    ALMUNT,    INT    RAW LIMB CORRECTION DATA COLLECTION UNITS
C    BLMUNT,
C    HLMUNT
C
C***********************************************************************
C
      INTEGER R1TUNT, SPRUNT, WRDUNT, KUNIT
      INTEGER CDBUNT, ODBUNT, MAPUNT, IRDUNT, NMCPUN, UNTOPC
      INTEGER OZUNIT, FPUNIT, CLRUNT, CLDUNT, NHRUNT, SMSUNT
      INTEGER HIDFU, AIDFU,ALMUNT,BLMUNT,HLMUNT,BIDFU, ODB2UNT
      INTEGER*4 HUNIT, AUNIT, BUNIT, GUNIT
      INTEGER*4 HSTRUC, ASTRUC, BSTRUC, GSTRUC
C
      PARAMETER(HUNIT=1, AUNIT=2, BUNIT=3, GUNIT=4)
      PARAMETER(HSTRUC=11,ASTRUC=12,BSTRUC=13,GSTRUC=14)
      PARAMETER(CDBUNT=16, MAPUNT=17, NMCPUN=18, IRDUNT=19, ODBUNT=20)
      PARAMETER(UNTOPC=21, CLRUNT=30, CLDUNT=31, NHRUNT=32, KUNIT=41)
      PARAMETER(HIDFU=40, AIDFU=50, OZUNIT=56, FPUNIT=57, SMSUNT=23)
      PARAMETER(R1TUNT=99,SPRUNT=98,WRDUNT=97,ALMUNT=60,HLMUNT=61)
      PARAMETER(BLMUNT=62,BIDFU=90,ODB2UNT=80)
C
C*************** BOTTOM OF INCLUDE MEMBER - SPGUNT *********************