c common block of variables for column-wise Ntuple for HMS FPP
***** these must NOT be used in the CTP system!!

      integer MAX_cwn_goodhits
      parameter (MAX_cwn_goodhits= 100)	!!! must match limits in h_fpp_nt_open

      integer MAX_cwn_tracks
      parameter (MAX_cwn_tracks= 18)	!!! should be 2*H_FPP_MAX_TRACKS !!!

      integer*4 cwnFPP_eventID	      ! seqential trigger no

      integer*4 cwnFPP_evtcode	      ! overall FPP event descriptor

      integer*4 cwnFPP_helicite	      ! event by event beam helicity

      real*4    cwnFPP_hsdelta	      ! momentum delta of HMS track
      real*4    cwnFPP_hstheta	      ! angle of HMS track in hall
      real*4    cwnFPP_hsphi	      ! azimuth of HMS track in hall
      real*4    cwnFPP_w	      ! missing mass of HMS track (incl.)
      real*4    cwnFPP_hszbeam	      ! z-coord of beam*HMS track in target
      real*4    cwnFPP_hsxfp	      ! x-coord of HMS track at FP
      real*4    cwnFPP_hsyfp	      ! y-coord of HMS track at FP
      real*4    cwnFPP_hsxpfp	      ! dx/dz of HMS track at FP
      real*4    cwnFPP_hsypfp	      ! dy/dz of HMS track at FP
      real*4    cwnFPP_hsytar	      ! y-coord of HMS track at target
      real*4    cwnFPP_hsxptar	      ! dx/dz of HMS track at target
      real*4    cwnFPP_hsyptar	      ! dy/dz of HMS track at target

      real*4    cwnFPP_trig_TDC1      ! TDC value of FPP trigger signal in VME 1
      real*4    cwnFPP_trig_TDC2      ! TDC value of FPP trigger signal in VME 2

      integer*4 cwnFPP_RawHits	      ! raw # of hits in FPP chambers

      integer*4 cwnFPP_Nhits1	      ! # of wires with usable hit in layers 1-6 (either pol)
      integer*4 cwnFPP_Hit1_pol	      ! polarimeter 1 or 2
      integer*4 cwnFPP_Hit1_layer     ! layer # of each hit
      integer*4 cwnFPP_Hit1_wire      ! wire # of each hit
      integer*4 cwnFPP_Hit1_itrack    ! # of track hit is used in
      real*4    cwnFPP_Hit1_time      ! corrected TDC time of each hit
      real*4    cwnFPP_Hit1_drift     ! signed(!) drift distance
      real*4    cwnFPP_Hit1_resid     ! signed(!) residual between drift & track
      real*4    cwnFPP_Hit1_d_HMS     ! signed(!) distance between wire & HMS track

      integer*4 cwnFPP_Ntracks	      ! # of tracks in upstream polarimeter
      integer*4 cwnFPP_trk_pol	      ! upstream (1) or downstream (2) polarimeter
      integer*4 cwnFPP_trk_num	      ! seq # of track in pol
      integer*4 cwnFPP_trk_hits	      ! # of layers contributing
      integer*4 cwnFPP_conetest	      ! fpp conetest variable
      real*4    cwnFPP_simple_mx      ! simple track dx/dz in chamber coords
      real*4    cwnFPP_simple_bx      ! 	     x-coord in chamber system
      real*4    cwnFPP_simple_my      ! 	     dy/dz in chamber coords
      real*4    cwnFPP_simple_by      ! 	     y-coord in chamber system
      real*4    cwnFPP_full_mx        ! full track dx/dz in FP coords, upstream polarimeter
      real*4    cwnFPP_full_bx        !  	  x-coord in FP system
      real*4    cwnFPP_full_my        !  	  dy/dz in FP coords
      real*4    cwnFPP_full_by        !  	  y-coord in FP system
      real*4    cwnFPP_chi2	      ! 	   reduced chi**2
      real*4    cwnFPP_zclose	      ! 	   z-coord of closest approach
      real*4    cwnFPP_sclose	      ! 	   distance of closest approach
      real*4    cwnFPP_theta	      ! 	   opening angle betw incident and re-scattered
      real*4    cwnFPP_phi	      ! 	   azimuthal angle


      COMMON /CWNtupleFPP/ cwnFPP_eventID,
     & cwnFPP_evtcode,
     & cwnFPP_helicite,
     & cwnFPP_hsdelta,
     & cwnFPP_hstheta,
     & cwnFPP_hsphi,
     & cwnFPP_w,
     & cwnFPP_hszbeam,
     & cwnFPP_hsxfp,
     & cwnFPP_hsyfp,
     & cwnFPP_hsxpfp,
     & cwnFPP_hsypfp,
     & cwnFPP_hsytar,
     & cwnFPP_hsxptar,
     & cwnFPP_hsyptar,
     &
     & cwnFPP_trig_TDC1,
     & cwnFPP_trig_TDC2,
     &
     & cwnFPP_RawHits,
     &
     & cwnFPP_Nhits1,
     & cwnFPP_Hit1_pol(MAX_cwn_goodhits),
     & cwnFPP_Hit1_layer(MAX_cwn_goodhits),
     & cwnFPP_Hit1_wire(MAX_cwn_goodhits),
     & cwnFPP_Hit1_iTrack(MAX_cwn_goodhits),
     & cwnFPP_Hit1_time(MAX_cwn_goodhits),
     & cwnFPP_Hit1_drift(MAX_cwn_goodhits),
     & cwnFPP_Hit1_resid(MAX_cwn_goodhits),
     & cwnFPP_Hit1_d_HMS(MAX_cwn_goodhits),
     &
     & cwnFPP_Ntracks,
     & cwnFPP_trk_pol(MAX_cwn_tracks),
     & cwnFPP_trk_num(MAX_cwn_tracks),
     & cwnFPP_trk_hits(MAX_cwn_tracks),
     & cwnFPP_conetest(MAX_cwn_tracks),
     & cwnFPP_simple_mx(MAX_cwn_tracks),
     & cwnFPP_simple_bx(MAX_cwn_tracks),
     & cwnFPP_simple_my(MAX_cwn_tracks),
     & cwnFPP_simple_by(MAX_cwn_tracks),
     & cwnFPP_full_mx(MAX_cwn_tracks),
     & cwnFPP_full_bx(MAX_cwn_tracks),
     & cwnFPP_full_my(MAX_cwn_tracks),
     & cwnFPP_full_by(MAX_cwn_tracks),
     & cwnFPP_chi2(MAX_cwn_tracks),
     & cwnFPP_zclose(MAX_cwn_tracks),
     & cwnFPP_sclose(MAX_cwn_tracks),
     & cwnFPP_theta(MAX_cwn_tracks),
     & cwnFPP_phi(MAX_cwn_tracks)