C                                                                               
C********************* TOP OF COMMON BLOCK - HIRSTAT *******************        
C                                                                               
C   NAME- HIRSTAT                                                               
C                                                                               
C   LANGUAGE- FORTRAN 77    TYPE- COMMON BLOCK    COMPUTER- CRAY                  
C                                                                               
C   VERSION- 1.0   DATE- 07/26/00   PROGRAMMER- MP FERGUSON (RITSS)
C                                                                               
C   FUNCTION-  THIS COMMON BLOCK HOLDS THE HIRS REMOVAL ON-OFF FLAG.            
C                                                                               
C                                                                               
C                                                                               
C   COMMON AREA PARAMETERS-                                                     
C                                                                               
C     ARGUMENT     TYPE                DESCRIPTION                              
C     --------     ----  -------------------------------------------------      
C     HIROFF        L*4  HIRS DISUSE IN RETRIEVAL.    
C     HIRBAD(50)    L*4  MARKS A LINE WITH BAD HIRS CALIBRATION COEFFICIENTS
C                           INDICATING NON-USE IN RETRIEVAL AND CLOUD DETEC-
C                           TION.
C     BADRET(56,50) L*4  A TRUE DESIGNATION INDICATES THAT THE HIRS FOR THIS
C                           SPOT ARE SUSPECT AND WILL NOT BE USED IN A
C                           RETRIEVAL.
C     BADHIR(56,    I*8  MARKS FOVS FOR WHICH ANY OF THE HIRS CALIBRATION
C       50,20)              COEFFICIENTS,RADIANCES, OR BRIGHTNESS TEMPERATURES
C                           ARE BAD. THE MAIN USE IS TO DETERMINE WHICH DATA
C                           CAN BE WRITTEN TO THE OUTPUT RODF AND HODF FILES.
C                                                                               
C***********************************************************************        
C                                                                               
      LOGICAL*4 HIROFF,HIRBAD(50),BADRET(56,50)
      INTEGER BADHIR(56,50,20)
C                                                                               
C                                                                               
C     COMMON / HIRSTAT / HIROFF,HIRBAD,BADRET,BADHIR
      COMMON / HIRSTAT / BADHIR,HIROFF,HIRBAD,BADRET
C                                                                               
C********************* BOTTOM OF COMMON BLOCK - HIRSTAT ****************        

C