THcHodoscope.cxx

Go to the documentation of this file.

#include "THcSignalHit.h"
#include "THcScintPlaneCluster.h"
#include "THcShower.h"
#include "THcCherenkov.h"
#include "THcHallCSpectrometer.h"
#include "THcHitList.h"
#include "THcRawShowerHit.h"
#include "TClass.h"
#include "math.h"
#include "THaSubDetector.h"

#include "THcHodoscope.h"
#include "THaEvData.h"
#include "THaDetMap.h"
#include "THcDetectorMap.h"
#include "THaGlobals.h"
#include "THaCutList.h"
#include "THcGlobals.h"
#include "THcParmList.h"
#include "VarDef.h"
#include "VarType.h"
#include "THaTrack.h"
#include "TClonesArray.h"
#include "TMath.h"

#include "THaTrackProj.h"
#include <vector>

#include <cstring>
#include <cstdio>
#include <cstdlib>
#include <iostream>
#include <iomanip>
#include <fstream>
#include <cassert>

using namespace std;
using std::vector;

//_____________________________________________________________________________
THcHodoscope::THcHodoscope( const char* name, const char* description,
                                  THaApparatus* apparatus ) :
  THaNonTrackingDetector(name,description,apparatus)
{
  // Constructor

  //fTrackProj = new TClonesArray( "THaTrackProj", 5 );
  // Construct the planes
  fNPlanes = 0;                 // No planes until we make them
  fStartTime=-1e5;
  fGoodStartTime=kFALSE;
}

//_____________________________________________________________________________
THcHodoscope::THcHodoscope( ) :
  THaNonTrackingDetector()
{
  // Constructor
}

//_____________________________________________________________________________
void THcHodoscope::Setup(const char* name, const char* description)
{
  if( IsZombie()) return;

  // fDebug = 1;  // Keep this at one while we're working on the code

  char prefix[2];

  prefix[0]=tolower(GetApparatus()->GetName()[0]);
  prefix[1]='\0';

  TString temp(prefix[0]);
  fSHMS=kFALSE;
  if (temp == "p" ) fSHMS=kTRUE;
  TString histname=temp+"_timehist";
  hTime = new TH1F(histname,"",400,0,200);
  // cout << " fSHMS = " << fSHMS << endl;
  string planenamelist;
  DBRequest listextra[]={
    {"hodo_num_planes", &fNPlanes, kInt},
    {"hodo_plane_names",&planenamelist, kString},
    {"hodo_tdcrefcut", &fTDC_RefTimeCut, kInt, 0, 1},
    {"hodo_adcrefcut", &fADC_RefTimeCut, kInt, 0, 1},
    {0}
  };
  //fNPlanes = 4;               // Default if not defined
  fTDC_RefTimeCut = 0;          // Minimum allowed reference times
  fADC_RefTimeCut = 0;
  gHcParms->LoadParmValues((DBRequest*)&listextra,prefix);

  cout << "Plane Name List : " << planenamelist << endl;

  vector<string> plane_names = Podd::vsplit(planenamelist);
  // Plane names
  if(plane_names.size() != (UInt_t) fNPlanes) {
    cout << "ERROR: Number of planes " << fNPlanes << " doesn't agree with number of plane names " << plane_names.size() << endl;
    // Should quit.  Is there an official way to quit?
  }
  fPlaneNames = new char* [fNPlanes];
  for(Int_t i=0;i<fNPlanes;i++) {
    fPlaneNames[i] = new char[plane_names[i].length()+1];
    strcpy(fPlaneNames[i], plane_names[i].c_str());
  }

  // Probably shouldn't assume that description is defined
  char* desc = new char[strlen(description)+100];
  fPlanes = new THcScintillatorPlane* [fNPlanes];
  for(Int_t i=0;i < fNPlanes;i++) {
    strcpy(desc, description);
    strcat(desc, " Plane ");
    strcat(desc, fPlaneNames[i]);
    fPlanes[i] = new THcScintillatorPlane(fPlaneNames[i], desc, i+1, this); // Number planes starting from zero!!
    cout << "Created Scintillator Plane " << fPlaneNames[i] << ", " << desc << endl;
  }

  // Save the nominal particle mass
  THcHallCSpectrometer *app = dynamic_cast<THcHallCSpectrometer*>(GetApparatus());
  fPartMass = app->GetParticleMass();
  fBetaNominal = app->GetBetaAtPcentral();



  if (fSHMS) {
    fCherenkov = dynamic_cast<THcCherenkov*>(app->GetDetector("hgcer"));
  } else {
    fCherenkov = dynamic_cast<THcCherenkov*>(app->GetDetector("cer"));
  }

  delete [] desc;
}

