subroutine s_print_pr
*     subroutine to dump output of S_PATTERN_RECOGNITION
*     All the results are contained in sos_tracking.inc
*     d.f. geesaman          5 September 1993
* $Log: s_print_pr.f,v $
* Revision 1.2  1995/05/22 19:45:45  cdaq
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts"
*
* Revision 1.1  1994/02/21  16:37:52  cdaq
* Initial revision
*
      implicit none
      include "sos_data_structures.cmn"
      include "sos_tracking.cmn"
      include "sos_geometry.cmn"
*     local variables
      integer*4 i,j
      write(sluno,'('' SOS PATTERN RECOGNITION RESULTS'')')
      write(sluno,'('' chamber='',i3,'' number of hits='',i3)')
     &         (i,sncham_hits(i),i=1,sdc_num_chambers)
      write(sluno,'('' Total number of space points found='',i3)')
     &         snspace_points_tot
      write(sluno,'('' chamber number'',i2,''  number of points='',i3)')
     &     (i,snspace_points(i),i=1,sdc_num_chambers)
      write(sluno,'('' Space point requirements'')')
      write(sluno,'('' chamber='',i3,''   min_hit='',i4,''  min_combos='',i3)')
     &      (i,smin_hit(i),smin_combos(i),i=1,sdc_num_chambers)  
      if(snspace_points_tot.ge.1) then
         write(sluno,'('' point       x         y     number  number  hits'')')
         write(sluno,'('' number                       hits   combos'')')
1001  format(3x,i3,f10.4,f10.4,3x,i3,6x,i3,5x,11i3)
         do i=1,snspace_points_tot
         write(sluno,1001) i, sspace_points(i,1),sspace_points(i,2),
     &   sspace_point_hits(i,1), sspace_point_hits(i,2),
     &   (sspace_point_hits(i,j+2),j=1,sspace_point_hits(i,1))
         enddo
      endif
      return
      end