!******************* top of common block - tstcnt ********************* 
!                                                                       
!   name- tstcnt                                                        
!                                                                       
!   language- fortran 90    type- common block    computer- cray j90      
!                                                                       
!   version- 1.0    date- 04/08/97   programmer- alex  pozdnyak (stc)    
! 
!   version- 2.0    date- 01/19/99   programmer- D L Frey (CSC)   
!                                                                        
!   function- this common block contains counters for successful,      
!             failed and missing cloud detection tests.
!                                                                       
!   shared parameters-                                                  
!     variable                type       description                    
!     --------                ----       ----------- 
!      nfr                     I         number of HIRS frame; a frame
!                                        is 50 scans and 56 HIRS spots
!                                        in input (collocation) dataset
!     missing_tests()          I         counter of missing tests for 
!                                        each record and test.
!     neg_tests()              I         counter of negative tests for 
!                                        each record and test.   
!     pos_tests()              I         counter of positive tests for 
!                                        each record and test.   
!     tot_missing_tests()      I         counter of missing tests for
!                                        all frames for each test.   
!     tot_neg_tests()          I         counter of negative tests for
!                                        all frames for each test.  
!     tot_pos_tests()          I         counter of positive tests for
!                                        all frames for each test.                     
!********************************************************************** 
!
      common /count/ nfr, missing_tests, neg_tests, pos_tests,
     :               tot_missing_tests, tot_neg_tests, tot_pos_tests
!
      integer nfr

      integer missing_tests(6), neg_tests(6), pos_tests(6)

      integer tot_missing_tests(6), tot_neg_tests(6), 
     :        tot_pos_tests(6)

     
!******************* bottom of common block - tstcnt ******************