+#if 0
+ ; // This is here to keep Emacs for indenting the next line
+#endif
+
+
+//____________________________________________________________________
+Bool_t
+AliFMDv1::VMC2FMD(TLorentzVector& v, UShort_t& detector,
+ Char_t& ring, UShort_t& sector, UShort_t& strip) const
+{
+ // Convert VMC coordinates to detector coordinates
+ TVirtualMC* mc = TVirtualMC::GetMC();
+ AliFMDGeometry* fmd = AliFMDGeometry::Instance();
+
+ // Get track position
+ mc->TrackPosition(v);
+ Int_t moduleno; mc->CurrentVolOffID(fmd->GetModuleOff(), moduleno);
+ Int_t iring; mc->CurrentVolOffID(fmd->GetRingOff(), iring);
+ ring = Char_t(iring);
+ Int_t det; mc->CurrentVolOffID(fmd->GetDetectorOff(), det);
+ detector = det;
+
+
+ // Get the ring geometry
+ //Int_t nsec = fmd->GetDetector(detector)->GetRing(ring)->GetNSectors();
+ Int_t nstr = fmd->GetDetector(detector)->GetRing(ring)->GetNStrips();
+ Double_t lowr = fmd->GetDetector(detector)->GetRing(ring)->GetMinR();
+ Double_t theta = fmd->GetDetector(detector)->GetRing(ring)->GetTheta();
+ Double_t pitch = fmd->GetDetector(detector)->GetRing(ring)->GetPitch();
+
+ // Figure out the strip number
+ Double_t r = TMath::Sqrt(v.X() * v.X() + v.Y() * v.Y());
+ Int_t str = Int_t((r - lowr) / pitch);
+ if (str < 0 || str >= nstr) return kFALSE;
+ strip = str;
+
+ // Figure out the sector number
+ Double_t phi = TMath::ATan2(v.Y(), v.X()) * 180. / TMath::Pi();
+ if (phi < 0) phi = 360. + phi;
+ Double_t t = phi - 2 * moduleno * theta;
+ sector = 2 * moduleno;
+ if (t < 0 || t > 2 * theta) return kFALSE;
+ else if (t > theta) sector += 1;
+
+ AliFMDDebug(40, ("<1> Inside an active FMD volume FMD%d%c[%2d,%3d] %s",
+ detector, ring, sector, strip, mc->CurrentVolPath()));
+ return kTRUE;
+}
+
+//____________________________________________________________________
+Bool_t
+AliFMDv1::VMC2FMD(Int_t copy, TLorentzVector& v,
+ UShort_t& detector, Char_t& ring,
+ UShort_t& sector, UShort_t& strip) const
+{
+ // Convert VMC coordinates to detector coordinates
+ TVirtualMC* mc = TVirtualMC::GetMC();
+ AliFMDGeometry* fmd = AliFMDGeometry::Instance();
+
+ strip = copy - 1;
+ Int_t sectordiv; mc->CurrentVolOffID(fmd->GetSectorOff(), sectordiv);
+ if (fmd->GetModuleOff() >= 0) {
+ Int_t module; mc->CurrentVolOffID(fmd->GetModuleOff(), module);
+ sector = 2 * module + sectordiv;
+ }
+ else
+ sector = sectordiv;
+ AliFMDDebug(30, ("Getting ring volume with offset %d -> %s",
+ fmd->GetRingOff(),
+ mc->CurrentVolOffName(fmd->GetRingOff())));
+ Int_t iring; mc->CurrentVolOffID(fmd->GetRingOff(), iring);
+ ring = Char_t(iring);
+ Int_t det; mc->CurrentVolOffID(fmd->GetDetectorOff(), det);
+ detector = det;
+
+ //Double_t rz = fmd->GetDetector(detector)->GetRingZ(ring);
+ AliFMDDetector* gdet = fmd->GetDetector(detector);
+ AliFMDRing* gring = gdet->GetRing(ring);
+ if (!gring) {
+ AliFatal(Form("Ring %c not found (volume was %s at offset %d in path %s)",
+ ring,
+ mc->CurrentVolOffName(fmd->GetRingOff()),
+ fmd->GetRingOff(),
+ mc->CurrentVolPath()));
+ }
+ Int_t n = gring->GetNSectors();
+#if 0
+ if (rz < 0) {
+ Int_t s = ((n - sector + n / 2) % n) + 1;
+ AliFMDDebug(1, ("Recalculating sector to %d (=%d-%d+%d/2%%%d+1 z=%f)",
+ s, n, sector, n, n, rz));
+ sector = s;
+ }
+#endif
+ if (sector < 1 || sector > n) {
+ AliWarning(Form("sector # %d out of range (0-%d)", sector-1, n-1));
+ return kFALSE;
+ }
+ sector--;
+ // Get track position
+ mc->TrackPosition(v);
+ AliFMDDebug(40, ("<2> Inside an active FMD volume FMD%d%c[%2d,%3d] %s",
+ detector, ring, sector, strip, mc->CurrentVolPath()));
+
+ return kTRUE;
+}
+
+
+//____________________________________________________________________
+Bool_t
+AliFMDv1::CheckHit(Int_t trackno, Int_t pdg, Float_t absQ,
+ const TLorentzVector& p, Float_t edep) const
+{
+ // Check that a hit is good
+ if (AliLog::GetDebugLevel("FMD", "AliFMD") < 5) return kFALSE;
+ TVirtualMC* mc = TVirtualMC::GetMC();
+ Double_t mass = mc->TrackMass();
+ Double_t poverm = (mass == 0 ? 0 : p.P() / mass);
+
+ // This `if' is to debug abnormal energy depositions. We trigger on
+ // p/m approx larger than or equal to a MIP, and a large edep - more
+ // than 1 keV - a MIP is 100 eV.
+ if (!(edep > absQ * absQ && poverm > 1)) return kFALSE;
+
+ TArrayI procs;
+ mc->StepProcesses(procs);
+ TString processes;
+ for (Int_t ip = 0; ip < procs.fN; ip++) {
+ if (ip != 0) processes.Append(",");
+ processes.Append(TMCProcessName[procs.fArray[ip]]);
+ }
+ TDatabasePDG* pdgDB = TDatabasePDG::Instance();
+ TParticlePDG* particleType = pdgDB->GetParticle(pdg);
+ TString pname(particleType ? particleType->GetName() : "???");
+ TString what;
+ if (mc->IsTrackEntering()) what.Append("entering ");
+ if (mc->IsTrackExiting()) what.Append("exiting ");
+ if (mc->IsTrackInside()) what.Append("inside ");
+ if (mc->IsTrackDisappeared()) what.Append("disappeared ");
+ if (mc->IsTrackStop()) what.Append("stopped ");
+ if (mc->IsNewTrack()) what.Append("new ");
+ if (mc->IsTrackAlive()) what.Append("alive ");
+ if (mc->IsTrackOut()) what.Append("out ");
+
+ Int_t mother = gAlice->GetMCApp()->GetPrimary(trackno);
+ AliFMDDebug(15, ("Track # %5d deposits a lot of energy\n"
+ " Volume: %s\n"
+ " Momentum: (%7.4f,%7.4f,%7.4f)\n"
+ " PDG: %d (%s)\n"
+ " Edep: %-14.7f keV (mother %d)\n"
+ " p/m: %-7.4f/%-7.4f = %-14.7f\n"
+ " Processes: %s\n"
+ " What: %s\n",
+ trackno, mc->CurrentVolPath(), p.X(), p.Y(), p.Z(),
+ pdg, pname.Data(), edep, mother, p.P(), mass,
+ poverm, processes.Data(), what.Data()));
+ return kTRUE;
+}