Conversion of light ion codes (d,t, h3, alpha) to internal fluka id added.

diff --git a/TFluka/TFluka.cxx b/TFluka/TFluka.cxx
index ad17e759104e1022b6447cbabda39e41e5ab21d8..58d065736a6fe546213cd2ffc2ca6176ff3028e5 100644 (file)
--- a/TFluka/TFluka.cxx
+++ b/TFluka/TFluka.cxx
@@ -1025,11 +1025,16 @@ Int_t TFluka::GetDummyLattice() const
 //_____________________________________________________________________________
 Int_t TFluka::IdFromPDG(Int_t pdg) const 
 {
+
     //
     // Return Fluka code from PDG and pseudo ENDF code
-    
+    Int_t idSpecial[4] = {GetIonPdg(2,4), GetIonPdg(2, 3), GetIonPdg(1,3), GetIonPdg(1,2)};    
     // Catch the feedback photons
     if (pdg == 50000051) return (kFLUKAoptical);
+    for (Int_t i = 0; i < 4; i++) {
+       if (pdg == idSpecial[i]) return (i + kFLUKAcodemin);
+    }
+    
     // MCIHAD() goes from pdg to fluka internal.
     Int_t intfluka = mcihad(pdg);
     // KPTOIP array goes from internal to official