*-- Author :    Girish D. Patel   07/12/93
      SUBROUTINE FCHKQP
**********************************************************************                                        
*                                                                    *                                        
* Fill histograms from hits in COMMON/H1WORK/, entered by FILLQP     *                                        
*                                                                    *                                        
* JVM  22/7/92                                                       *                                        
**********************************************************************                                        
*KEEP,FMOWRK.                                                                                                 
*     planar hit data...                                                                                      
*     radial hit data...                                                                                      
*KEND.                                                                                                        
*KEEP,FMOHIS.                                                                                                 
*KEND.                                                                                                        
* check that COMMON/NEWP/ has some data ..                                                                    
* cycle through the cells ...                                                                                 
        CALL HF1(2,CHITS,1.)                                                                           
             CALL SHS (IHS(2),0,CHITS)                           !SGI                                  
*       analyse existing hits in cell NC, if there are any                                                    
             CALL SHD (IHS(4),0,TDIF,0.)                         !SGI                                  
             CALL SHD (IHS(4),0,TDIF,FLOAT(NSMOD+1))             !SGI                                  
*                                                                                                             
* complete set of hits available here                                                                         
*     set flag "LFREE" to flag Qs which have not yet been plotted in                                          
*     hist ID=22 .....                                                                                        
          CALL SHD (IHS( 8),0,X2,13.5)                           !SGI                                  
          CALL SHD (IHS( 8),0,X2,FLOAT(NSMOD+1)+13.5)            !SGI                                  
          CALL SHD (IHS( 8),0,X2,FLOAT(NSLAY+4)+13.5)            !SGI                                  
          CALL SHD (IHS( 8),0,X3,13.5)                           !SGI                                  
          CALL SHD (IHS( 8),0,X3,FLOAT(NSMOD+1)+13.5)            !SGI                                  
          CALL SHD (IHS( 8),0,X3,FLOAT(NSLAY+4)+13.5)            !SGI                                  
             CALL SHD (IHS( 8),0,X1,0.5)                         !SGI                                  
             CALL SHD (IHS( 8),0,X1,FLOAT(NSMOD+1)+0.5)          !SGI                                  
             CALL SHD (IHS( 8),0,X1,FLOAT(NSLAY+4)+0.5)          !SGI                                  
             CALL SHD (IHS( 7),0,QLOG,0.)                        !SGI                                  
             CALL SHD (IHS( 7),0,QLOG,FLOAT(NSMOD+1))            !SGI                                  
          CALL SHD (IHS( 8),0,X2,26.5)                           !SGI                                  
          CALL SHD (IHS( 8),0,X2,FLOAT(NSMOD+1)+26.5)            !SGI                                  
          CALL SHD (IHS( 8),0,X2,FLOAT(NSLAY+4)+26.5)            !SGI                                  
          CALL SHD (IHS( 8),0,X3,26.5)                           !SGI                                  
          CALL SHD (IHS( 8),0,X3,FLOAT(NSMOD+1)+26.5)            !SGI                                  
          CALL SHD (IHS( 8),0,X3,FLOAT(NSLAY+4)+26.5)            !SGI                                  
*       zero arrays ready for next event                                                                      
        CALL VZERO( TT(0,1,1),NW3 )                                                                    
        CALL VZERO( QQ(0,1,1),NW3 )                                                                    
        CALL VZERO( NHIT(0,1),NW2 )                                                                    
*