FCHKQR COMMENTS
*-- Author :    Girish D. Patel   07/12/93
      SUBROUTINE FCHKQR
**********************************************************************                                        
*                                                                    *                                        
* Fill histograms from hits in COMMON/H1WORK/, entered by FILLQR     *                                        
*                                                                    *                                        
* JVM  22/7/92                                                       *                                        
**********************************************************************                                        
*KEEP,FMOBIN.                                                                                                 
*KEEP,FMOWRK.                                                                                                 
*     planar hit data...                                                                                      
*     radial hit data...                                                                                      
*KEND.                                                                                                        
*KEEP,FMOHIS.                                                                                                 
*KEND.                                                                                                        
* check that COMMON/H1WORK/ has some data ..                                                                  
* cycle through the cells ...                                                                                 
             CALL  SHS (IHS(12),0,CHITS)                         !SGI                                  
*       analyse existing hits in cell NC, if there are any                                                    
             CALL SHD (IHS(19),0,TDIF,0.)                        !SGI                                  
             CALL SHD (IHS(19),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=68 ...                                                                                          
          CALL SHD (IHS(23),0,X2,13.5)                           !SGI                                  
          CALL SHD (IHS(23),0,X2,FLOAT(NSMOD+1)+13.5)            !SGI                                  
          CALL SHD (IHS(23),0,X2,FLOAT(NLAY+4)+13.5)             !SGI                                  
          CALL SHD (IHS(23),0,X3,13.5)                           !SGI                                  
          CALL SHD (IHS(23),0,X3,FLOAT(NSMOD+1)+13.5)            !SGI                                  
          CALL SHD (IHS(23),0,X3,FLOAT(NLAY+4)+13.5)             !SGI                                  
          CALL SHD (IHS(23),0,X1,0.5)                            !SGI                                  
          CALL SHD (IHS(23),0,X1,FLOAT(NSMOD+1)+0.5)             !SGI                                  
          CALL SHD (IHS(23),0,X1,FLOAT(NLAY+4)+0.5)              !SGI                                  
*          RAD  = (RR(NC,2,J1)+RR(NC,1,J2)+RR(NC,4,J3)+RR(NC,3,J4))/4.0                                       
*          TTW(1) = TTR(NC,1,J1)                                                                              
*          TTW(2) = TTR(NC,2,J2)                                                                              
*          TTW(3) = TTR(NC,3,J3)                                                                              
*          TTW(4) = TTR(NC,4,J4)                                                                              
*          RRW(1) = RR(NC,1,J1)                                                                               
*          RRW(2) = RR(NC,2,J2)                                                                               
*          RRW(3) = RR(NC,3,J3)                                                                               
*          RRW(4) = RR(NC,4,J4)                                                                               
*          SRZ  = -0.3*RRW(1) - 0.1*RRW(2) + 0.1*RRW(3) + 0.3*RRW(4)                                          
*          CRZ  =      RRW(1) + 0.5*RRW(2)              - 0.5*RRW(4)                                          
             CALL SHD (IHS(22),0,QQWR(J),0.)                     !SGI                                  
             CALL SHD (IHS(22),0,QQWR(J),FLOAT(NSMOD+1))         !SGI                                  
*          RPRED = SRZ*FLOAT(J) + CRZ                                                                         
*          IF(RPRED.LT.80.0) THEN                                                                             
*            YRPRED = RPRED*FLOAT(NBINR)/80.0                                                                 
*            IRPRED = YRPRED                                                                                  
*            IF(X1.GT.0.0) THEN                                                                               
*             CALL SHDW(IHS(17),0,TTW(J)-60.,YRPRED,-1.)          !SGI                                        
*             CALL SHDW(IHS(17),0,TTW(J)+60.,YRPRED,+1.)          !SGI                                        
*            ELSE                                                                                             
*             CALL SHDW(IHS(18),0,TTW(J)-60.,YRPRED,-1.)          !SGI                                        
*             CALL SHDW(IHS(18),0,TTW(J)+60.,YRPRED,+1.)          !SGI                                        
*            ENDIF                                                                                            
*          ENDIF                                                                                              
*          IF(RAD.LT.80.0.AND.ABS(X1).GT.8.0.AND.ABS(X1).LT.32.0) THEN                                        
*          ENDIF                                                                                              
          CALL SHD (IHS(23),0,X2,26.5)                           !SGI                                  
          CALL SHD (IHS(23),0,X2,FLOAT(NSMOD+1)+26.5)            !SGI                                  
          CALL SHD (IHS(23),0,X2,FLOAT(NLAY+4)+26.5)             !SGI                                  
          CALL SHD (IHS(23),0,X3,26.5)                           !SGI                                  
          CALL SHD (IHS(23),0,X3,FLOAT(NSMOD+1)+26.5)            !SGI                                  
          CALL SHD (IHS(23),0,X3,FLOAT(NLAY+4)+26.5)             !SGI                                  
*       zero arrays ready for next event                                                                      
        CALL VZERO( TTR(0,1,1),NW3 )                                                                   
        CALL VZERO( QQR(0,1,1),NW3 )                                                                   
        CALL VZERO( NHITR(0,1),NW2 )                                                                   
*