C
C******************* TOP OF COMMON BLOCK - DEBUG *******************
C
C   NAME- DEBUG
C
C   LANGUAGE- VS FORTRAN TYPE- COMMON BLOCK   COMPUTER- CRAY J916
C
C   VERSION- 1.0    DATE- 04/07/98   PROGRAMMER- LEAH WILSON, RSTX
C   VERSION- 1.1    DATE- 03/29/99   PROGRAMMER- LEAH WILSON, RAYTHEON 
C
C   FUNCTION- CONTAINS FLAG FOR DEBUG PRINT STATMENTS.
C   VERSION- 1.1 ADD 1B* DEBUG PRINT FLAGS.
C
C   SHARED PARAMETERS-
C     VARIABLE      TYPE    DESCRIPTION
C     --------      ----    -----------
C     DBUGPRT       INT     SET TO 1 INDICATES DEBUG PRINT STATEMENTS
C                           WILL APPEAR IN THE OUTPUT.
C     DBG1BSTR      INT     SET TO 1 INDICATES 1B* DEBUG PRINT STATE-
C                           MENTS WILL APPEAR IN THE OUTPUT.  THESE
C                           ARE PREFACES BY THE STRING '1BSTAR:'
C                           IN ORDER TO FACILITATE THEIR REMOVAL
C                           FROM THE OUTPUT FILE VIA A STANDARD UNIX
C                           'GREP' COMMAND.
C     TYPE1BSTAR(8) CH*30   1B* DATA TYPE TO BE PRINTED (HIRS OR
C                           AMSU-A COUNTS, CALIBRATION COEFFICIENTS,
C                           RADIANCES, BRIGHTNESS TEMPERATURES EITHER
C                           BEFORE OR AFTER LIMB CORRECTION)
C                           IN THE DATA FILE WHERE THESE ARE READ, THE
C                           '.FALSE.' OR '.TRUE.' MUST BEGIN IN COLUMN 37.
C                           THE 8 DATA TYPES ARE AS FOLLOWS:
C                      1b* DATA TYPE               ACTIVE?   
C                   ------------------------------ -------  
C                1. HIRS RAW COUNTS                .FALSE.
C                2. AMSU-A RAW COUNTS              .FALSE.
C                3. HIRS CALIBRATION COEFFICIENTS  .TRUE.
C                4. AMSU-A CALIBRATION COEFFS.     .TRUE. 
C                5. HIRS RADIANCES                 .FALSE.
C                6. AMSU-A RADIANCES               .FALSE.
C                7. HIRS B-TEMPS (UN-LIMB CORR)    .FALSE.
C                8. AMSU-A B-TEMPS (UN-LIMB CORR)  .FALSE.
C              
C     ACTIVETYPE(8)  LOG    SET TO .TRUE. IF THE CORRESPONDING DATA
C                           TYPE IS TO BE PRINTED, ELSE FALSE.
C
C   BLOCK DATA- NONE
C
C********************************************************************
C
      INTEGER      DBUGPRT, DBG1BSTR
      LOGICAL      ACTIVETYPE(8)
      CHARACTER*30 TYPE1BSTAR(8)
C
      COMMON /DEBUG/ DBG1BSTR, DBUGPRT, ACTIVETYPE, TYPE1BSTAR
C
C******************* BOTTOM OF COMMON BLOCK - DEBUG ****************
C