//_____________________________________________________________________________
THaAnalysisObject::EStatus THcHodoscope::Init( const TDatime& date )
{
  // cout << "In THcHodoscope::Init()" << endl;
  Setup(GetName(), GetTitle());

  char EngineDID[] = "xSCIN";
  EngineDID[0] = toupper(GetApparatus()->GetName()[0]);
  if( gHcDetectorMap->FillMap(fDetMap, EngineDID) < 0 ) {
    static const char* const here = "Init()";
    Error( Here(here), "Error filling detectormap for %s.", EngineDID );
    return kInitError;
  }

  // Should probably put this in ReadDatabase as we will know the
  // maximum number of hits after setting up the detector map
  // But it needs to happen before the sub detectors are initialized
  // so that they can get the pointer to the hitlist.
  cout << " Hodo tdc ref time cut = " << fTDC_RefTimeCut << " " << fADC_RefTimeCut << endl;

  InitHitList(fDetMap, "THcRawHodoHit", fDetMap->GetTotNumChan()+1,
              fTDC_RefTimeCut, fADC_RefTimeCut);

  EStatus status;
  // This triggers call of ReadDatabase and DefineVariables
  if( (status = THaNonTrackingDetector::Init( date )) )
    return fStatus=status;

  for(Int_t ip=0;ip<fNPlanes;ip++) {
    if((status = fPlanes[ip]->Init( date ))) {
      return fStatus=status;
    }
  }

  fNScinHits     = new Int_t [fNPlanes];
  fGoodPlaneTime = new Bool_t [fNPlanes];
  fNPlaneTime    = new Int_t [fNPlanes];
  fSumPlaneTime  = new Double_t [fNPlanes];

  //  Double_t  fHitCnt4 = 0., fHitCnt3 = 0.;

  // Int_t m = 0;
  // fScinHit = new Double_t*[fNPlanes];
  // for ( m = 0; m < fNPlanes; m++ ){
  //   fScinHit[m] = new Double_t[fNPaddle[0]];
  // }

  for (int ip=0; ip<fNPlanes; ++ip) {
    fScinHitPaddle.push_back(std::vector<Int_t>(fNPaddle[ip], 0));
  }

  fPresentP = 0;
  THaVar* vpresent = gHaVars->Find(Form("%s.present",GetApparatus()->GetName()));
  if(vpresent) {
    fPresentP = (Bool_t *) vpresent->GetValuePointer();
  }

  return fStatus = kOK;
}
//_____________________________________________________________________________
Int_t THcHodoscope::ReadDatabase( const TDatime& date )
{
  //  static const char* const here = "ReadDatabase()";
  char prefix[2];
  char parname[100];

  // Determine which spectrometer in order to construct
  // the parameter names (e.g. hscin_1x_nr vs. sscin_1x_nr)

  prefix[0]=tolower(GetApparatus()->GetName()[0]);
  //
  prefix[1]='\0';
  strcpy(parname,prefix);
  strcat(parname,"scin_");
  //
  //
  //  Int_t plen=strlen(parname);
  // cout << " readdatabse hodo fnplanes = " << fNPlanes << endl;

  CreateMissReportParms(Form("%sscin",prefix));

  fBetaNoTrk = 0.;
  fBetaNoTrkChiSq = 0.;
 fNPaddle = new UInt_t [fNPlanes];
  fFPTime = new Double_t [fNPlanes];
  fPlaneCenter = new Double_t[fNPlanes];
  fPlaneSpacing = new Double_t[fNPlanes];

  prefix[0]=tolower(GetApparatus()->GetName()[0]);
  //
  prefix[1]='\0';

  for(Int_t i=0;i<fNPlanes;i++) {

    DBRequest list[]={
      {Form("scin_%s_nr",fPlaneNames[i]), &fNPaddle[i], kInt},
      {0}
    };


    gHcParms->LoadParmValues((DBRequest*)&list,prefix);
  }

  // GN added
  // reading variables from *hodo.param
  fMaxScinPerPlane=fNPaddle[0];
  fTotHodScin=fNPaddle[0];
  for (Int_t i=1;i<fNPlanes;i++) {
    fMaxScinPerPlane=(fMaxScinPerPlane > fNPaddle[i])? fMaxScinPerPlane : fNPaddle[i];
    fTotHodScin+=(fNPaddle[i]);
  }
  // need this for "padded arrays" i.e. 4x16 lists of parameters (GN)
  fMaxHodoScin=fMaxScinPerPlane*fNPlanes;
  if (fDebug>=1)  cout <<"fMaxScinPerPlane = "<<fMaxScinPerPlane<<" fMaxHodoScin = "<<fMaxHodoScin<<endl;

  fHodoVelLight=new Double_t [fMaxHodoScin];
  fHodoPosSigma=new Double_t [fMaxHodoScin];
  fHodoNegSigma=new Double_t [fMaxHodoScin];
  fHodoPosMinPh=new Double_t [fMaxHodoScin];
  fHodoNegMinPh=new Double_t [fMaxHodoScin];
  fHodoPosPhcCoeff=new Double_t [fMaxHodoScin];
  fHodoNegPhcCoeff=new Double_t [fMaxHodoScin];
  fHodoPosTimeOffset=new Double_t [fMaxHodoScin];
  fHodoNegTimeOffset=new Double_t [fMaxHodoScin];
  fHodoPosPedLimit=new Int_t [fMaxHodoScin];
  fHodoNegPedLimit=new Int_t [fMaxHodoScin];
  fHodoPosInvAdcOffset=new Double_t [fMaxHodoScin];
  fHodoNegInvAdcOffset=new Double_t [fMaxHodoScin];
  fHodoPosInvAdcLinear=new Double_t [fMaxHodoScin];
  fHodoNegInvAdcLinear=new Double_t [fMaxHodoScin];
  fHodoPosInvAdcAdc=new Double_t [fMaxHodoScin];
  fHodoNegInvAdcAdc=new Double_t [fMaxHodoScin];

  //New Time-Walk Calibration Parameters
  fHodoVelFit=new Double_t [fMaxHodoScin];
  fHodoCableFit=new Double_t [fMaxHodoScin];
  fHodo_LCoeff=new Double_t [fMaxHodoScin];
  fHodoPos_c1=new Double_t [fMaxHodoScin];
  fHodoNeg_c1=new Double_t [fMaxHodoScin];
  fHodoPos_c2=new Double_t [fMaxHodoScin];
  fHodoNeg_c2=new Double_t [fMaxHodoScin];
  fHodoSigmaPos=new Double_t [fMaxHodoScin];
  fHodoSigmaNeg=new Double_t [fMaxHodoScin];

  fNHodoscopes = 2;
  fxLoScin = new Int_t [fNHodoscopes];
  fxHiScin = new Int_t [fNHodoscopes];
  fyLoScin = new Int_t [fNHodoscopes];
  fyHiScin = new Int_t [fNHodoscopes];
  fHodoSlop = new Double_t [fNPlanes];
  fTdcOffset = new Int_t [fNPlanes];
  fAdcTdcOffset = new Double_t [fNPlanes];
  fHodoPosAdcTimeWindowMin = new Double_t [fMaxHodoScin];
  fHodoPosAdcTimeWindowMax = new Double_t [fMaxHodoScin];
  fHodoNegAdcTimeWindowMin = new Double_t [fMaxHodoScin];
  fHodoNegAdcTimeWindowMax = new Double_t [fMaxHodoScin];


  for(Int_t ip=0;ip<fNPlanes;ip++) { // Set a large default window
   fTdcOffset[ip] = 0 ;
   fAdcTdcOffset[ip] = 0.0 ;
  }

  DBRequest list[]={
    {"cosmicflag",                       &fCosmicFlag,            kInt,            0,  1},
    {"NumPlanesBetaCalc",                       &fNumPlanesBetaCalc,            kInt,            0,  1},
    {"start_time_center",                &fStartTimeCenter,                      kDouble},
    {"start_time_slop",                  &fStartTimeSlop,                        kDouble},
    {"scin_tdc_to_time",                 &fScinTdcToTime,                        kDouble},
    {"scin_tdc_min",                     &fScinTdcMin,                           kDouble},
    {"scin_tdc_max",                     &fScinTdcMax,                           kDouble},
    {"tof_tolerance",                    &fTofTolerance,          kDouble,         0,  1},
    {"pathlength_central",               &fPathLengthCentral,                    kDouble},
    {"hodo_pos_sigma",                   &fHodoPosSigma[0],       kDouble,  fMaxHodoScin, 1},
    {"hodo_neg_sigma",                   &fHodoNegSigma[0],       kDouble,  fMaxHodoScin, 1},
    {"hodo_pos_ped_limit",               &fHodoPosPedLimit[0],    kInt,     fMaxHodoScin, 1},
    {"hodo_neg_ped_limit",               &fHodoNegPedLimit[0],    kInt,     fMaxHodoScin, 1},
    {"tofusinginvadc",                   &fTofUsingInvAdc,        kInt,            0,  1},
    {"xloscin",                          &fxLoScin[0],            kInt,     (UInt_t) fNHodoscopes},
    {"xhiscin",                          &fxHiScin[0],            kInt,     (UInt_t) fNHodoscopes},
    {"yloscin",                          &fyLoScin[0],            kInt,     (UInt_t) fNHodoscopes},
    {"yhiscin",                          &fyHiScin[0],            kInt,     (UInt_t) fNHodoscopes},
    {"track_eff_test_num_scin_planes",   &fTrackEffTestNScinPlanes,                 kInt},
    {"trackeff_scint_ydiff_max",     &trackeff_scint_ydiff_max,        kDouble,         0,  1},
    {"trackeff_scint_xdiff_max",     &trackeff_scint_xdiff_max,        kDouble,         0,  1},
    {"cer_npe",                          &fNCerNPE,               kDouble,         0,  1},
    {"normalized_energy_tot",            &fNormETot,              kDouble,         0,  1},
    {"hodo_slop",                        fHodoSlop,               kDouble,  (UInt_t) fNPlanes},
    {"debugprintscinraw",                &fdebugprintscinraw,               kInt,  0,1},
    {"hodo_tdc_offset",                  fTdcOffset,              kInt,     (UInt_t) fNPlanes, 1},
    {"hodo_adc_tdc_offset",              fAdcTdcOffset,           kDouble,  (UInt_t) fNPlanes, 1},
    {"hodo_PosAdcTimeWindowMin",         fHodoPosAdcTimeWindowMin, kDouble,  (UInt_t) fMaxHodoScin, 1},
    {"hodo_PosAdcTimeWindowMax",         fHodoPosAdcTimeWindowMax, kDouble,  (UInt_t) fMaxHodoScin, 1},
    {"hodo_NegAdcTimeWindowMin",         fHodoNegAdcTimeWindowMin, kDouble,  (UInt_t) fMaxHodoScin, 1},
    {"hodo_NegAdcTimeWindowMax",         fHodoNegAdcTimeWindowMax, kDouble,  (UInt_t) fMaxHodoScin, 1},
    {"dumptof",                          &fDumpTOF,               kInt,    0, 1},
    {"TOFCalib_shtrk_lo",                &fTOFCalib_shtrk_lo,               kDouble,    0, 1},
    {"TOFCalib_shtrk_hi",                &fTOFCalib_shtrk_hi,               kDouble,    0, 1},
    {"TOFCalib_cer_lo",                &fTOFCalib_cer_lo,               kDouble,    0, 1},
    {"TOFCalib_beta_lo",                &fTOFCalib_beta_lo,               kDouble,    0, 1},
    {"TOFCalib_beta_hi",                &fTOFCalib_beta_hi,               kDouble,    0, 1},
    {"dumptof_filename",                 &fTOFDumpFile,           kString, 0, 1},
    {"TrackBetaIncludeSinglePmtHits",                 &fTrackBetaIncludeSinglePmtHits,           kInt, 0, 1},
    {0}
  };

  // Defaults if not defined in parameter file
  fTrackBetaIncludeSinglePmtHits=0; // do not use paddles with only one hit in the TRack Beta calculation set ==1 to include
   trackeff_scint_ydiff_max=20.;
  trackeff_scint_xdiff_max=20.;
  for(UInt_t ip=0;ip<fMaxHodoScin;ip++) {
    fHodoPosAdcTimeWindowMin[ip] = -1000.;
    fHodoPosAdcTimeWindowMax[ip] = 1000.;
    fHodoNegAdcTimeWindowMin[ip] = -1000.;
    fHodoNegAdcTimeWindowMax[ip] = 1000.;

    fHodoPosPedLimit[ip] = 0.0;
    fHodoNegPedLimit[ip] = 0.0;
    fHodoPosSigma[ip] = 0.2;
    fHodoNegSigma[ip] = 0.2;
  }
  fTOFCalib_shtrk_lo=-kBig;
  fTOFCalib_shtrk_hi= kBig;
  fTOFCalib_cer_lo=-kBig;
  fTOFCalib_beta_lo=-kBig;
  fTOFCalib_beta_hi= kBig;
  fdebugprintscinraw=0;
  fDumpTOF = 0;
  fTOFDumpFile="";
  fTofUsingInvAdc = 1;
  fTofTolerance = 3.0;
  fNCerNPE = 2.0;
  fNormETot = 0.7;
  fCosmicFlag=0;
  fNumPlanesBetaCalc=4;
  // Gets added to each reference time corrected raw TDC value
  // to make sure valid range is all positive.

  gHcParms->LoadParmValues((DBRequest*)&list,prefix);
  if (fCosmicFlag==1) cout << "Setup for cosmics in TOF"<< endl;
  // cout << " cosmic flag = " << fCosmicFlag << endl;
  if(fDumpTOF) {
    fDumpOut.open(fTOFDumpFile.c_str());
    if(fDumpOut.is_open()) {
      //fDumpOut << "Hodoscope Time of Flight calibration data" << endl;
    } else {
      fDumpTOF = 0;
      cout << "WARNING: Unable to open TOF Dump file " << fTOFDumpFile << endl;
      cout << "Data for TOF calibration not being written." << endl;
    }
  }

  // cout << " x1 lo = " << fxLoScin[0]
  //      << " x2 lo = " << fxLoScin[1]
  //      << " x1 hi = " << fxHiScin[0]
  //      << " x2 hi = " << fxHiScin[1]
  //      << endl;

  // cout << " y1 lo = " << fyLoScin[0]
  //      << " y2 lo = " << fyLoScin[1]
  //      << " y1 hi = " << fyHiScin[0]
  //      << " y2 hi = " << fyHiScin[1]
  //      << endl;

  // cout << "Hdososcope planes hits for trigger = " << fTrackEffTestNScinPlanes
  //      << " normalized energy min = " << fNormETot
  //      << " number of photo electrons = " << fNCerNPE
  //      << endl;

  //Set scin Velocity/Cable to default
  for (UInt_t i=0; i<fMaxHodoScin; i++) {
    fHodoVelLight[i] = 15.0;
  }

  if (fTofUsingInvAdc) {
    DBRequest list2[]={
      {"hodo_vel_light",                   &fHodoVelLight[0],       kDouble,  fMaxHodoScin, 1},
      {"hodo_pos_invadc_offset",&fHodoPosInvAdcOffset[0],kDouble,fMaxHodoScin},
      {"hodo_neg_invadc_offset",&fHodoNegInvAdcOffset[0],kDouble,fMaxHodoScin},
      {"hodo_pos_invadc_linear",&fHodoPosInvAdcLinear[0],kDouble,fMaxHodoScin},
      {"hodo_neg_invadc_linear",&fHodoNegInvAdcLinear[0],kDouble,fMaxHodoScin},
      {"hodo_pos_invadc_adc",&fHodoPosInvAdcAdc[0],kDouble,fMaxHodoScin},
      {"hodo_neg_invadc_adc",&fHodoNegInvAdcAdc[0],kDouble,fMaxHodoScin},
      {0}
    };
    
    gHcParms->LoadParmValues((DBRequest*)&list2,prefix);
  };
  /* if (!fTofUsingInvAdc) {
      DBRequest list3[]={
    {"hodo_vel_light",                   &fHodoVelLight[0],       kDouble,  fMaxHodoScin},
    {"hodo_pos_minph",                   &fHodoPosMinPh[0],       kDouble,  fMaxHodoScin},
    {"hodo_neg_minph",                   &fHodoNegMinPh[0],       kDouble,  fMaxHodoScin},
    {"hodo_pos_phc_coeff",               &fHodoPosPhcCoeff[0],    kDouble,  fMaxHodoScin},
    {"hodo_neg_phc_coeff",               &fHodoNegPhcCoeff[0],    kDouble,  fMaxHodoScin},
    {"hodo_pos_time_offset",             &fHodoPosTimeOffset[0],  kDouble,  fMaxHodoScin},
    {"hodo_neg_time_offset",             &fHodoNegTimeOffset[0],  kDouble,  fMaxHodoScin},
    {0}   
    };
  
    
    gHcParms->LoadParmValues((DBRequest*)&list3,prefix);
  */
     DBRequest list4[]={
    {"hodo_velFit",                      &fHodoVelFit[0],   kDouble,  fMaxHodoScin, 1},
    {"hodo_cableFit",                    &fHodoCableFit[0], kDouble,  fMaxHodoScin, 1},
    {"hodo_LCoeff",                      &fHodo_LCoeff[0],  kDouble,  fMaxHodoScin, 1},
    {"c1_Pos",                           &fHodoPos_c1[0],   kDouble,  fMaxHodoScin, 1},
    {"c1_Neg",                           &fHodoNeg_c1[0],   kDouble,  fMaxHodoScin, 1},
    {"c2_Pos",                           &fHodoPos_c2[0],   kDouble,  fMaxHodoScin, 1},
    {"c2_Neg",                           &fHodoNeg_c2[0],   kDouble,  fMaxHodoScin, 1},
    {"TDC_threshold",                    &fTdc_Thrs,        kDouble, 0, 1},
    {"hodo_PosSigma",                   &fHodoSigmaPos[0], kDouble,  fMaxHodoScin, 1},
    {"hodo_NegSigma",                   &fHodoSigmaNeg[0], kDouble,  fMaxHodoScin, 1},
    {0}   
     };
     
     fTdc_Thrs = 1.0;
     //Set Default Values if NOT defined in param file
     for (UInt_t i=0; i<fMaxHodoScin; i++)
       {
         
         //Turn OFF Time-Walk Correction if param file NOT found
         fHodoPos_c1[i] = 0.0;
         fHodoPos_c2[i] = 0.0;
         fHodoNeg_c1[i] = 0.0;
         fHodoNeg_c2[i] = 0.0;
       }
     for (UInt_t i=0; i<fMaxHodoScin; i++)                                                                    
       {  
         //Set scin Velocity/Cable to default
         fHodoCableFit[i] = 0.0;
         fHodoVelFit[i] = 15.0;
         //set time coeff between paddles to default
         fHodo_LCoeff[i] = 0.0;
         
       }
    
     gHcParms->LoadParmValues((DBRequest*)&list4,prefix);
  
  if (fDebug >=1) {
    cout <<"******* Testing Hodoscope Parameter Reading ***\n";
    cout<<"StarTimeCenter = "<<fStartTimeCenter<<endl;
    cout<<"StartTimeSlop = "<<fStartTimeSlop<<endl;
    cout <<"ScintTdcToTime = "<<fScinTdcToTime<<endl;
    cout <<"TdcMin = "<<fScinTdcMin<<" TdcMax = "<<fScinTdcMax<<endl;
    cout <<"TofTolerance = "<<fTofTolerance<<endl;
    cout <<"*** VelLight ***\n";
    for (Int_t i1=0;i1<fNPlanes;i1++) {
      cout<<"Plane "<<i1<<endl;
      for (UInt_t i2=0;i2<fMaxScinPerPlane;i2++) {
        cout<<fHodoVelLight[GetScinIndex(i1,i2)]<<" ";
      }
      cout <<endl;
    }
    cout <<endl<<endl;
    // check fHodoPosPhcCoeff
    /*
    cout <<"fHodoPosPhcCoeff = ";
    for (int i1=0;i1<fMaxHodoScin;i1++) {
      cout<<this->GetHodoPosPhcCoeff(i1)<<" ";
    }
    cout<<endl;
    */
  }
  //
  if ((fTofTolerance > 0.5) && (fTofTolerance < 10000.)) {
    cout << "USING "<<fTofTolerance<<" NSEC WINDOW FOR FP NO_TRACK CALCULATIONS.\n";
  }
  else {
    fTofTolerance= 3.0;
    cout << "*** USING DEFAULT 3 NSEC WINDOW FOR FP NO_TRACK CALCULATIONS!! ***\n";
  }
  //
  fRatio_xpfp_to_xfp=0.00;
  TString SHMS="p";
  TString HMS="h";
  TString test=prefix[0];
  if (test==SHMS ) fRatio_xpfp_to_xfp=0.0018; // SHMS 
  if (test == HMS ) fRatio_xpfp_to_xfp=0.0011; // HMS 
  cout << " fRatio_xpfp_to_xfp= " << fRatio_xpfp_to_xfp << endl;
  //
  fIsInit = true;
  return kOK;
}

//_____________________________________________________________________________
Int_t THcHodoscope::DefineVariables( EMode mode )
{
  // cout << "THcHodoscope::DefineVariables called " << GetName() << endl;
  if( mode == kDefine && fIsSetup ) return kOK;
  fIsSetup = ( mode == kDefine );

  // Register variables in global list

  RVarDef vars[] = {
    // Move these into THcHallCSpectrometer using track fTracks
    {"beta",       "Beta including track info",                "fBeta"},
    {"betanotrack",       "Beta from scintillator hits",                "fBetaNoTrk"},
    {"betachisqnotrack",  "Chi square of beta from scintillator hits",  "fBetaNoTrkChiSq"},
    {"fpHitsTime",        "Time at focal plane from all hits",            "fFPTimeAll"},
    {"starttime",         "Hodoscope Start Time",                         "fStartTime"},
    {"goodstarttime",     "Hodoscope Good Start Time (logical flag)",                    "fGoodStartTime"},
    {"goodscinhit",       "Hit in fid area",                              "fGoodScinHits"},
    {"adctdc_offset"," ","fOffsetTime"},
    {"TimeHist_StartTime_Sigma",       "", "fTimeHist_StartTime_Sigma"},
    {"TimeHist_StartTime_Peak",       "",  "fTimeHist_StartTime_Peak"},
    {"TimeHist_StartTime_NumPeaks",       "",  "fTimeHist_StartTime_NumPeaks"},
    {"TimeHist_StartTime_Hits",       "",   "fTimeHist_StartTime_Hits"},
    {"TimeHist_FpTime_Sigma",       "",    "fTimeHist_FpTime_Sigma"},
    {"TimeHist_FpTime_Peak",       "",     "fTimeHist_FpTime_Peak"},
    {"TimeHist_FpTime_NumPeaks",       "",  "fTimeHist_FpTime_NumPeaks"},
    {"TimeHist_FpTime_Hits",       "",    "fTimeHist_FpTime_Hits"},
     { 0 }
  };
  return DefineVarsFromList( vars, mode );
  //  return kOK;
}

//_____________________________________________________________________________
THcHodoscope::~THcHodoscope()
{
  // Destructor. Remove variables from global list.

  delete [] fFPTime;
  delete [] fPlaneCenter;
  delete [] fPlaneSpacing;

  if( fIsSetup )
    RemoveVariables();
  if( fIsInit )
    DeleteArrays();

  for( int i = 0; i < fNPlanes; ++i ) {
    delete fPlanes[i];
    delete [] fPlaneNames[i];
  }
  delete [] fPlanes;
  delete [] fPlaneNames;
}

