C                                                                               
C********************* TOP OF COMMON BLOCK - AMASTAT *******************        
C                                                                               
C   NAME- HIRSTAT                                                               
C                                                                               
C   LANGUAGE- FORTRAN 77    TYPE- COMMON BLOCK    COMPUTER- CRAY                  
C                                                                               
C   VERSION- 1.0   DATE- 011/06/00  PROGRAMMER- MP FERGUSON (RITSS)
C   VERSION- 1.2   DATE- 04/02/02   PROGRAMMER- RD ROLLINS (CSC)
C                 RE-ORDERED COMMON TO IMPROVE ALIGNMENT
C                                                                               
C   FUNCTION-  THIS COMMON BLOCK HOLDS THE AMSU-A REMOVAL ON-OFF FLAG, AS
C              WELL AS BAD AMSU-A LINE FLAG, AMSU-A NON-USE FOR RETRIEVAL
C              INDICATOR, AND AMSU-A BAD CHANNEL FLAGS (AMAOFF, AMABAD,
C              BADARET, AND BADAMA, RESPECTIVELY) (PR # 25).
C                                                                               
C                                                                               
C                                                                               
C   COMMON AREA PARAMETERS-                                                     
C                                                                               
C     ARGUMENT     TYPE                DESCRIPTION                              
C     --------     ----  -------------------------------------------------      
C     AMAOFF(20)    L*4  AMSU-A CHANNEL DISUSE IN RETRIEVAL.    
C     AMABAD(40)    L*4  MARKS A LINE WITH BAD AMSU-A CALIBRATION COEFFICIENTS
C                           INDICATING NON-USE IN RETRIEVAL AND CLOUD DETEC-
C                           TION.
C     AMARET(30,40) L*4  A TRUE DESIGNATION INDICATES THAT THE AMSU-A FOR THIS
C                           SPOT ARE SUSPECT AND WILL NOT BE USED IN A
C                           RETRIEVAL.
C     BADAMA(30,    I*8  MARKS FOVS FOR WHICH ANY OF THE AMSU-A CALIBRATION
C       40,15)              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 AMAOFF(15),AMABAD(40),BADARET(30,40)
      INTEGER BADAMA(30,40,15)
C                                                                               
C                                                                               
      COMMON / AMASTAT / BADAMA,AMAOFF,AMABAD,BADARET
C                                                                               
C********************* BOTTOM OF COMMON BLOCK - AMASTAT ****************        

C