SUBROUTINE h_fpp(ABORT,err)
*--------------------------------------------------------
*    Hall C  HMS Focal Plane Polarimeter Code
*
*  Purpose: analyze FPP portion of HMS event
* 
*  Created by Frank R. Wesselmann,  February 2004
*
*--------------------------------------------------------

      IMPLICIT NONE

      include 'gen_detectorids.par'
      include 'gen_decode_common.cmn'
      INCLUDE 'hms_data_structures.cmn'
      INCLUDE 'hms_fpp_params.cmn'
      INCLUDE 'hms_fpp_event.cmn'

      character*13 here
      parameter (here= 'h_fpp')

      logical ABORT
      character*(*) err

      integer*4 iset


      ABORT= .FALSE.
      err= ' '

c      write(*,*)'In h_fpp.f with hsnum_fptrack =',hsnum_fptrack
      if (hsnum_fptrack.le.0) return    ! No good HMS track
*     * note that the above value is determined in h_select_best_track
*     * so we have to wait until after it is called before we do the FPP!


*     * do tracking in each set of chambers separately
      do iset=1, H_FPP_N_DCSETS
c        write(*,*)'Calling fpp_tracking ->'
c        write(*,*)'iset,layers,min = ',iset,HFPP_Nlayershit_set(iset),
c     &   HFPP_minsethits
        if (HFPP_Nlayershit_set(iset) .ge. HFPP_minsethits) then
          call h_fpp_tracking(iset,ABORT,err)
          if (ABORT) then
            call g_add_path(here,err)
            return
          endif

        endif
      enddo !iset


*     * do statistical analysis, e.g. efficiencies
      call h_fpp_statistics(ABORT,err)
      if (ABORT) then
        call g_add_path(here,err)
        return
      endif


      RETURN
      END