//_____________________________________________________________________________
void THcHodoscope::DeleteArrays()
{
  // Delete member arrays. Used by destructor.
  // Int_t k;
  // for( k = 0; k < fNPlanes; k++){
  //   delete [] fScinHit[k];
  // }
  // delete [] fScinHit;

  delete [] fxLoScin;             fxLoScin = NULL;
  delete [] fxHiScin;             fxHiScin = NULL;
  delete [] fyLoScin;             fyLoScin = NULL;
  delete [] fyHiScin;             fyHiScin = NULL;
  delete [] fHodoSlop;            fHodoSlop = NULL;

  delete [] fNPaddle;             fNPaddle = NULL;
  delete [] fHodoVelLight;        fHodoVelLight = NULL;
  delete [] fHodoPosSigma;        fHodoPosSigma = NULL;
  delete [] fHodoNegSigma;        fHodoNegSigma = NULL;
  delete [] fHodoPosMinPh;        fHodoPosMinPh = NULL;
  delete [] fHodoNegMinPh;        fHodoNegMinPh = NULL;
  delete [] fHodoPosPhcCoeff;     fHodoPosPhcCoeff = NULL;
  delete [] fHodoNegPhcCoeff;     fHodoNegPhcCoeff = NULL;
  delete [] fHodoPosTimeOffset;   fHodoPosTimeOffset = NULL;
  delete [] fHodoNegTimeOffset;   fHodoNegTimeOffset = NULL;
  delete [] fHodoPosPedLimit;     fHodoPosPedLimit = NULL;
  delete [] fHodoNegPedLimit;     fHodoNegPedLimit = NULL;
  delete [] fHodoPosInvAdcOffset; fHodoPosInvAdcOffset = NULL;
  delete [] fHodoNegInvAdcOffset; fHodoNegInvAdcOffset = NULL;
  delete [] fHodoPosInvAdcLinear; fHodoPosInvAdcLinear = NULL;
  delete [] fHodoNegInvAdcLinear; fHodoNegInvAdcLinear = NULL;
  delete [] fHodoPosInvAdcAdc;    fHodoPosInvAdcAdc = NULL;
  delete [] fHodoNegInvAdcAdc;    fHodoNegInvAdcAdc = NULL;
  delete [] fGoodPlaneTime;       fGoodPlaneTime = NULL;
  delete [] fNPlaneTime;          fNPlaneTime = NULL;
  delete [] fSumPlaneTime;        fSumPlaneTime = NULL;
  delete [] fNScinHits;           fNScinHits = NULL;
  delete [] fTdcOffset;           fTdcOffset = NULL;
  delete [] fAdcTdcOffset;        fAdcTdcOffset = NULL;
  delete [] fHodoNegAdcTimeWindowMin;    fHodoNegAdcTimeWindowMin = NULL;
  delete [] fHodoNegAdcTimeWindowMax;    fHodoNegAdcTimeWindowMax = NULL;
  delete [] fHodoPosAdcTimeWindowMin;    fHodoPosAdcTimeWindowMin = NULL;
  delete [] fHodoPosAdcTimeWindowMax;    fHodoPosAdcTimeWindowMax = NULL;
   
  delete [] fHodoVelFit;                 fHodoVelFit = NULL;
  delete [] fHodoCableFit;               fHodoCableFit = NULL;
  delete [] fHodo_LCoeff;                fHodo_LCoeff = NULL;
  delete [] fHodoPos_c1;                 fHodoPos_c1 = NULL;
  delete [] fHodoNeg_c1;                 fHodoNeg_c1 = NULL;
  delete [] fHodoPos_c2;                 fHodoPos_c2 = NULL;
  delete [] fHodoNeg_c2;                 fHodoNeg_c2 = NULL;
  delete [] fHodoSigmaPos;               fHodoSigmaPos = NULL;
  delete [] fHodoSigmaNeg;               fHodoSigmaNeg = NULL;
}

//_____________________________________________________________________________
void THcHodoscope::Clear( Option_t* opt )
{
  fTimeHist_StartTime_Sigma=  kBig;
  fTimeHist_StartTime_Peak=  kBig;
  fTimeHist_StartTime_NumPeaks=  0;
  fTimeHist_StartTime_Hits=  kBig;
  fTimeHist_FpTime_Sigma=  kBig;
  fTimeHist_FpTime_Peak=  kBig;
  fTimeHist_FpTime_NumPeaks=  0;
  fTimeHist_FpTime_Hits=  kBig;

  fBeta = 0.0;
  fBetaNoTrk = 0.0;
  fBetaNoTrkChiSq = 0.0;
  fStartTime  = -1000.;
  fADCStartTime  = -1000.;
  fOffsetTime  = kBig;
  fFPTimeAll= -1000.;
  fGoodStartTime = kFALSE;
  fGoodScinHits = 0;
 
  if( *opt != 'I' ) {
    for(Int_t ip=0;ip<fNPlanes;ip++) {
      fPlanes[ip]->Clear();
      fFPTime[ip]=0.;
      fPlaneCenter[ip]=0.;
      fPlaneSpacing[ip]=0.;
      for(UInt_t iPaddle=0;iPaddle<fNPaddle[ip]; ++iPaddle) {
        fScinHitPaddle[ip][iPaddle]=0;
      }
    }
  }
  fdEdX.clear();
  fNScinHit.clear();
  fNClust.clear();
  fClustSize.clear();
  fClustPos.clear();
  fNCluster.clear();
  fClusterSize.clear();
  fClusterXPos.clear();
  fClusterYPos.clear();
  fThreeScin.clear();
  fGoodScinHitsX.clear();
  fGoodFlags.clear();
}

//_____________________________________________________________________________
Int_t THcHodoscope::Decode( const THaEvData& evdata )
{
  // Get the Hall C style hitlist (fRawHitList) for this event
  Bool_t present = kTRUE;       // Suppress reference time warnings
  if(fPresentP) {               // if this spectrometer not part of trigger
    present = *fPresentP;
  }
  fNHits = DecodeToHitList(evdata, !present);
  fEventNum = evdata.GetEvNum();
  //
  // GN: print event number so we can cross-check with engine
  // if (evdata.GetEvNum()>1000)
  //  cout <<"\nhcana_event " << evdata.GetEvNum()<<endl;

  fCheckEvent = evdata.GetEvNum();
  fEventType =  evdata.GetEvType();

  if(gHaCuts->Result("Pedestal_event")) {
    Int_t nexthit = 0;
    for(Int_t ip=0;ip<fNPlanes;ip++) {

      nexthit = fPlanes[ip]->AccumulatePedestals(fRawHitList, nexthit);
    }
    fAnalyzePedestals = 1;      // Analyze pedestals first normal events
    return(0);
  }
  if(fAnalyzePedestals) {
    for(Int_t ip=0;ip<fNPlanes;ip++) {

      fPlanes[ip]->CalculatePedestals();
    }
    fAnalyzePedestals = 0;      // Don't analyze pedestals next event
  }

  // Let each plane get its hits
  Int_t nexthit = 0;
  //THcHallCSpectrometer *app = dynamic_cast<THcHallCSpectrometer*>(GetApparatus());
  // cout << " event number = " << fEventNum << " Evtyp = " << fEventType<< " spec = " << app->GetName() << endl;
  fNfptimes=0;
  Int_t thits = 0;
   for(Int_t ip=0;ip<fNPlanes;ip++) {

    fPlaneCenter[ip] = fPlanes[ip]->GetPosCenter(0) + fPlanes[ip]->GetPosOffset();
    fPlaneSpacing[ip] = fPlanes[ip]->GetSpacing();

    //    nexthit = fPlanes[ip]->ProcessHits(fRawHitList, nexthit);
    // GN: select only events that have reasonable TDC values to start with
    // as per the Engine h_strip_scin.f
    nexthit = fPlanes[ip]->ProcessHits(fRawHitList,nexthit);
    thits+=fPlanes[ip]->GetNScinHits();
  }
   //
  //
  fStartTime=-1000;
  if (thits>0 ) EstimateFocalPlaneTime();

  if (fdebugprintscinraw == 1) {
    for(UInt_t ihit = 0; ihit < fNRawHits ; ihit++) {
//    THcRawHodoHit* hit = (THcRawHodoHit *) fRawHitList->At(ihit);
//    cout << ihit << " : " << hit->fPlane << ":" << hit->fCounter << " : "
//       << hit->fADC_pos << " " << hit->fADC_neg << " "  <<  hit->fTDC_pos
//       << " " <<  hit->fTDC_neg << endl;
    }
    cout << endl;
  }


  return fNHits;
}
//_____________________________________________________________________________
Double_t  THcHodoscope::DetermineTimePeak(Int_t FillFlag)
{
  Double_t time_peak=-1000;
  Int_t NBinsX=hTime->GetNbinsX();
  Int_t hTimeScanRange = 10.; // Integrate over HtimeScanRange
  vector<Double_t> hpeakCent;
  vector<Double_t> hpeakNum;
  vector<Double_t> hpeakRMS;
  vector<Double_t> hpeakFlag;
  vector<Int_t> hpeakBin;
  Double_t MinimumNum=2.;
  Double_t test_peakmax=0.;
  Bool_t scanning_for_local_peak=kFALSE;
  Double_t save_mean=0,save_rms=0,save_num=0;
  Int_t save_bin;
  Bool_t new_peak=kFALSE;
  Bool_t replace_peak=kFALSE;
  UInt_t best_peak_index=0;
  Int_t best_peak_num=-1;
  Double_t best_peak_diff=1000;
         Int_t nfound=0;
  for (Int_t nb=1;nb<NBinsX-hTimeScanRange;nb++) {
    hTime->GetXaxis()->SetRange(nb,nb+hTimeScanRange);
    Double_t test_int = hTime->Integral();
    if (scanning_for_local_peak) {
      if ( test_int <= test_peakmax) {
        Int_t ps=hpeakCent.size();
        replace_peak=kFALSE;
        new_peak=kFALSE;
        if (ps==0) new_peak=kTRUE;
        if (ps!=0 && nb==hpeakBin[ps]+1 && save_mean!=hpeakCent[ps-1]) new_peak=kFALSE;
        if (ps!=0 && save_num > hpeakNum[ps-1]  && abs(save_mean-hpeakCent[ps-1])<5)  replace_peak=kTRUE;
        if (ps!=0 && nb!=hpeakBin[ps]+1 && save_num > MinimumNum && abs(save_mean-hpeakCent[ps-1])>=5) new_peak=kTRUE;
        if (new_peak) {
        hpeakCent.push_back(save_mean);
        hpeakRMS.push_back(save_rms);
        hpeakNum.push_back(save_num);
        hpeakBin.push_back(save_bin);
        hpeakFlag.push_back(1);
        } 
        if (replace_peak) {
          hpeakCent[ps-1]=save_mean;
          hpeakRMS[ps-1]=save_rms;
          hpeakNum[ps-1]=save_num;
          hpeakBin[ps-1]=save_bin;
          hpeakFlag[ps-1]=1;
        }
          scanning_for_local_peak = kFALSE;
         test_peakmax = 0;
         best_peak_index=-1;
         best_peak_num=5;
         nfound=0;
         for (UInt_t np=0;np<hpeakNum.size();np++) {
            hpeakFlag[np]=-1;
            if ( hpeakNum[np] > 5 && (hpeakNum[np]>= best_peak_num ||  abs(hpeakNum[np] - best_peak_num)<= 4) ) {
              if (nfound==0 || (hpeakNum[np]== best_peak_num || abs(hpeakNum[np] - best_peak_num)<= 4) ) {
               hpeakFlag[np]=1;
               if (nfound==0 ) best_peak_num =hpeakNum[np] ;
               if (nfound==0 ) best_peak_index= np;
                nfound++;
              } else {
                for (UInt_t nt=0;nt<np;nt++) {hpeakFlag[nt]=-1;}
                nfound=1;
                best_peak_num =hpeakNum[np] ;
                best_peak_index= np;
              }       
           }
         }
         if (nfound>1) {
         best_peak_diff=1000;
         for (UInt_t np=0;np<hpeakNum.size();np++) {
           if (hpeakFlag[np]==1 && abs(hpeakCent[np]-fStartTimeCenter)<best_peak_diff) {
            best_peak_diff = abs(hpeakCent[np]-fStartTimeCenter);
            best_peak_index= np;
            }
         }}
         if (nfound==0) {
         best_peak_diff=1000;
         for (UInt_t np=0;np<hpeakNum.size();np++) {
           if (abs(hpeakCent[np]-fStartTimeCenter)<best_peak_diff) {
            best_peak_diff = abs(hpeakCent[np]-fStartTimeCenter);
            best_peak_index= np;
            }
         }}
         
      } else {
        test_peakmax = test_int;
        save_mean=hTime->GetMean();
        save_rms=hTime->GetRMS();
        save_num=hTime->Integral();
        save_bin=nb;
      }
    } else {
      if ( test_int > MinimumNum) {
       test_peakmax = test_int;
       scanning_for_local_peak = kTRUE;
        save_mean=hTime->GetMean();
        save_rms=hTime->GetRMS();
        save_num=hTime->Integral();
        save_bin=nb;
      }
    }
  }
  //
   if (hpeakNum.size() >0 && best_peak_index<hpeakNum.size() ) {
          time_peak= hpeakCent[best_peak_index];
          if (FillFlag==1) {
          fTimeHist_StartTime_NumPeaks=hpeakNum.size()  ;
          fTimeHist_StartTime_Peak=  time_peak;
          fTimeHist_StartTime_Sigma= hpeakRMS[best_peak_index] ;
          fTimeHist_StartTime_Hits=  hpeakNum[best_peak_index];
          }
          if (FillFlag==2) {
          fTimeHist_FpTime_NumPeaks=hpeakNum.size()  ;
          fTimeHist_FpTime_Peak=  time_peak;
          fTimeHist_FpTime_Sigma= hpeakRMS[best_peak_index] ;
          fTimeHist_FpTime_Hits=  hpeakNum[best_peak_index];
          }
  }
 //
  return time_peak;
}

