C                                                                               
C********************* TOP OF COMMON BLOCK - CLDPRC ********************        
C                                                                               
C   NAME- CLDPRC                                                                
C                                                                               
C   LANGUAGE- VS FORTRAN  TYPE- COMMON BLOCK    COMPUTER- NAS 9000              
C                                                                               
C   VERSION- 1.0   DATE-  1/27/93   PROGRAMMER- CARLA NEIGH (SMSRC)             
C                                                                               
C   FUNCTION-  THIS COMMON BLOCK HOLDS THE PROCESSING FLAGS FOR THE             
C              CLOUD TESTS AND CLOUD CLEARING.                                  
C                                                                               
C   SHARED PARAMETERS-                                                          
C                                                                               
C     NAME     TYPE    DESCRIPTION                                              
C     ----     ----    -----------                                              
C     PRCLSE   L*4     PROCESSING FLAG FOR THE COLD SEA TEST- THE               
C                      VALUE IS TRUE IF THE TEST IS TO BE PERFORMED, THE        
C                      VALUE IS FALSE IF THE TEST IS TO BE SKIPPED.             
C     PRALBE   L*4     PROCESSING FLAG FOR THE ALBEDO TEST- THE                 
C                      VALUE IS TRUE IF THE TEST IS TO BE PERFORMED, THE        
C                      VALUE IS FALSE IF THE TEST IS TO BE SKIPPED.             
C     PRWCHN   L*4     PROCESSING FLAG FOR THE WINDOW CHANNEL TEST- THE         
C                      VALUE IS TRUE IF THE TEST IS TO BE PERFORMED, THE        
C                      VALUE IS FALSE IF THE TEST IS TO BE SKIPPED.             
C     PRSFCT   L*4     PROCESSING FLAG FOR THE SURFACE TEMPERATURE TEST-        
C                      THE VALUE IS TRUE IF THE TEST IS TO BE PERFORMED,        
C                      TEST VALUE IS FALSE IF THE TEST IS TO BE SKIPPED.        
C     PRNAVR   L*4     PROCESSING FLAG FOR THE NEW AVHRR TEST-                  
C                      THE VALUE IS TRUE IF THE TEST IS TO BE PERFORMED,        
C                      TEST VALUE IS FALSE IF THE TEST IS TO BE SKIPPED.        
C     PRICHR   L*4     PROCESSING FLAG FOR THE INTERCHANNEL REGRESSION          
C                      TEST- THE VALUE IS TRUE IF THE TEST IS TO BE             
C                      PERFORMED, THE TEST VALUE IS FALSE IF THE TEST           
C                      IS TO BE SKIPPED.                                        
C     PRADJS   L*4     PROCESSING FLAG FOR THE ADJACENT SPOT TEST-              
C                      THE VALUE IS TRUE IF THE TEST IS TO BE PERFORMED,        
C                      TEST VALUE IS FALSE IF THE TEST IS TO BE SKIPPED.        
C     PRHSFC   L*4     PROCESSING FLAG FOR THE HOT SURFACE TEST-                
C                      THE VALUE IS TRUE IF THE TEST IS TO BE PERFORMED,        
C                      TEST VALUE IS FALSE IF THE TEST IS TO BE SKIPPED.        
C     NAVCMP   L*4     ARRAY (DIM 6) OF LOGICAL FLAGS FOR EACH OF THE           
C                      SIX COMPONENTS OF THE NEW AVHRR TEST.  THE               
C                      VALUE OF A FLAG IS TRUE IF THE COMPONENT OF              
C                      THE TEST IS TO BE EXECUTED, THE FLAG IS FALSE IF         
C                      THE COMPONENT OF THE TEST IS TO BE SKIPPED.              
C     ICHCMP   L*4     ARRAY (DIM 5) OF LOGICAL FLAGS FOR EACH OF THE           
C                      FIVE COMPONENTS OF THE INTERCHANNEL REGRESSION           
C                      TEST.  VALUE OF A FLAG IS TRUE IF THE COMPONENT          
C                      OF THE TEST IS TO BE EXECUTED, THE FLAG IS FALSE         
C                      IF THE COMPONENT OF THE TEST IS TO BE SKIPPED.           
C     ADJCMP   L*4     ARRAY (DIM 3) OF LOGICAL FLAGS FOR EACH OF THE           
C                      THREE COMPONENTS OF THE ADJACENT SPOT TEST.  THE         
C                      VALUE OF A FLAG IS TRUE IF THE COMPONENT OF THE          
C                      TEST IS TO BE EXECUTED, THE FLAG IS FALSE IF THE         
C                      COMPONENT OF THE TEST IS TO BE SKIPPED.                  
C                                                                               
C                      NOTE: THE LOGICAL FLAGS FOR EACH COMPONENT OF            
C                            A CLOUD TEST ARE USED ONLY IF THE                  
C                            PROCESSING FLAG FOR THAT CLOUD TEST HAS            
C                            THE VALUE TRUE.                                    
C                                                                               
C   BLOCK DATA- B$CLDP                                                          
C                                                                               
C***********************************************************************        
C                                                                               
      LOGICAL*4 PRCLSE, PRALBE, PRWCHN, PRSFCT, PRHSFC, PRADJS, PRNAVR          
      LOGICAL*4 PRICHR, NAVCMP(6), ICHCMP(5), ADJCMP(3)                         
C                                                                               
      COMMON /CLDPRC/ PRCLSE, PRALBE, PRWCHN, PRSFCT, PRHSFC, PRADJS,           
     1                 PRNAVR, PRICHR, NAVCMP, ICHCMP, ADJCMP                   
C                                                                               
      SAVE /CLDPRC/                                                             
C                                                                               
C********************* BOTTOM OF COMMON BLOCK - CLDPRC *****************        
C