//_____________________________________________________________________________
void THcHodoscope::EstimateFocalPlaneTime()
{
  Int_t ihit=0;
  Int_t nscinhits=0;            // Total # hits with at least one good tdc
  hTime->Reset();
  //
  //
  for(Int_t ip=0;ip<fNPlanes;ip++) {
    Int_t nphits=fPlanes[ip]->GetNScinHits();
    nscinhits += nphits;
    TClonesArray* hodoHits = fPlanes[ip]->GetHits();
    for(Int_t i=0;i<nphits;i++) {
      THcHodoHit *hit = (THcHodoHit*)hodoHits->At(i);
      if(hit->GetHasCorrectedTimes()) {
        Double_t postime=hit->GetPosTOFCorrectedTime();
        Double_t negtime=hit->GetNegTOFCorrectedTime();
        hTime->Fill(postime);
        hTime->Fill(negtime);
        }
      }
    }
  //
  Double_t TimePeak=DetermineTimePeak(1);
  hTime->Reset();
  //
  Double_t AdcTdcDiffTimeSum=0;
  Double_t NAdcTdcDiffTimeSum=0;
  //
  for(Int_t ip=0;ip<fNPlanes;ip++) {
    Int_t nphits=fPlanes[ip]->GetNScinHits();
    nscinhits += nphits;
    TClonesArray* hodoHits = fPlanes[ip]->GetHits();
    for(Int_t i=0;i<nphits;i++) {
      THcHodoHit *hit = (THcHodoHit*)hodoHits->At(i);
      if(hit->GetHasCorrectedTimes()) {
        NAdcTdcDiffTimeSum++;
        AdcTdcDiffTimeSum+=(hit->GetPosADCtime()-hit->GetPosTDC()*fScinTdcToTime);
        NAdcTdcDiffTimeSum++;
        AdcTdcDiffTimeSum+=(hit->GetNegADCtime()-hit->GetNegTDC()*fScinTdcToTime);
        Double_t postime=hit->GetPosADCCorrtime();
        Double_t negtime=hit->GetNegADCCorrtime();
        hTime->Fill(postime);
        hTime->Fill(negtime);
        }
      }
    }
  if (NAdcTdcDiffTimeSum>0) AdcTdcDiffTimeSum=AdcTdcDiffTimeSum/NAdcTdcDiffTimeSum;
  //
  Double_t AdcTimePeak=DetermineTimePeak(3);
  //
  ihit = 0;
  Double_t fpTimeSum = 0.0;
  Double_t adcfpTimeSum = 0.0;
  Double_t adcNfptimes=0;
  fNfptimes=0;
  Int_t  Ngood_hits_plane=0;
  Int_t  Ngood_adchits_plane=0;
  Double_t Plane_fptime_sum=0.0;
 Double_t Plane_adcfptime_sum=0.0;
  Bool_t goodplanetime[fNPlanes];
  Bool_t twogoodtimes[nscinhits];
  Int_t NumPlanesGoodHit=0;
  Int_t NumPlanesGoodAdcHit=0;
  if (TimePeak>0) {
  for(Int_t ip=0;ip<fNumPlanesBetaCalc;ip++) {
    goodplanetime[ip] = kFALSE;
    Int_t nphits=fPlanes[ip]->GetNScinHits();
    TClonesArray* hodoHits = fPlanes[ip]->GetHits();
    Ngood_hits_plane=0;
    Plane_fptime_sum=0.0;
    for(Int_t i=0;i<nphits;i++) {
      THcHodoHit *hit = (THcHodoHit*)hodoHits->At(i);
      twogoodtimes[ihit] = kFALSE;
      if(hit->GetHasCorrectedTimes()) {
        Double_t postime=hit->GetPosTOFCorrectedTime();
        Double_t negtime=hit->GetNegTOFCorrectedTime();
        Double_t adcpostime=hit->GetPosADCCorrtime();
        Double_t adcnegtime=hit->GetNegADCCorrtime();
        if ((postime>(TimePeak-fTofTolerance)) && (postime<(TimePeak+fTofTolerance)) &&
            (negtime>(TimePeak-fTofTolerance)) && (negtime<(TimePeak+fTofTolerance)) ) {
          hit->SetTwoGoodTimes(kTRUE);
          twogoodtimes[ihit] = kTRUE;   // Both tubes fired
          Int_t index=hit->GetPaddleNumber()-1;  //
          Double_t fptime;
          if(fCosmicFlag==1) {
            fptime = hit->GetScinCorrectedTime()
              + (fPlanes[ip]->GetZpos()+(index%2)*fPlanes[ip]->GetDzpos())
              / (29.979 * fBetaNominal);
          }else{
            fptime = hit->GetScinCorrectedTime()
              - (fPlanes[ip]->GetZpos()+(index%2)*fPlanes[ip]->GetDzpos())
              / (29.979 * fBetaNominal);
          }
          Ngood_hits_plane++;
          Plane_fptime_sum+=fptime;
          fpTimeSum += fptime;
          fNfptimes++;
          goodplanetime[ip] = kTRUE;
        } else {
          hit->SetTwoGoodTimes(kFALSE);
        }
        //
        if ((adcpostime>(AdcTimePeak-fTofTolerance)) && (adcpostime<(AdcTimePeak+fTofTolerance)) &&
            (adcnegtime>(AdcTimePeak-fTofTolerance)) && (adcnegtime<(AdcTimePeak+fTofTolerance)) ) {
          Int_t index=hit->GetPaddleNumber()-1;  //
          Double_t fptime;
          if(fCosmicFlag==1) {
            fptime = hit->GetScinCorrectedTime()
              + (fPlanes[ip]->GetZpos()+(index%2)*fPlanes[ip]->GetDzpos())
              / (29.979 * fBetaNominal);
          }else{
            fptime = hit->GetScinCorrectedTime()
              - (fPlanes[ip]->GetZpos()+(index%2)*fPlanes[ip]->GetDzpos())
              / (29.979 * fBetaNominal);
          }
          Ngood_adchits_plane++;
          Plane_adcfptime_sum+=fptime;
          adcfpTimeSum += fptime;
          adcNfptimes++;
        }
        //
      }
      ihit++;
    }
    if (Ngood_hits_plane>0)  NumPlanesGoodHit++;
    if (Ngood_adchits_plane>0)  NumPlanesGoodAdcHit++;
    if (Ngood_hits_plane>0) fPlanes[ip]->SetFpTime(Plane_fptime_sum/float(Ngood_hits_plane));
    fPlanes[ip]->SetNGoodHits(Ngood_hits_plane);
  }
  } // if TimePeak>0 
  //
  if(NumPlanesGoodHit>=3) {
    fStartTime = fpTimeSum/fNfptimes;
    fGoodStartTime=kTRUE;
    fFPTimeAll = fStartTime ;
    fOffsetTime=0;
    if(NumPlanesGoodAdcHit>=3)  {
      fADCStartTime = adcfpTimeSum/adcNfptimes-fStartTime;
    }
     fOffsetTime =AdcTdcDiffTimeSum;
  } else {
    fStartTime = fStartTimeCenter;
    fADCStartTime = fStartTimeCenter;
    fGoodStartTime=kFALSE;
    fFPTimeAll = fStartTime ;
    fOffsetTime=AdcTdcDiffTimeSum;
  }
    //
   //
  hTime->Reset();
  //
  if(fGoodStartTime && (goodplanetime[0]||goodplanetime[1]) &&(goodplanetime[2]||goodplanetime[3])) {

    Double_t sumW = 0.;
    Double_t sumT = 0.;
    Double_t sumZ = 0.;
    Double_t sumZZ = 0.;
    Double_t sumTZ = 0.;
    Int_t ihhit = 0;

    for(Int_t ip=0;ip<fNumPlanesBetaCalc;ip++) {
      Int_t nphits=fPlanes[ip]->GetNScinHits();
      TClonesArray* hodoHits = fPlanes[ip]->GetHits();
      
      for(Int_t i=0;i<nphits;i++) {
        Int_t index=((THcHodoHit*)hodoHits->At(i))->GetPaddleNumber()-1;

        if(twogoodtimes[ihhit]){

          Double_t sigma = 0.0;
          if(fTofUsingInvAdc)
            {
              sigma = 0.5 * ( TMath::Sqrt( TMath::Power( fHodoPosSigma[GetScinIndex(ip,index)],2) +
                                           TMath::Power( fHodoNegSigma[GetScinIndex(ip,index)],2) ) );
            }
          else{
            sigma = 0.5 * ( TMath::Sqrt( TMath::Power( fHodoSigmaPos[GetScinIndex(ip,index)],2) +
                                         TMath::Power( fHodoSigmaNeg[GetScinIndex(ip,index)],2) ) );
          }

          Double_t scinWeight = 1 / TMath::Power(sigma,2);
          Double_t zPosition = fPlanes[ip]->GetZpos() + (index%2)*fPlanes[ip]->GetDzpos();
          //      cout << "hit = " << ihhit + 1 << "   zpos = " << zPosition << "   sigma = " << sigma << endl;
          //cout << "fHodoSigma+ = " << fHodoSigmaPos[GetScinIndex(ip,index)] << endl;
          sumW  += scinWeight;
          sumT  += scinWeight * ((THcHodoHit*)hodoHits->At(i))->GetScinCorrectedTime();
          sumZ  += scinWeight * zPosition;
          sumZZ += scinWeight * ( zPosition * zPosition );
          sumTZ += scinWeight * zPosition * ((THcHodoHit*)hodoHits->At(i))->GetScinCorrectedTime();

        } // condition of good scin time
        ihhit ++;
      } // loop over hits of plane
    } // loop over planes

    Double_t tmp = sumW * sumZZ - sumZ * sumZ ;
    Double_t t0 = ( sumT * sumZZ - sumZ * sumTZ ) / tmp ;
    Double_t tmpDenom = sumW * sumTZ - sumZ * sumT;

    if ( TMath::Abs( tmpDenom ) > ( 1 / 10000000000.0 ) ) {

      fBetaNoTrk = tmp / tmpDenom;
      fBetaNoTrkChiSq = 0.;
      ihhit = 0;

      for (Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ){                           // Loop over planes
        Int_t nphits=fPlanes[ip]->GetNScinHits();
        TClonesArray* hodoHits = fPlanes[ip]->GetHits();

        for(Int_t i=0;i<nphits;i++) {
          Int_t index=((THcHodoHit*)hodoHits->At(i))->GetPaddleNumber()-1;

          if(twogoodtimes[ihhit]) {

            Double_t zPosition = fPlanes[ip]->GetZpos() + (index%2)*fPlanes[ip]->GetDzpos();
            Double_t timeDif = ( ((THcHodoHit*)hodoHits->At(i))->GetScinCorrectedTime() - t0 );
           
            Double_t sigma = 0.0;
            if(fTofUsingInvAdc){
              sigma = 0.5 * ( TMath::Sqrt( TMath::Power( fHodoPosSigma[GetScinIndex(ip,index)],2) +
                                           TMath::Power( fHodoNegSigma[GetScinIndex(ip,index)],2) ) );
            }
            else {
              sigma = 0.5 * ( TMath::Sqrt( TMath::Power( fHodoSigmaPos[GetScinIndex(ip,index)],2) +
                                           TMath::Power( fHodoSigmaNeg[GetScinIndex(ip,index)],2) ) );
            }

            fBetaNoTrkChiSq += ( ( zPosition / fBetaNoTrk - timeDif ) *
                                 ( zPosition / fBetaNoTrk - timeDif ) ) / ( sigma * sigma );


          } // condition for good scin time
          ihhit++;
        } // loop over hits of a plane
      } // loop over planes

      Double_t pathNorm = 1.0;

      fBetaNoTrk = fBetaNoTrk * pathNorm;
      fBetaNoTrk = fBetaNoTrk / 29.979;    // velocity / c

    }  // condition for fTmpDenom
    else {
      fBetaNoTrk = 0.;
      fBetaNoTrkChiSq = -2.;
    } // else condition for fTmpDenom
    //
    fGoodEventTOFCalib=kFALSE;
    if ((fNumPlanesBetaCalc==4)&&goodplanetime[0]&&goodplanetime[1]&&goodplanetime[2]&&goodplanetime[3]&&fPlanes[0]->GetNGoodHits()==1&&fPlanes[1]->GetNGoodHits()==1&&fPlanes[2]->GetNGoodHits()==1&&fPlanes[3]->GetNGoodHits()==1) fGoodEventTOFCalib=kTRUE;
    if ((fNumPlanesBetaCalc==3)&&goodplanetime[0]&&goodplanetime[1]&&goodplanetime[2]&&fPlanes[0]->GetNGoodHits()==1&&fPlanes[1]->GetNGoodHits()==1&&fPlanes[2]->GetNGoodHits()==1) fGoodEventTOFCalib=kTRUE;
    //
    //
  } else {
    fBetaNoTrkChiSq = -10.;  // Flag if does not try to find beta  
  }
}

//_____________________________________________________________________________
Int_t THcHodoscope::ApplyCorrections( void )
{
  return(0);
}
//_____________________________________________________________________________
Double_t THcHodoscope::TimeWalkCorrection(const Int_t& paddle,
                                             const ESide side)
{
  return(0.0);
}


//_____________________________________________________________________________
Int_t THcHodoscope::CoarseProcess( TClonesArray& tracks )
{


  Int_t ntracks = tracks.GetLast()+1; // Number of reconstructed tracks
  // -------------------------------------------------

  //  fDumpOut << " ntrack =  " << ntracks  << endl;

  if (ntracks > 0 ) {

    // **MAIN LOOP: Loop over all tracks and get corrected time, tof, beta...
    vector<Double_t> nPmtHit(ntracks);
    vector<Double_t> timeAtFP(ntracks);
    fdEdX.reserve(ntracks);
    fGoodFlags.reserve(ntracks);
    for ( Int_t itrack = 0; itrack < ntracks; itrack++ ) { // Line 133
      nPmtHit[itrack]=0;
      timeAtFP[itrack]=0;

      THaTrack* theTrack = dynamic_cast<THaTrack*>( tracks.At(itrack) );
      if (!theTrack) return -1;

      for (Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ){
        fGoodPlaneTime[ip] = kFALSE;
        fNScinHits[ip] = 0;
        fNPlaneTime[ip] = 0;
        fSumPlaneTime[ip] = 0.;
      }
      std::vector<Double_t> dedx_temp;
      std::vector<std::vector<GoodFlags> > goodflagstmp1;
      goodflagstmp1.reserve(fNumPlanesBetaCalc);
#if __cplusplus >= 201103L
      fdEdX.push_back(std::move(dedx_temp)); // Create array of dedx per hit
      fGoodFlags.push_back(std::move(goodflagstmp1));
#else
      fdEdX.push_back(dedx_temp); // Create array of dedx per hit
      fGoodFlags.push_back(goodflagstmp1);
#endif
      Int_t nFPTime = 0;
      Double_t betaChiSq = -3;
      Double_t beta = 0;
      //      timeAtFP[itrack] = 0.;
      Double_t sumFPTime = 0.; // Line 138
      fNScinHit.push_back(0);



       hTime->Reset();
      fTOFCalc.clear();   // SAW - Can we
      fTOFPInfo.clear();  // SAW - combine these two?
      Int_t ihhit = 0;          // Hit # overall

      for(Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ) {

        std::vector<GoodFlags> goodflagstmp2;
        goodflagstmp2.reserve(fNScinHits[ip]);
#if __cplusplus >= 201103L
        fGoodFlags[itrack].push_back(std::move(goodflagstmp2));
#else
        fGoodFlags[itrack].push_back(goodflagstmp2);
#endif
        fNScinHits[ip] = fPlanes[ip]->GetNScinHits();
        TClonesArray* hodoHits = fPlanes[ip]->GetHits();

        Double_t zPos = fPlanes[ip]->GetZpos();
        Double_t dzPos = fPlanes[ip]->GetDzpos();

        // first loop over hits with in a single plane
        for (Int_t iphit = 0; iphit < fNScinHits[ip]; iphit++ ){
          // iphit is hit # within a plane
          THcHodoHit *hit = (THcHodoHit*)hodoHits->At(iphit);

          fTOFPInfo.push_back(TOFPInfo());
          // Can remove these as we will initialize in the constructor
          //      fTOFPInfo[ihhit].time_pos = -99.0;
          //      fTOFPInfo[ihhit].time_neg = -99.0;
          //      fTOFPInfo[ihhit].keep_pos = kFALSE;
          //      fTOFPInfo[ihhit].keep_neg = kFALSE;
          fTOFPInfo[ihhit].scin_pos_time = 0.0;
          fTOFPInfo[ihhit].scin_neg_time = 0.0;
          fTOFPInfo[ihhit].hit = hit;
          fTOFPInfo[ihhit].planeIndex = ip;
          fTOFPInfo[ihhit].hitNumInPlane = iphit;
          fTOFPInfo[ihhit].onTrack = kFALSE;

          Int_t paddle = hit->GetPaddleNumber()-1;
          Double_t zposition = zPos + (paddle%2)*dzPos;

          Double_t xHitCoord = theTrack->GetX() + theTrack->GetTheta() *
            ( zposition ); // Line 183

          Double_t yHitCoord = theTrack->GetY() + theTrack->GetPhi() *
            ( zposition ); // Line 184

          Double_t scinTrnsCoord, scinLongCoord;
          if ( ( ip == 0 ) || ( ip == 2 ) ){ // !x plane. Line 185
            scinTrnsCoord = xHitCoord;
            scinLongCoord = yHitCoord;
          } else if ( ( ip == 1 ) || ( ip == 3 ) ){ // !y plane. Line 188
            scinTrnsCoord = yHitCoord;
            scinLongCoord = xHitCoord;
          } else { return -1; } // Line 195

          fTOFPInfo[ihhit].scinTrnsCoord = scinTrnsCoord;
          fTOFPInfo[ihhit].scinLongCoord = scinLongCoord;

          Double_t scinCenter = fPlanes[ip]->GetPosCenter(paddle) + fPlanes[ip]->GetPosOffset();

          // Index to access the 2d arrays of paddle/scintillator properties
          Int_t fPIndex = GetScinIndex(ip,paddle);
          Double_t betatrack = theTrack->GetP()/TMath::Sqrt(theTrack->GetP()*theTrack->GetP()+fPartMass*fPartMass);
          
          if ( TMath::Abs( scinCenter - scinTrnsCoord ) <
               ( fPlanes[ip]->GetSize() * 0.5 + fPlanes[ip]->GetHodoSlop() ) ){ // Line 293

            fTOFPInfo[ihhit].onTrack = kTRUE;
            Double_t zcor = zposition/(29.979*betatrack)*
              TMath::Sqrt(1. + theTrack->GetTheta()*theTrack->GetTheta()
                          + theTrack->GetPhi()*theTrack->GetPhi());
            fTOFPInfo[ihhit].zcor = zcor;
            if (fCosmicFlag) {
              Double_t zcor = -zposition/(29.979*1.0)*
                TMath::Sqrt(1. + theTrack->GetTheta()*theTrack->GetTheta()
                            + theTrack->GetPhi()*theTrack->GetPhi());
              fTOFPInfo[ihhit].zcor = zcor;
            }
            Double_t tdc_pos = hit->GetPosTDC();
            Double_t tdc_neg = hit->GetNegTDC();
            //
            if( (tdc_pos >=fScinTdcMin && tdc_pos <= fScinTdcMax) &&
                 (tdc_neg >=fScinTdcMin && tdc_neg <= fScinTdcMax )) {
              fTOFPInfo[ihhit].scin_pos_time = hit->GetPosCorrectedTime();
              Double_t timep = hit->GetPosCorrectedTime()-zcor;
              fTOFPInfo[ihhit].time_pos = timep;
              hTime->Fill(timep);
              fTOFPInfo[ihhit].scin_neg_time = hit->GetNegCorrectedTime();
              Double_t timen = hit->GetNegCorrectedTime()-zcor;
              fTOFPInfo[ihhit].time_neg = timen;
              hTime->Fill(timen);
            } else {
            //
              if (fTrackBetaIncludeSinglePmtHits==1) {
              if(tdc_pos >=fScinTdcMin && tdc_pos <= fScinTdcMax ) {
              Double_t adc_pos = hit->GetPosADC();
              Double_t adcamp_pos = hit->GetPosADCpeak();
              Double_t pathp = fPlanes[ip]->GetPosLeft() - scinLongCoord;
              fTOFPInfo[ihhit].pathp = pathp;
              Double_t timep = tdc_pos*fScinTdcToTime;
              if(fTofUsingInvAdc) {
                timep -= fHodoPosInvAdcOffset[fPIndex]
                  + pathp/fHodoPosInvAdcLinear[fPIndex]
                  + fHodoPosInvAdcAdc[fPIndex]
                  /TMath::Sqrt(TMath::Max(20.0*.020,adc_pos));
              } else {
                //Double_t tw_corr_pos = fHodoPos_c1[fPIndex]/pow(adcamp_pos/fTdc_Thrs,fHodoPos_c2[fPIndex]) -  fHodoPos_c1[fPIndex]/pow(200./fTdc_Thrs, fHodoPos_c2[fPIndex]);
                Double_t tw_corr_pos=0.;
                pathp=scinLongCoord;
                if (adcamp_pos>0) tw_corr_pos = 1./pow(adcamp_pos/fTdc_Thrs,fHodoPos_c2[fPIndex]) -  1./pow(200./fTdc_Thrs, fHodoPos_c2[fPIndex]);            
                timep += -tw_corr_pos + fHodo_LCoeff[fPIndex]+ pathp/fHodoVelFit[fPIndex];
              }
              fTOFPInfo[ihhit].scin_pos_time = timep;
              timep -= zcor;
              fTOFPInfo[ihhit].time_pos = timep;

              hTime->Fill(timep);
            }
            if(tdc_neg >=fScinTdcMin && tdc_neg <= fScinTdcMax ) {
              Double_t adc_neg = hit->GetNegADC();
              Double_t adcamp_neg = hit->GetNegADCpeak();
              Double_t pathn =  scinLongCoord - fPlanes[ip]->GetPosRight();
              fTOFPInfo[ihhit].pathn = pathn;
              Double_t timen = tdc_neg*fScinTdcToTime;
              if(fTofUsingInvAdc) {
                timen -= fHodoNegInvAdcOffset[fPIndex]
                  + pathn/fHodoNegInvAdcLinear[fPIndex]
                  + fHodoNegInvAdcAdc[fPIndex]
                  /TMath::Sqrt(TMath::Max(20.0*.020,adc_neg));
              } else {
                pathn=scinLongCoord ;
                Double_t tw_corr_neg =0 ;
                if (adcamp_neg >0) tw_corr_neg= 1./pow(adcamp_neg/fTdc_Thrs,fHodoNeg_c2[fPIndex]) -  1./pow(200./fTdc_Thrs, fHodoNeg_c2[fPIndex]);              
                timen += -tw_corr_neg- 2*fHodoCableFit[fPIndex] + fHodo_LCoeff[fPIndex]- pathn/fHodoVelFit[fPIndex];

              }
              fTOFPInfo[ihhit].scin_neg_time = timen;
              timen -=  zcor;
              fTOFPInfo[ihhit].time_neg = timen;
              hTime->Fill(timen);
            }
              } // new fTrackBetaIncludeSinglePmtHits
            } // matches else
          } // condition for cenetr on a paddle
          ihhit++;
        } // First loop over hits in a plane <---------

        //-----------------------------------------------------------------------------------------------
        //------------- First large loop over scintillator hits ends here --------------------
        //-----------------------------------------------------------------------------------------------
      }
      Int_t nhits=ihhit;

      Double_t TimePeak = DetermineTimePeak(2);
      if(TimePeak> 0) {
        
        for(Int_t ih = 0; ih < nhits; ih++) { // loop over all scintillator hits
          if ( ( fTOFPInfo[ih].time_pos > (TimePeak-fTofTolerance) ) && ( fTOFPInfo[ih].time_pos < ( TimePeak + fTofTolerance ) ) ) {
            fTOFPInfo[ih].keep_pos=kTRUE;
          }
          if ( ( fTOFPInfo[ih].time_neg > (TimePeak-fTofTolerance) ) && ( fTOFPInfo[ih].time_neg < ( TimePeak + fTofTolerance ) ) ){
            fTOFPInfo[ih].keep_neg=kTRUE;
          }
        }
      }

      //---------------------------------------------------------------------------------------------
      // ---------------------- Second loop over scint. hits in a plane -----------------------------
      //---------------------------------------------------------------------------------------------
 
      fdEdX[itrack].reserve(nhits);
      fTOFCalc.reserve(nhits);
      for(Int_t ih=0; ih < nhits; ih++) {
        THcHodoHit *hit = fTOFPInfo[ih].hit;
        Int_t iphit = fTOFPInfo[ih].hitNumInPlane;
        Int_t ip = fTOFPInfo[ih].planeIndex;
        //         fDumpOut << " looping over hits = " << ih << " plane = " << ip+1 << endl;
        // Flags are used by THcHodoEff
        fGoodFlags[itrack][ip].reserve(nhits);
        fGoodFlags[itrack][ip].push_back(GoodFlags());
        assert( iphit >= 0 && (size_t)iphit < fGoodFlags[itrack][ip].size() );
        fGoodFlags[itrack][ip][iphit].onTrack = kFALSE;
        fGoodFlags[itrack][ip][iphit].goodScinTime = kFALSE;
        fGoodFlags[itrack][ip][iphit].goodTdcNeg = kFALSE;
        fGoodFlags[itrack][ip][iphit].goodTdcPos = kFALSE;

        fTOFCalc.push_back(TOFCalc());
        // Do we set back to false for each track, or just once per event?
        assert( ih >= 0 && (size_t)ih < fTOFCalc.size() );
        fTOFCalc[ih].good_scin_time = kFALSE;
        // These need a track index too to calculate efficiencies
        fTOFCalc[ih].good_tdc_pos = kFALSE;
        fTOFCalc[ih].good_tdc_neg = kFALSE;
        fTOFCalc[ih].pindex = ip;

        Int_t paddle = hit->GetPaddleNumber()-1;
        fTOFCalc[ih].hit_paddle = paddle;
        fTOFCalc[ih].good_raw_pad = paddle;

        //      Double_t scinCenter = fPlanes[ip]->GetPosCenter(paddle) + fPlanes[ip]->GetPosOffset();
        //      Double_t scinTrnsCoord = fTOFPInfo[ih].scinTrnsCoord;
        //      Double_t scinLongCoord = fTOFPInfo[ih].scinLongCoord;

        Int_t fPIndex = GetScinIndex(ip,paddle);

        if (fTOFPInfo[ih].onTrack) {
          fGoodFlags[itrack][ip][iphit].onTrack = kTRUE;
          if ( fTOFPInfo[ih].keep_pos ) { // 301
            fTOFCalc[ih].good_tdc_pos = kTRUE;
            fGoodFlags[itrack][ip][iphit].goodTdcPos = kTRUE;
          }
          if ( fTOFPInfo[ih].keep_neg ) { //
            fTOFCalc[ih].good_tdc_neg = kTRUE;
            fGoodFlags[itrack][ip][iphit].goodTdcNeg = kTRUE;
          }
          // ** Calculate ave time for scin and error.
          if ( fTOFCalc[ih].good_tdc_pos ){
            if ( fTOFCalc[ih].good_tdc_neg ){
              fTOFCalc[ih].scin_time  = ( fTOFPInfo[ih].scin_pos_time +
                                          fTOFPInfo[ih].scin_neg_time ) / 2.;
              fTOFCalc[ih].scin_time_fp  = ( fTOFPInfo[ih].time_pos +
                                             fTOFPInfo[ih].time_neg ) / 2.;
              
              if (fTofUsingInvAdc){
                fTOFCalc[ih].scin_sigma = TMath::Sqrt( fHodoPosSigma[fPIndex] * fHodoPosSigma[fPIndex] +
                                                       fHodoNegSigma[fPIndex] * fHodoNegSigma[fPIndex] )/2.;
              }
              else {
                fTOFCalc[ih].scin_sigma = TMath::Sqrt( fHodoSigmaPos[fPIndex] * fHodoSigmaPos[fPIndex] +
                                                       fHodoSigmaNeg[fPIndex] * fHodoSigmaNeg[fPIndex] )/2.;
              }

              fTOFCalc[ih].good_scin_time = kTRUE;
              fGoodFlags[itrack][ip][iphit].goodScinTime = kTRUE;
            } else{
              fTOFCalc[ih].scin_time = fTOFPInfo[ih].scin_pos_time;
              fTOFCalc[ih].scin_time_fp = fTOFPInfo[ih].time_pos;
              
              if (fTofUsingInvAdc){
                fTOFCalc[ih].scin_sigma = fHodoPosSigma[fPIndex];
              }
              else{
                fTOFCalc[ih].scin_sigma = fHodoSigmaPos[fPIndex];
              }
              
              fTOFCalc[ih].good_scin_time = kTRUE;
              fGoodFlags[itrack][ip][iphit].goodScinTime = kTRUE;
            }
          } else {
            if ( fTOFCalc[ih].good_tdc_neg ){
              fTOFCalc[ih].scin_time = fTOFPInfo[ih].scin_neg_time;
              fTOFCalc[ih].scin_time_fp = fTOFPInfo[ih].time_neg;
              if (fTofUsingInvAdc){
                fTOFCalc[ih].scin_sigma = fHodoNegSigma[fPIndex];
              }
              else{
                fTOFCalc[ih].scin_sigma = fHodoSigmaNeg[fPIndex];
              }
              fTOFCalc[ih].good_scin_time = kTRUE;
              fGoodFlags[itrack][ip][iphit].goodScinTime = kTRUE;
            }
          } // In h_tof.f this includes the following if condition for time at focal plane
            // // because it is written in FORTRAN code

            // c     Get time at focal plane
          if ( fTOFCalc[ih].good_scin_time ){

            // scin_time_fp doesn't need to be an array
            // Is this any different than the average of time_pos and time_neg?
            //      Double_t scin_time_fp = ( fTOFPInfo[ih].time_pos +
            //                                fTOFPInfo[ih].time_neg ) / 2.;
            Double_t scin_time_fp = fTOFCalc[ih].scin_time_fp;

            sumFPTime = sumFPTime + scin_time_fp;
            nFPTime ++;

            fSumPlaneTime[ip] = fSumPlaneTime[ip] + scin_time_fp;
            fNPlaneTime[ip] ++;
            fNScinHit[itrack] ++;

            if ( ( fTOFCalc[ih].good_tdc_pos ) && ( fTOFCalc[ih].good_tdc_neg ) ){
              nPmtHit[itrack] = nPmtHit[itrack] + 2;
            } else {
              nPmtHit[itrack] = nPmtHit[itrack] + 1;
            }

            fdEdX[itrack].push_back(0.0);
            assert( fNScinHit[itrack] > 0 && (size_t)fNScinHit[itrack] < fdEdX[itrack].size()+1 );

            // --------------------------------------------------------------------------------------------
            if ( fTOFCalc[ih].good_tdc_pos ){
              if ( fTOFCalc[ih].good_tdc_neg ){
                fdEdX[itrack][fNScinHit[itrack]-1]=
                  TMath::Sqrt( TMath::Max( 0., hit->GetPosADC() * hit->GetNegADC() ) );
              } else{
                fdEdX[itrack][fNScinHit[itrack]-1]=
                  TMath::Max( 0., hit->GetPosADC() );
              }
            } else{
              if ( fTOFCalc[ih].good_tdc_neg ){
                fdEdX[itrack][fNScinHit[itrack]-1]=
                  TMath::Max( 0., hit->GetNegADC() );
              } else{
                fdEdX[itrack][fNScinHit[itrack]-1]=0.0;
              }
            }
            // --------------------------------------------------------------------------------------------


          } // time at focal plane condition
        } // on track condition

          // ** See if there are any good time measurements in the plane.
        if ( fTOFCalc[ih].good_scin_time ){
          fGoodPlaneTime[ip] = kTRUE;
          fTOFCalc[ih].dedx = fdEdX[itrack][fNScinHit[itrack]-1];
        } else {
          fTOFCalc[ih].dedx = 0.0;
        }
        
      } // Second loop over hits of a scintillator plane ends here
      theTrack->SetGoodPlane3( fGoodPlaneTime[2] ? 1 : 0 );
      if (fNumPlanesBetaCalc==4) theTrack->SetGoodPlane4( fGoodPlaneTime[3] ? 1 : 0 );
      //
      //------------------------------------------------------------------------------
      //------------------------------------------------------------------------------
      //------------------------------------------------------------------------------
      //------------------------------------------------------------------------------
      //------------------------------------------------------------------------------
      //------------------------------------------------------------------------------
      //------------------------------------------------------------------------------
      //------------------------------------------------------------------------------

      // * * Fit beta if there are enough time measurements (one upper, one lower)
      // From h_tof_fit
      if ( ( ( fGoodPlaneTime[0] ) || ( fGoodPlaneTime[1] ) ) &&
           ( ( fGoodPlaneTime[2] ) || ( fGoodPlaneTime[3] ) ) ){

        Double_t sumW = 0.;
        Double_t sumT = 0.;
        Double_t sumZ = 0.;
        Double_t sumZZ = 0.;
        Double_t sumTZ = 0.;

        for(Int_t ih=0; ih < nhits; ih++) {
          Int_t ip = fTOFPInfo[ih].planeIndex;

          if ( fTOFCalc[ih].good_scin_time ) {

            Double_t scinWeight = 1 / ( fTOFCalc[ih].scin_sigma * fTOFCalc[ih].scin_sigma );
            Double_t zPosition = ( fPlanes[ip]->GetZpos()
                                   +( fTOFCalc[ih].hit_paddle % 2 ) *
                                   fPlanes[ip]->GetDzpos() );

            sumW  += scinWeight;
            sumT  += scinWeight * fTOFCalc[ih].scin_time;
            sumZ  += scinWeight * zPosition;
            sumZZ += scinWeight * ( zPosition * zPosition );
            sumTZ += scinWeight * zPosition * fTOFCalc[ih].scin_time;

          } // condition of good scin time
        } // loop over hits

        Double_t tmp = sumW * sumZZ - sumZ * sumZ ;
        Double_t t0 = ( sumT * sumZZ - sumZ * sumTZ ) / tmp ;
        Double_t tmpDenom = sumW * sumTZ - sumZ * sumT;

        if ( TMath::Abs( tmpDenom ) > ( 1 / 10000000000.0 ) ) {

          beta = tmp / tmpDenom;
          betaChiSq = 0.;

          for(Int_t ih=0; ih < nhits; ih++) {
            Int_t ip = fTOFPInfo[ih].planeIndex;

            if ( fTOFCalc[ih].good_scin_time ){

              Double_t zPosition = ( fPlanes[ip]->GetZpos() + ( fTOFCalc[ih].hit_paddle % 2 ) *
                                     fPlanes[ip]->GetDzpos() );
              Double_t timeDif = ( fTOFCalc[ih].scin_time - t0 );
              betaChiSq += ( ( zPosition / beta - timeDif ) *
                             ( zPosition / beta - timeDif ) )  /
                ( fTOFCalc[ih].scin_sigma * fTOFCalc[ih].scin_sigma );

            } // condition for good scin time
          } // loop over hits

          Double_t pathNorm = TMath::Sqrt( 1. + theTrack->GetTheta() * theTrack->GetTheta() +
                                           theTrack->GetPhi()   * theTrack->GetPhi() );
          // Take angle into account
          beta = beta / pathNorm;
          beta = beta / 29.979;    // velocity / c

        } // condition for fTmpDenom
        else {
          beta = 0.;
          betaChiSq = -2.;
        } // else condition for fTmpDenom
      } else {
        beta = 0.;
        betaChiSq = -1;
      }

      if ( nFPTime != 0 ){
        timeAtFP[itrack] = ( sumFPTime / nFPTime );
      }
      //
      // ---------------------------------------------------------------------------

      Double_t FPTimeSum=0.0;
      Int_t nFPTimeSum=0;
      Int_t nGoodPlanesHit=0;
      for (Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ){
        if ( fNPlaneTime[ip] != 0 ){
          nGoodPlanesHit++;
          fFPTime[ip] = ( fSumPlaneTime[ip] / fNPlaneTime[ip] );
          FPTimeSum += fSumPlaneTime[ip];
          nFPTimeSum += fNPlaneTime[ip];
        } else {
          fFPTime[ip] = 1000. * ( ip + 1 );
        }
      }
      Double_t fptime=-2000;
      fptime=fStartTime;
      if (nGoodPlanesHit>=3) fptime = FPTimeSum/nFPTimeSum;
      fFPTimeAll = fptime;
      Double_t dedx=0.0;
      for(UInt_t ih=0;ih<fTOFCalc.size();ih++) {
        if(fTOFCalc[ih].good_scin_time) {
          dedx = fTOFCalc[ih].dedx;
          break;
        }
      }
      theTrack->SetDedx(dedx);
      theTrack->SetFPTime(fptime);
      theTrack->SetBeta(beta);
      theTrack->SetBetaChi2( betaChiSq );
      theTrack->SetNPMT(nPmtHit[itrack]);


    } // Main loop over tracks ends here.

  } // If condition for at least one track


  //OriginalTrackEffTest();
  TrackEffTest();
  //
  CalcCluster();

  return 0;

}
//
void THcHodoscope::CalcCluster(void)
{
  //    THcHallCSpectrometer *app = dynamic_cast<THcHallCSpectrometer*>(GetApparatus());
  //    cout << app->GetName() << endl;
   const Int_t MaxNCluster=5;
  std::vector<Int_t > iw(MaxNCluster,0);
  std::vector<Double_t > dw(MaxNCluster,0);
  for(Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ) {
    fNCluster.push_back(0);
    fClusterSize.push_back(iw);
    fClusterXPos.push_back(dw);
    fClusterYPos.push_back(dw);
  }
     for (Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ){
        Double_t pl_xypos=0;
        Double_t pl_calcpos=0;
        Double_t pl_zpos=0;
        Int_t   num_good_pad=0;
        Double_t pl_x=0,pl_y=0;
        TClonesArray* hodoHits = fPlanes[ip]->GetHits();
        Int_t prev_padnum=-100;
        for (Int_t iphit = 0; iphit < fPlanes[ip]->GetNScinHits(); iphit++ ){     
          THcHodoHit *hit = (THcHodoHit*)hodoHits->At(iphit);
          if ( hit->GetTwoGoodTimes() ) {
            Int_t padind = hit->GetPaddleNumber()-1;
            Int_t padnum  = padind+1;
            if (ip==0 || ip==2) pl_x = fPlanes[ip]->GetPosCenter(padind)+ fPlanes[ip]->GetPosOffset();
            if (ip==0 || ip==2) pl_y = ((THcHodoHit*)hodoHits->At(iphit))->GetCalcPosition();
            if (ip==1 || ip==3) pl_y = fPlanes[ip]->GetPosCenter(padind)+ fPlanes[ip]->GetPosOffset();
            if (ip==1 || ip==3) pl_x = ((THcHodoHit*)hodoHits->At(iphit))->GetCalcPosition();
            pl_xypos+=fPlanes[ip]->GetPosCenter(padind)+ fPlanes[ip]->GetPosOffset();
            pl_calcpos=((THcHodoHit*)hodoHits->At(iphit))->GetCalcPosition();
            pl_zpos+=fPlanes[ip]->GetZpos()+ (padind%2)*fPlanes[ip]->GetDzpos();
            num_good_pad++; 
            if ( fNCluster[ip]>0 && abs(padnum-prev_padnum)==1 && fClusterSize[ip][fNCluster[ip]-1]==1) {
              fClusterSize[ip][fNCluster[ip]-1]=fClusterSize[ip][fNCluster[ip]-1]+1;
              fClusterXPos[ip][fNCluster[ip]-1]+=pl_x;
              fClusterYPos[ip][fNCluster[ip]-1]+=pl_y;
              //              cout << "Add to cluster  pl = " << ip+1 << " hit = " << iphit << " pad = " << padnum << " clus =  " << fNCluster[ip] << " cl size = " << fClusterSize[ip][fNCluster[ip]-1] << " Xpos " << pl_x << " Ypos = " << pl_y << " postime = " << hit->GetPosTOFCorrectedTime() << " negtime = " << hit->GetNegTOFCorrectedTime() << endl;
            } else {
              if (fNCluster[ip]<MaxNCluster) fNCluster[ip]++;
              fClusterSize[ip][fNCluster[ip]-1]=1;
              fClusterXPos[ip][fNCluster[ip]-1]=pl_x;
              fClusterYPos[ip][fNCluster[ip]-1]=pl_y;
              //               cout << " New clus pl = " << ip+1 << " hit = " << iphit << " pad = " << padnum << " clus = " << fNCluster[ip] << " cl size = " << fClusterSize[ip][fNCluster[ip]-1] << " Xpos = " << pl_x << " Ypos = " << pl_y  << " postime = " << hit->GetPosTOFCorrectedTime() << " negtime = " << hit->GetNegTOFCorrectedTime() << endl;
           }
            prev_padnum=padnum;
          }
        }
        //
           for (Int_t ic = 0; ic < fNCluster[ip]; ic++ ){
             fClusterXPos[ip][ic]/=fClusterSize[ip][ic];
             fClusterYPos[ip][ic]/=fClusterSize[ip][ic];
             //      cout << " Cluster = " << ic+1 << " Xpos = " << fClusterXPos[ip][ic] << " Ypos = " << fClusterYPos[ip][ic] << endl; 
           }
        //
        if (num_good_pad !=0 ) {
          pl_xypos=pl_xypos/num_good_pad;
          pl_calcpos=pl_calcpos/num_good_pad;
          pl_zpos=pl_zpos/num_good_pad;
        } else {
          pl_xypos = kBig;
          pl_calcpos = kBig;
          pl_zpos = kBig;
        }
        //      fPlanes[ip]->SetTranversePos(pl_xypos);
        //fPlanes[ip]->SetLongPos(pl_calcpos);
      }
     //
     // analyze clusters
     Int_t best_cluster[4]={-1,-1,-1,-1};
     Double_t diffx_test;
     Double_t diffx;
     Double_t diffy_test;
     Double_t diffy;
     Int_t pl1,pl2;
     for (Int_t nch = 0; nch < 2; nch++ ){
           if (nch==0) pl1=0;
           if (nch==1) pl1=2;
           pl2=pl1+1;         
           diffx_test=1000;
           diffy_test=1000;
         if ( fNCluster[pl1]>=1 && fNCluster[pl2]>=1 ) {
           for (Int_t ic1 = 0; ic1 < fNCluster[pl1]; ic1++ ){
           for (Int_t ic2 = 0; ic2 < fNCluster[pl2]; ic2++ ){
             diffx= abs(fClusterXPos[pl1][ic1]-fClusterXPos[pl2][ic2]);
             diffy= abs(fClusterYPos[pl1][ic1]-fClusterYPos[pl2][ic2]);
             if ( (ic1==0 && ic2==0) || (diffx <=diffx_test && diffy <=diffy_test)) {
               diffx_test=diffx;
               diffy_test=diffy;
               best_cluster[pl1]=ic1;
               best_cluster[pl2]=ic2;
             }
           }}
         } else {
           if (fNCluster[pl1]==1) best_cluster[pl1]=0;
           if (fNCluster[pl2]==1) best_cluster[pl2]=0;
         }
     }
         //
         Int_t pl_test1[4]={0,1,2,3};
         Int_t pl_test2[4]={2,3,0,1};
         for (Int_t npl = 0; npl < 4; npl++ ){
           pl1=pl_test1[npl];
           pl2=pl_test2[npl];
           if (fNCluster[pl1]>0 &&  best_cluster[pl1]==-1 && fNCluster[pl2]>0 &&  best_cluster[pl2]>-1) {
            diffx_test=1000;
            diffy_test=1000;
            for (Int_t ic1 = 0; ic1 < fNCluster[pl1]; ic1++ ){
             diffx= abs(fClusterXPos[pl1][ic1]-fClusterXPos[pl2][best_cluster[pl2]]);
             diffy= abs(fClusterYPos[pl1][ic1]-fClusterYPos[pl2][best_cluster[pl2]]);
             if ( (diffx <=diffx_test && diffy <=diffy_test)) {
               diffx_test=diffx;
               diffy_test=diffy;
               best_cluster[pl1]=ic1;
             }
            }      
           }
         }
         //
         //

         //
         for (Int_t npl = 0; npl < 4; npl++ ){
           /*
           if (best_cluster[npl]==-1) {
             cout << " PLane = " << npl+1 << " no best cluster " << endl;
           } else {
             cout << " plane = " << npl+1 << " xpos = " << fClusterXPos[npl][best_cluster[npl]] << " ypos = " << fClusterYPos[npl][best_cluster[npl]] << endl;
           }
           */
           if (best_cluster[npl]!=-1) fPlanes[npl]->SetScinYPos( fClusterYPos[npl][best_cluster[npl]] );
           if (best_cluster[npl]!=-1) fPlanes[npl]->SetScinXPos( fClusterXPos[npl][best_cluster[npl]] );
         }
  //
}
//
void THcHodoscope::TrackEffTest(void)
{
  Double_t PadLow[4];
  Double_t PadHigh[4];
  // assume X planes are 0,2 and Y planes are 1,3
  PadLow[0]=fxLoScin[0];
  PadLow[2]=fxLoScin[1];
  PadLow[1]=fyLoScin[0];
  PadLow[3]=fyLoScin[1];
  PadHigh[0]=fxHiScin[0];
  PadHigh[2]=fxHiScin[1];
  PadHigh[1]=fyHiScin[0];
  PadHigh[3]=fyHiScin[1];
  //
  Bool_t efftest_debug = kFALSE;
  if (efftest_debug) cout << " spec = " << GetApparatus()->GetName()[0] << endl;
  Double_t PadPosLo[4];
  Double_t PadPosHi[4];
  for (Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ){
    Double_t lowtemp=fPlanes[ip]->GetPosCenter(PadLow[ip]-1)+ fPlanes[ip]->GetPosOffset();
    Double_t hitemp=fPlanes[ip]->GetPosCenter(PadHigh[ip]-1)+ fPlanes[ip]->GetPosOffset();
    if (lowtemp < hitemp) {
      PadPosLo[ip]=lowtemp;
      PadPosHi[ip]=hitemp;
    } else {
      PadPosLo[ip]=hitemp;
      PadPosHi[ip]=lowtemp;
    }
  }  
  //
  const Int_t MaxNClus=5;
  std::vector<Int_t > iw(MaxNClus,0);
  std::vector<Double_t > dw(MaxNClus,0);
  for(Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ) {
    fNClust.push_back(0);
    fClustSize.push_back(iw);
    fClustPos.push_back(dw);
  }
  for (Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ){
    TClonesArray* hodoHits = fPlanes[ip]->GetHits();
    Int_t prev_padnum=-100;
    for (Int_t iphit = 0; iphit < fPlanes[ip]->GetNScinHits(); iphit++ ){
      THcHodoHit *hit = (THcHodoHit*)hodoHits->At(iphit);
      Int_t padnum  = hit->GetPaddleNumber();
      if ( hit->GetTwoGoodTimes() ) {
        if ( padnum==prev_padnum+1 ) {
          fClustSize[ip][fNClust[ip]-1]=fClustSize[ip][fNClust[ip]-1]+1;
          fClustPos[ip][fNClust[ip]-1]+=fPlanes[ip]->GetPosCenter(padnum-1)+ fPlanes[ip]->GetPosOffset();
           if (efftest_debug) cout << "Add to cluster  pl = " << ip+1 << " hit = " << iphit << " pad = " << padnum << " clus =  " << fNClust[ip] << " cl size = " << fClustSize[ip][fNClust[ip]-1] << " pos " << fPlanes[ip]->GetPosCenter(padnum-1)+ fPlanes[ip]->GetPosOffset() << endl;
        } else {
          if (fNClust[ip]<MaxNClus) fNClust[ip]++;
          fClustSize[ip][fNClust[ip]-1]=1;
          fClustPos[ip][fNClust[ip]-1]=fPlanes[ip]->GetPosCenter(padnum-1)+ fPlanes[ip]->GetPosOffset();
           if (efftest_debug) cout << " New clus pl = " << ip+1 << " hit = " << iphit << " pad = " << padnum << " clus = " << fNClust[ip] << " cl size = " << fClustSize[ip][fNClust[ip]-1] << " pos " << fPlanes[ip]->GetPosCenter(padnum-1)+ fPlanes[ip]->GetPosOffset() << endl;
        }
        prev_padnum=padnum;
      }
      if (!(hit->GetTwoGoodTimes()) && efftest_debug)  cout << "no two good times  plane = " << ip+1 << " hit = " << iphit << endl;
    }
  }
  //
  Bool_t inside_bound[4][MaxNClus];
  for(Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ) {    
    fPlanes[ip]->SetNumberClusters(fNClust[ip]);
    for(Int_t ic = 0; ic <fNClust[ip] ; ic++ ) {
      fClustPos[ip][ic]=fClustPos[ip][ic]/fClustSize[ip][ic];
      fPlanes[ip]->SetCluster(ic,fClustPos[ip][ic]);
      fPlanes[ip]->SetClusterSize(ic,fClustSize[ip][ic]);
     inside_bound[ip][ic] = fClustPos[ip][ic]>=PadPosLo[ip] &&  fClustPos[ip][ic]<=PadPosHi[ip];
      if (efftest_debug) cout << "plane = " << ip+1 << " Cluster = " << ic+1 << " size = " << fClustSize[ip][ic]<< " pos = " << fClustPos[ip][ic] << " inside = " << inside_bound[ip][ic] << " lo = " << PadPosLo[ip]<< " hi = " << PadPosHi[ip]<< endl;
    }
  }
  //
  Int_t MaxClusterSize=3;
  Int_t good_for_track_test[4][MaxNClus];
  Int_t sum_good_track_test[4]={0,0,0,0};
  Int_t num_good_plane_hit=0;
  for(Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ) {
    for(Int_t ic = 0; ic <fNClust[ip] ; ic++ ) {
      if (inside_bound[ip][ic] && fClustSize[ip][ic]<=MaxClusterSize) {
         fPlanes[ip]->SetClusterFlag(ic,1.);
         good_for_track_test[ip][ic]=1;
          sum_good_track_test[ip]++;
          if (sum_good_track_test[ip]==1) num_good_plane_hit++;
      } else {
           good_for_track_test[ip][ic]=0;
     }
      if (efftest_debug) cout << " ip " << ip+1 << " clus = " << ic << " good for track = " << good_for_track_test[ip][ic] << endl;
    }
    if (efftest_debug) cout << " ip = " << ip+1 << "  sum_good_track_test = " << sum_good_track_test[ip] << endl;
  }      
  if (efftest_debug) cout << " number of planes hits = " << num_good_plane_hit << endl;
  //
  Bool_t xdiffTest=kFALSE;
  Bool_t ydiffTest=kFALSE;
  fGoodScinHits = 0;
  if (efftest_debug) cout << " fTrackEffTestNScinPlanes = " << fTrackEffTestNScinPlanes << endl;
  if ( (fTrackEffTestNScinPlanes == 4 || fTrackEffTestNScinPlanes == 3) && num_good_plane_hit==4) {
    
    // check for matching clusters in the X planes assumed to be planes 0 and 2
    for(Int_t ic0 = 0; ic0 <fNClust[0] ; ic0++ ) {
    for(Int_t ic2 = 0; ic2 <fNClust[2] ; ic2++ ) {
      if (good_for_track_test[0][ic0] && good_for_track_test[2][ic2]) {
           Double_t x1_proj = fClustPos[0][ic0]*(1+fRatio_xpfp_to_xfp*(fPlanes[2]->GetZpos()-fPlanes[0]->GetZpos())); // project X1 to X2 Z position
           xdiffTest= TMath::Abs(x1_proj-fClustPos[2][ic2])<trackeff_scint_xdiff_max;
          if (xdiffTest) fPlanes[0]->SetClusterUsedFlag(ic0,1.);
          if (xdiffTest) fPlanes[2]->SetClusterUsedFlag(ic2,1.);
      }
    }
    }
    // check for matching clusters in the Y planes assumed to be planes 1 and 3
    for(Int_t ic1 = 0; ic1 <fNClust[1] ; ic1++ ) {
    for(Int_t ic3 = 0; ic3 <fNClust[3] ; ic3++ ) {
       if (good_for_track_test[1][ic1] && good_for_track_test[3][ic3]) {
           ydiffTest= TMath::Abs(fClustPos[1][ic1]-fClustPos[3][ic3])<trackeff_scint_ydiff_max;
          if (ydiffTest) fPlanes[1]->SetClusterUsedFlag(ic1,1.);
          if (ydiffTest) fPlanes[3]->SetClusterUsedFlag(ic3,1.);
       }
    }
    }
    if (xdiffTest && ydiffTest) fGoodScinHits = 1;
    if (efftest_debug) cout << " 4 good planes  xdiff = " << xdiffTest << " ydiff = " <<  ydiffTest << endl;
  }
  //
  if (fTrackEffTestNScinPlanes == 3 && num_good_plane_hit==3) {
    xdiffTest=kFALSE;
    ydiffTest=kFALSE;
    // Check if two X planes hit
    if (sum_good_track_test[0]>0&&sum_good_track_test[2]>0) {
       for(Int_t ic0 = 0; ic0 <fNClust[0] ; ic0++ ) {
       for(Int_t ic2 = 0; ic2 <fNClust[2] ; ic2++ ) {
         if (good_for_track_test[0][ic0] && good_for_track_test[2][ic2]) {
          xdiffTest= TMath::Abs(fClustPos[0][ic0]-fClustPos[2][ic2])<trackeff_scint_xdiff_max;
         }
       }
       }
      ydiffTest = kTRUE;
    }
    // Check if two Y planes hit
    if ((sum_good_track_test[1]>0||sum_good_track_test[3]>0)) {
    for(Int_t ic1 = 0; ic1 <fNClust[1] ; ic1++ ) {
    for(Int_t ic3 = 0; ic3 <fNClust[3] ; ic3++ ) {
       if (good_for_track_test[1][ic1] && good_for_track_test[3][ic3]) {
           ydiffTest= TMath::Abs(fClustPos[1][ic1]-fClustPos[3][ic3])<trackeff_scint_ydiff_max;
       }
    }
      xdiffTest = kTRUE;
    }
    }  
     if (xdiffTest && ydiffTest) fGoodScinHits = 1;
    if (efftest_debug) cout << " 3 good planes  xdiff = " << xdiffTest << " ydiff = " <<  ydiffTest << endl;
  }
  if (efftest_debug) cout << " ************" << endl;
  //
}
//
//
//
void THcHodoscope::OriginalTrackEffTest(void)
{
  //************************now look at some hodoscope tests
  //  *second, we move the scintillators.  here we use scintillator cuts to see
  //  *if a track should have been found.
  cout << " enter track eff" <<  fNumPlanesBetaCalc << endl;
  for(Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ) {
    cout << " loop over planes " <<  ip+1 << endl;

    TClonesArray* hodoHits = fPlanes[ip]->GetHits();
    //    TClonesArray* scinPosTDC = fPlanes[ip]->GetPosTDC();
    //    TClonesArray* scinNegTDC = fPlanes[ip]->GetNegTDC();

    fNScinHits[ip] = fPlanes[ip]->GetNScinHits();
    cout << " hits =  " << fNScinHits[ip]  << endl;
    for (Int_t iphit = 0; iphit < fNScinHits[ip]; iphit++ ){
      Int_t paddle = ((THcHodoHit*)hodoHits->At(iphit))->GetPaddleNumber()-1;

      fScinHitPaddle[ip][paddle] = 1;
      cout << " hit =  " << iphit+1 << " " << paddle+1   << endl;
    }
  }

  //  *next, look for clusters of hits in a scin plane.  a cluster is a group of
  //  *adjacent scintillator hits separated by a non-firing scintillator.
  //  *Wwe count the number of three adjacent scintillators too.  (A signle track
  //  *shouldn't fire three adjacent scintillators.

  for(Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ) {
    // Planes ip = 0 = 1X
    // Planes ip = 2 = 2X
    fNClust.push_back(0);
    fThreeScin.push_back(0);
  }

  // *look for clusters in x planes... (16 scins)  !this assume both x planes have same
  // *number of scintillators.
  cout << " looking for cluster in x planes" << endl;
  Int_t icount;
  for (Int_t ip = 0; ip < 3; ip +=2 ) {
    icount = 0;
    if ( fScinHitPaddle[ip][0] == 1 ) icount ++;
    cout << "plane =" << ip <<  "check if paddle 1 hit " << icount << endl;

    for (Int_t ipaddle = 0; ipaddle < (Int_t) fNPaddle[ip] - 1; ipaddle++ ){
      // !look for number of clusters of 1 or more hits
      if ( ( fScinHitPaddle[ip][ipaddle] == 0 ) &&
           ( fScinHitPaddle[ip][ipaddle + 1] == 1 ) )
        icount ++;
      cout << " paddle =  " << ipaddle+1 << " " << icount << endl;
 
    } // Loop over  paddles
    cout << "Two  cluster in plane =  " << ip+1 << " " << icount << endl;
    fNClust[ip] = icount;
    icount = 0;

    for (Int_t ipaddle = 0; ipaddle < (Int_t) fNPaddle[ip] - 2; ipaddle++ ){
      // !look for three or more adjacent hits

      if ( ( fScinHitPaddle[ip][ipaddle] == 1 ) &&
           ( fScinHitPaddle[ip][ipaddle + 1] == 1 ) &&
           ( fScinHitPaddle[ip][ipaddle + 2] == 1 ) )
        icount ++;
    } // Second loop over paddles
    cout << "Three  clusters in plane =  " << ip+1 << " " << icount << endl;

    if ( icount > 0 )
      fThreeScin[ip] = 1;

  } // Loop over X plane

  // *look for clusters in y planes... (10 scins)  !this assume both y planes have same
  // *number of scintillators.
  cout << " looking for cluster in y planes" << endl;

  for (Int_t ip = 1; ip < fNumPlanesBetaCalc; ip +=2 ) {
    // Planes ip = 1 = 1Y
    // Planes ip = 3 = 2Y

    icount = 0;
    if ( fScinHitPaddle[ip][0] == 1 ) icount ++;
    cout << "plane =" << ip <<  "check if paddle 1 hit " << icount << endl;

    for (Int_t ipaddle = 0; ipaddle < (Int_t) fNPaddle[ip] - 1; ipaddle++ ){
      //  !look for number of clusters of 1 or more hits

      if ( ( fScinHitPaddle[ip][ipaddle] == 0 ) &&
           ( fScinHitPaddle[ip][ipaddle + 1] == 1 ) )
        icount ++;
      cout << " paddle =  " << ipaddle+1 << " " << icount << endl;

    } // Loop over Y paddles
    cout << "Two  cluster in plane =  " << ip+1 << " " << icount << endl;

    fNClust[ip] = icount;
    icount = 0;

    for (Int_t ipaddle = 0; ipaddle < (Int_t) fNPaddle[ip] - 2; ipaddle++ ){
      // !look for three or more adjacent hits

      if ( ( fScinHitPaddle[ip][ipaddle] == 1 ) &&
           ( fScinHitPaddle[ip][ipaddle + 1] == 1 ) &&
           ( fScinHitPaddle[ip][ipaddle + 2] == 1 ) )
        icount ++;

    } // Second loop over Y paddles
    cout << "Three  clusters in plane =  " << ip+1 << " " << icount << endl;

    if ( icount > 0 )
      fThreeScin[ip] = 1;

  }// Loop over Y planes


  // *next we mask out the edge scintillators, and look at triggers that happened
  // *at the center of the acceptance.  To change which scins are in the mask
  // *change the values of h*loscin and h*hiscin in htracking.param

  //      fGoodScinHits = 0;
  for (Int_t ifidx = fxLoScin[0]; ifidx < (Int_t) fxHiScin[0]; ifidx ++ ){
    fGoodScinHitsX.push_back(0);
  }

  fHitSweet1X=0;
  fHitSweet2X=0;
  fHitSweet1Y=0;
  fHitSweet2Y=0;
  // *first x plane.  first see if there are hits inside the scin region
  for (Int_t ifidx = fxLoScin[0]-1; ifidx < fxHiScin[0]; ifidx ++ ){
    if ( fScinHitPaddle[0][ifidx] == 1 ){
      fHitSweet1X = 1;
      fSweet1XScin = ifidx + 1;
    }
  }

  // *  next make sure nothing fired outside the good region
  for (Int_t ifidx = 0; ifidx < fxLoScin[0]-1; ifidx ++ ){
    if ( fScinHitPaddle[0][ifidx] == 1 ){ fHitSweet1X = -1; }
  }
  for (Int_t ifidx = fxHiScin[0]; ifidx < (Int_t) fNPaddle[0]; ifidx ++ ){
    if ( fScinHitPaddle[0][ifidx] == 1 ){ fHitSweet1X = -1; }
  }

  // *second x plane.  first see if there are hits inside the scin region
  for (Int_t ifidx = fxLoScin[1]-1; ifidx < fxHiScin[1]; ifidx ++ ){
    if ( fScinHitPaddle[2][ifidx] == 1 ){
      fHitSweet2X = 1;
      fSweet2XScin = ifidx + 1;
    }
  }
  // *  next make sure nothing fired outside the good region
  for (Int_t ifidx = 0; ifidx < fxLoScin[1]-1; ifidx ++ ){
    if ( fScinHitPaddle[2][ifidx] == 1 ){ fHitSweet2X = -1; }
  }
  for (Int_t ifidx = fxHiScin[1]; ifidx < (Int_t) fNPaddle[2]; ifidx ++ ){
    if ( fScinHitPaddle[2][ifidx] == 1 ){ fHitSweet2X = -1; }
  }

  // *first y plane.  first see if there are hits inside the scin region
  for (Int_t ifidx = fyLoScin[0]-1; ifidx < fyHiScin[0]; ifidx ++ ){
    if ( fScinHitPaddle[1][ifidx] == 1 ){
      fHitSweet1Y = 1;
      fSweet1YScin = ifidx + 1;
    }
  }
  // *  next make sure nothing fired outside the good region
  for (Int_t ifidx = 0; ifidx < fyLoScin[0]-1; ifidx ++ ){
    if ( fScinHitPaddle[1][ifidx] == 1 ){ fHitSweet1Y = -1; }
  }
  for (Int_t ifidx = fyHiScin[0]; ifidx < (Int_t) fNPaddle[1]; ifidx ++ ){
    if ( fScinHitPaddle[1][ifidx] == 1 ){ fHitSweet1Y = -1; }
  }

  // *second y plane.  first see if there are hits inside the scin region
  for (Int_t ifidx = fyLoScin[1]-1; ifidx < fyHiScin[1]; ifidx ++ ){
    if ( fScinHitPaddle[3][ifidx] == 1 ){
      fHitSweet2Y = 1;
      fSweet2YScin = ifidx + 1;
    }
  }

  // *  next make sure nothing fired outside the good region
  for (Int_t ifidx = 0; ifidx < fyLoScin[1]-1; ifidx ++ ){
    if ( fScinHitPaddle[3][ifidx] == 1 ){ fHitSweet2Y = -1; }
  }
  for (Int_t ifidx = fyHiScin[1]; ifidx < (Int_t) fNPaddle[3]; ifidx ++ ){
    if ( fScinHitPaddle[3][ifidx] == 1 ){ fHitSweet2Y = -1; }
  }

  fTestSum = fHitSweet1X + fHitSweet2X + fHitSweet1Y + fHitSweet2Y;

  // * now define a 3/4 or 4/4 trigger of only good scintillators the value
  // * is specified in htracking
  if ( fTestSum >= fTrackEffTestNScinPlanes ){
    fGoodScinHits = 1;
    for (Int_t ifidx = fxLoScin[0]; ifidx < fxHiScin[0]; ifidx ++ ){
      if ( fSweet1XScin == ifidx )
        fGoodScinHitsX[ifidx] = 1;
    }
  }

  // * require front/back hodoscopes be close to each other
  if ( ( fGoodScinHits == 1 ) && ( fTrackEffTestNScinPlanes == 4 ) ){
    if ( TMath::Abs( fSweet1XScin - fSweet2XScin ) > 3 )
      fGoodScinHits = 0;
    if ( TMath::Abs( fSweet1YScin - fSweet2YScin ) > 2 )
      fGoodScinHits = 0;
  }
//
}
//_____________________________________________________________________________
Int_t THcHodoscope::FineProcess( TClonesArray&  tracks  )
{
  Int_t Ntracks = tracks.GetLast()+1;   // Number of reconstructed tracks
  Double_t hitPos;
  Double_t hitDistance;
  Int_t ih=0;
  for (Int_t itrk=0; itrk<Ntracks; itrk++) {
    THaTrack* theTrack = static_cast<THaTrack*>( tracks[itrk] );
    if (theTrack->GetIndex()==0) {
      fBeta=theTrack->GetBeta();
      fFPTimeAll=theTrack->GetFPTime();
      Double_t shower_track_enorm = theTrack->GetEnergy()/theTrack->GetP();
      for (Int_t ip = 0; ip < fNumPlanesBetaCalc; ip++ ){
        Double_t pl_xypos=0;
        Double_t pl_zpos=0;
        Int_t   num_good_pad=0;
        TClonesArray* hodoHits = fPlanes[ip]->GetHits();
        for (Int_t iphit = 0; iphit < fPlanes[ip]->GetNScinHits(); iphit++ ){
          THcHodoHit *hit = fTOFPInfo[ih].hit;
          if ( fTOFCalc[ih].good_tdc_pos && fTOFCalc[ih].good_tdc_neg ) {
            Bool_t sh_pid=(shower_track_enorm > fTOFCalib_shtrk_lo && shower_track_enorm < fTOFCalib_shtrk_hi);
            Bool_t beta_pid=( fBeta > fTOFCalib_beta_lo &&  fBeta < fTOFCalib_beta_hi);
            // cer_pid is true if there is no Cherenkov detector
            Bool_t cer_pid=(fCherenkov?(fCherenkov->GetCerNPE()>fTOFCalib_cer_lo):kTRUE);
            if(fDumpTOF && Ntracks==1 && fGoodEventTOFCalib && sh_pid && beta_pid && cer_pid) {
              fDumpOut << fixed << setprecision(2);
              fDumpOut  << showpoint << " 1" << setw(3) << ip+1 << setw(3) << hit->GetPaddleNumber()  << setw(10) << hit->GetPosTDC()*fScinTdcToTime  << setw(10) << fTOFPInfo[ih].pathp << setw(10) << fTOFPInfo[ih].zcor  << setw(10) << fTOFPInfo[ih].time_pos << setw(10) << hit->GetPosADC() << endl;
              fDumpOut  << showpoint << " 2" << setw(3) << ip+1 << setw(3) << hit->GetPaddleNumber() << setw(10) << hit->GetNegTDC()*fScinTdcToTime  << setw(10) << fTOFPInfo[ih].pathn << setw(10) << fTOFPInfo[ih].zcor  << setw(10) << fTOFPInfo[ih].time_neg << setw(10) << hit->GetNegADC() << endl;
            }
            Int_t padind = ((THcHodoHit*)hodoHits->At(iphit))->GetPaddleNumber()-1;
            pl_xypos+=fPlanes[ip]->GetPosCenter(padind)+ fPlanes[ip]->GetPosOffset();
            pl_zpos+=fPlanes[ip]->GetZpos()+ (padind%2)*fPlanes[ip]->GetDzpos();
            num_good_pad++; 
          } 
          ih++;
          //      cout << ip << " " << iphit << " " <<  fGoodFlags[itrk][ip][iphit].goodScinTime << " " <<   fGoodFlags[itrk][ip][iphit].goodTdcPos << " " << fGoodFlags[itrk][ip][iphit].goodTdcNeg << endl;
        }
        hitDistance=kBig;
        if (num_good_pad !=0 ) {
          pl_xypos=pl_xypos/num_good_pad;
          pl_zpos=pl_zpos/num_good_pad;
          hitPos = theTrack->GetY() + theTrack->GetPhi()*pl_zpos ;
          if (ip%2 == 0)  hitPos = theTrack->GetX() + theTrack->GetTheta()*pl_zpos ;
          hitDistance =  hitPos - pl_xypos;
          fPlanes[ip]->SetTrackXPosition(theTrack->GetX() + theTrack->GetTheta()*pl_zpos );
          fPlanes[ip]->SetTrackYPosition(theTrack->GetY() + theTrack->GetPhi()*pl_zpos );
        }
        //      cout << " ip " << ip << " " << hitPos << " " << pl_xypos << " " << pl_zpos << " " <<  hitDistance << endl;
        fPlanes[ip]->SetHitDistance(hitDistance);
      }
      if(ih>0&&fDumpTOF && Ntracks==1 && fGoodEventTOFCalib && shower_track_enorm > fTOFCalib_shtrk_lo && shower_track_enorm < fTOFCalib_shtrk_hi ) {
        fDumpOut << "0 "  << endl;
      }
    }
  }     //over tracks
  //
  return 0;
}
//_____________________________________________________________________________
Int_t THcHodoscope::GetScinIndex( Int_t nPlane, Int_t nPaddle ) {
  // GN: Return the index of a scintillator given the plane # and the paddle #
  // This assumes that both planes and
  // paddles start counting from 0!
  // Result also counts from 0.
  return fNPlanes*nPaddle+nPlane;
}
//_____________________________________________________________________________
Int_t THcHodoscope::GetScinIndex( Int_t nSide, Int_t nPlane, Int_t nPaddle ) {
  return nSide*fMaxHodoScin+fNPlanes*nPaddle+nPlane-1;
}
//_____________________________________________________________________________
Double_t THcHodoscope::GetPathLengthCentral() {
  return fPathLengthCentral;
}

//_____________________________________________________________________________
Int_t THcHodoscope::End(THaRunBase* run)
{
  MissReport(Form("%s.%s", GetApparatus()->GetName(), GetName()));
  return 0;
}
ClassImp(THcHodoscope)