G4Quasmon.cc

Go to the documentation of this file.

//
// ********************************************************************
// * License and Disclaimer                                           *
// *                                                                  *
// * The  Geant4 software  is  copyright of the Copyright Holders  of *
// * the Geant4 Collaboration.  It is provided  under  the terms  and *
// * conditions of the Geant4 Software License,  included in the file *
// * LICENSE and available at  http://cern.ch/geant4/license .  These *
// * include a list of copyright holders.                             *
// *                                                                  *
// * Neither the authors of this software system, nor their employing *
// * institutes,nor the agencies providing financial support for this *
// * work  make  any representation or  warranty, express or implied, *
// * regarding  this  software system or assume any liability for its *
// * use.  Please see the license in the file  LICENSE  and URL above *
// * for the full disclaimer and the limitation of liability.         *
// *                                                                  *
// * This  code  implementation is the result of  the  scientific and *
// * technical work of the GEANT4 collaboration.                      *
// * By using,  copying,  modifying or  distributing the software (or *
// * any work based  on the software)  you  agree  to acknowledge its *
// * use  in  resulting  scientific  publications,  and indicate your *
// * acceptance of all terms of the Geant4 Software license.          *
// ********************************************************************
//
//       1         2         3         4         5         6         7         8         9
//34567890123456789012345678901234567890123456789012345678901234567890123456789012345678901
//
//
// $Id$
//
//      ---------------- G4Quasmon ----------------
//             by Mikhail Kossov, July 1999.
//  class for an excited hadronic state used by the CHIPS Model
// ---------------------------------------------------------------------------
// Short description: The Quasmon is the main object of the CHIPS model, where
// hadronic states are defined by the quark content and the 4-momentum (mass).
// In this sense a Quasmon is a generalised hadron - hadrons are the low
// mass discrete states of quasmons. Here the hadron can be not only an
// elementary particle, consisting of   2 or 3 quarks, but a nucleonic
// cluster, consisting of 6, 9, ... , 3n, ... quarks. In the CHIPS model
// the nucleus is considered as a group of the nucleons and the nucleonic
// clusters. In hadronic reactions a Quasmon is constructed in vacuum as
// a result of the collision (G4QCollision process). In this case only
// the G4Quasmon class can be used for the reaction. In nuclear reactions
// one or a few Quasmons can be created as a result of the colision of
// the projectile hadrons with the nucleons and the nucleonic clusters
// of the nuclear target. In this case the Quasmons are created and
// fragmented in the nuclear environment (G4QNucleus) and the G4QEnvironment
// class must be used for the reaction. For nuclear-nuclear reactions
// two G4QEnvironments are used with the common (which can fragment in both
// nuclear environments - mostly at low energies), individual (which can
// fragment in only one of two G4QEnvironments) and vacuum (which can
// fragment in vacuum being too far by rapidity from both nuclei) Quasmons.
// --------------------------------------------------------------------------
//
//#define debug
//#define pdebug
//#define pardeb
//#define psdebug
//#define rdebug
//#define ppdebug
//#define chdebug
//#define tdebug
//#define sdebug
#include <cmath>
#include <cstdlib>

#include "G4Quasmon.hh"
#include "G4SystemOfUnits.hh"

using namespace std;

G4Quasmon::G4Quasmon(G4QContent qQCont, G4LorentzVector q4M, G4LorentzVector ph4M)
 : q4Mom(q4M), valQ(qQCont), theWorld(0), phot4M(ph4M), f2all(0), rEP(0.), rMo(0.)
{
#ifdef debug
  G4cout<<"G4Quasmon:Constructor:QC="<<qQCont<<",Q4M="<<q4M<<",photonE="<<ph4M.e()<<G4endl;
#endif
#ifdef pardeb
  G4cout<<"**>G4Q:Con:(1),T="<<Temperature<<",S="<<SSin2Gluons<<",E="<<EtaEtaprime<<G4endl;
#endif
  if(phot4M.e()>0.) q4Mom+=phot4M; // InCaseOf CaptureByQuark it will be subtracted back
  valQ.DecQAQ(-1);
  status=4;                                   
}

G4Quasmon::G4Quasmon(const G4Quasmon& right):  totMass(0), bEn(0), mbEn(0)
{
  q4Mom                 = right.q4Mom;
  valQ                  = right.valQ;
  //theEnvironment        = right.theEnvironment;
  status                = right.status;
  //theQHadrons (Vector)
  G4int nQH             = right.theQHadrons.size();
  if(nQH) for(G4int ih=0; ih<nQH; ih++)
  {
    G4QHadron* curQH    = new G4QHadron(right.theQHadrons[ih]);
    theQHadrons.push_back(curQH);
  }
  theWorld              = right.theWorld;
  phot4M                = right.phot4M;
  nBarClust             = right.nBarClust;
  nOfQ                  = right.nOfQ;
  //theQCandidates (Vector)
  G4int nQC             = right.theQCandidates.size();
  if(nQC) for(G4int iq=0; iq<nQC; iq++)
  {
    G4QCandidate* curQC = new G4QCandidate(right.theQCandidates[iq]);
    theQCandidates.push_back(curQC);
  }
  f2all                 = right.f2all;
  rEP                   = right.rEP;
  rMo                   = right.rMo;
}

G4Quasmon::G4Quasmon(G4Quasmon* right):  totMass(0), bEn(0), mbEn(0)
{
#ifdef sdebug
  G4cout<<"G4Quasmon::Copy-Constructor: ***CALLED*** E="<<right->theEnvironment<<G4endl;
#endif
  q4Mom                 = right->q4Mom;
  valQ                  = right->valQ;
  //theEnvironment        = right->theEnvironment;
  status                = right->status;
  //theQHadrons (Vector)
  G4int nQH             = right->theQHadrons.size();
#ifdef sdebug
  G4cout<<"G4Quasmon::Copy-Constructor:nQH="<<nQH<<G4endl;
#endif
  if(nQH) for(G4int ih=0; ih<nQH; ih++)
  {
#ifdef debug
    G4cout<<"G4Quasmon:Copy-Constructor:H#"<<ih<<",QH="<<right->theQHadrons[ih]<<G4endl;
#endif
    G4QHadron* curQH    = new G4QHadron(right->theQHadrons[ih]);
    theQHadrons.push_back(curQH);
  }
  theWorld              = right->theWorld;
  phot4M                = right->phot4M;
  nBarClust             = right->nBarClust;
  nOfQ                  = right->nOfQ;
  //theQCandidates (Vector)
  G4int nQC             = right->theQCandidates.size();
#ifdef sdebug
  G4cout<<"G4Quasmon:Copy-Constructor: nCand="<<nQC<<G4endl;
#endif
  if(nQC) for(G4int iq=0; iq<nQC; iq++)
  {
#ifdef sdebug
    G4cout<<"G4Quasmon:Copy-Constructor:C#"<<iq<<",QC="<<right->theQCandidates[iq]<<G4endl;
#endif
    G4QCandidate* curQC = new G4QCandidate(right->theQCandidates[iq]);
    theQCandidates.push_back(curQC);
  }
  f2all                 = right->f2all;
  rEP                   = right->rEP;
  rMo                   = right->rMo;
#ifdef sdebug
  G4cout<<"G4Quasmon:Copy-Constructor: >->-> DONE <-<-<"<<G4endl;
#endif
}

G4Quasmon::~G4Quasmon()
{
#ifdef sdebug
  G4cout<<"G4Quasmon::Destructor before theQCandidates delete"<<G4endl;
#endif
  for_each(theQCandidates.begin(), theQCandidates.end(), DeleteQCandidate());
#ifdef sdebug
  G4cout<<"G4Quasmon::Destructor before theQHadrons"<<G4endl;
#endif
  for_each(theQHadrons.begin(), theQHadrons.end(), DeleteQHadron());
#ifdef sdebug
  G4cout<<"G4Quasmon::Destructor === DONE ==="<<G4endl;
#endif
}

G4double G4Quasmon::Temperature=180.;  
G4double G4Quasmon::SSin2Gluons=0.1;  
G4double G4Quasmon::EtaEtaprime=0.3;
G4bool   G4Quasmon::WeakDecays=false;   // Flag for WeakDecays(notUsed hadwaredClosed)
G4bool   G4Quasmon::ElMaDecays=true;    // Flag for Electromagnetic decays of hadrons

// Open decay of particles with possible electromagnetic channels of decay (gammas)
void G4Quasmon::OpenElectromagneticDecays(){ElMaDecays=true;}

// Close decay of particles with possible electromagnetic channels of decay (gammas)
void G4Quasmon::CloseElectromagneticDecays(){ElMaDecays=false;}

// Fill the private static parameters
void G4Quasmon::SetParameters(G4double temperature, G4double ssin2g, G4double etaetap)
{
  Temperature=temperature;
  SSin2Gluons=ssin2g;
  EtaEtaprime=etaetap;
}
void G4Quasmon::SetTemper(G4double temperature) {Temperature=temperature;}
void G4Quasmon::SetSOverU(G4double ssin2g)      {SSin2Gluons=ssin2g;}
void G4Quasmon::SetEtaSup(G4double etaetap)     {EtaEtaprime=etaetap;}

const G4Quasmon& G4Quasmon::operator=(const G4Quasmon& right)
{
  if(this != &right)                          // Beware of self assignment
  {
    q4Mom                 = right.q4Mom;
    valQ                  = right.valQ;
    //theEnvironment        = right.theEnvironment;
    status                = right.status;
    //theQHadrons (Vector)
    G4int iQH             = theQHadrons.size();
    if(iQH) for(G4int jh=0; jh<iQH; jh++) delete theQHadrons[jh];
    theQHadrons.clear();
    G4int nQH             = right.theQHadrons.size();
    if(nQH) for(G4int ih=0; ih<nQH; ih++)
    {
      G4QHadron* curQH    = new G4QHadron(right.theQHadrons[ih]);
      theQHadrons.push_back(curQH);
    }
    theWorld              = right.theWorld;
    phot4M                = right.phot4M;
    nBarClust             = right.nBarClust;
    nOfQ                  = right.nOfQ;
    //theQCandidates (Vector)
    G4int iQC             = theQCandidates.size();
    if(iQC) for(G4int jq=0; jq<iQC; jq++) delete theQCandidates[jq];
    theQCandidates.clear();
    G4int nQC             = right.theQCandidates.size();
    if(nQC) for(G4int iq=0; iq<nQC; iq++)
    {
      G4QCandidate* curQC = new G4QCandidate(right.theQCandidates[iq]);
      theQCandidates.push_back(curQC);
    }
    f2all                 = right.f2all;
    rEP                   = right.rEP;
    rMo                   = right.rMo;
  }
  return *this;
} // End of "="

// Fragmentation of the Quasmon (the main member function)
G4QHadronVector G4Quasmon::HadronizeQuasmon(G4QNucleus& qEnv, G4int nQuasms)
{
  static const G4int NUCPDG  = 90000000;
  static const G4int MINPDG  = 80000000;
  static const G4double np   = 1877.9;       //@@ temporary = a mass of np pair > m_n + m_p
  static const G4double BIG  = 1000000.;
  static const G4double BIG2 = BIG*BIG;
  static const G4QContent neutQC(2,1,0,0,0,0);
  static const G4QContent protQC(1,2,0,0,0,0);
  static const G4QContent lambQC(1,1,1,0,0,0);
  static const G4QContent PiQC(0,1,0,1,0,0);
  static const G4QContent PiMQC(1,0,0,0,1,0);
  static const G4QContent Pi0QC(0,1,0,0,1,0);
  static const G4QContent K0QC(1,0,0,0,0,1);
  static const G4QContent KpQC(0,1,0,0,0,1);
  static const G4QContent zeroQC(0,0,0,0,0,0);
  //static const G4QContent AlphQC(6,6,0,0,0,0); // ** Temporary ** for Enhancement Attempt
  static const G4LorentzVector zeroLV(0.,0.,0.,0.);
  static const G4QNucleus vacuum= G4QNucleus(zeroLV,NUCPDG);
  static const G4double mDeut= G4QPDGCode(2112).GetNuclMass(1,1,0);
  static const G4double mTrit= G4QPDGCode(2112).GetNuclMass(1,2,0);
  static const G4double mHel3= G4QPDGCode(2112).GetNuclMass(2,1,0);
  static const G4double mAlph= G4QPDGCode(2112).GetNuclMass(2,2,0);
  static const G4double mNeut= G4QPDGCode(2112).GetMass();
  static const G4double mProt= G4QPDGCode(2212).GetMass();
  static const G4double mLamb= G4QPDGCode(3122).GetMass();
  static const G4double mPi  = G4QPDGCode(211).GetMass();
  static const G4double mPi0 = G4QPDGCode(111).GetMass();
  static const G4double mK   = G4QPDGCode(321).GetMass();
  static const G4double mK0  = G4QPDGCode(311).GetMass();
  static const G4double mEta = G4QPDGCode(221).GetMass();
  static const G4double mEtaP= G4QPDGCode(331).GetMass();
  static const G4double diPiM= mPi0 + mPi0;
  static const G4double PiNM = mPi + mNeut;
  static const G4double mPi02= mPi0* mPi0;
  static const G4double mP2  = mProt*mProt;
  static const G4double eps = 0.003;          // 3keV cut to split instead of decay
  G4double momPhoton=phot4M.rho();
  G4double addPhoton=phot4M.e();
#ifdef debug
  G4cout<<"G4Quasmon::HadrQ:*==>>START QUASMON HADRONIZATION<<==*, aP="<<addPhoton<<",Env="
        <<qEnv<<qEnv.GetProbability()<<", #ofQuasms="<<nQuasms<<G4endl;
#endif
  G4bool first=false;
  if(nQuasms<0)
  {
    if(nQuasms==-1) first=true;
    else G4cout<<"G4Quasmon::HadrQ: Negative #of Quasmons n="<<nQuasms<<G4endl;
    nQuasms=-nQuasms;
  }
  G4bool piF = false;                         // FirstFragmentationFlag for PiCaptureAtRest
  G4bool gaF = false;                         // FirstFragmentationFlag for GammaNucleus
  if(addPhoton<0.)                            // "PionCapture at rest" case
  {
#ifdef debug
    G4cout<<"G4Q::HQ: PionAtRest, addP="<<addPhoton<<", momP="<<momPhoton<<G4endl;
#endif
    addPhoton=0.;
    momPhoton=0.;
    piF=true;
  }
  else if(addPhoton>0.) gaF=true;
  theEnvironment=qEnv;                         // NuclearEnvironment of Quasmon is defined
#ifdef debug
  G4cout<<"G4Quasmon::HadrQ:Env="<<theEnvironment<<theEnvironment.GetProbability()<<G4endl;
#endif
  // >> Now all possible candidates for hadronization are defined and initialized
  theWorld= G4QCHIPSWorld::Get();  // Get a pointer to the CHIPS World
  G4int nP= theWorld->GetQPEntries(); // A#of initialized particles in CHIPS World
  //@@ Make special parametyer to cut high resonances for nuclear fragmentation !!
  G4int          nMesons  = G4QNucleus().GetNDefMesonC();
#ifdef debug
  G4cout<<"G4Quasmon::HadrQ:CHIPSWorld initialized with nP="<<nP<<",nM="<<nMesons<<G4endl;
#endif
  if     (nP<34) nMesons  =  9; // @@ Only for hadronic, not nuclear reactions (?)
  else if(nP<51) nMesons  = 18; // @@ Only for hadronic, not nuclear reactions (?)
  else if(nP<65) nMesons  = 27; // @@ Only for hadronic, not nuclear reactions (?)
  else if(nP<82) nMesons  = 36; // @@ Only for hadronic, not nuclear reactions (?)
  G4int          nBaryons = G4QNucleus().GetNDefBaryonC();
  if     (nP<45) nBaryons = 16; // @@ Only for hadronic, not nuclear reactions (?)
  else if(nP<59) nBaryons = 36; // @@ Only for hadronic, not nuclear reactions (?)
  else if(nP<76) nBaryons = 52; // @@ Only for hadronic, not nuclear reactions (?)
  G4int          nClusters= nP-G4QPDGCode().GetNQHadr(); // "+Leptons/Isobars/Hyperons"
#ifdef debug
  G4cout<<"G4Quasmon:HadrQ: Init Candidates:"<<theEnvironment<<",n="<<theQCandidates.size()
        <<",nMesons="<<nMesons<<",nBaryons="<<nBaryons<<",nClusters="<<nClusters<<G4endl;
#endif
  theEnvironment.InitCandidateVector(theQCandidates,nMesons,nBaryons,nClusters);
#ifdef debug
  G4cout<<"G4Quasmon:HadrQ:CandidatesAreInitialized,n="<<theQCandidates.size()<<",nMesons="
        <<nMesons<<", nBaryons="<<nBaryons<<", nClusters="<<nClusters<<G4endl;
#endif
  if(!status||q4Mom==zeroLV)               // This Quasmon is done (Sould not be here)
  {
#ifdef debug
    G4cout<<"G4Q::HQ:NOTHING-TO-DO: Q4M="<<q4Mom<<", QEnv="<<theEnvironment<<G4endl;
#endif
    if(addPhoton)
    {
      G4ExceptionDescription ed;
      ed << "OverheadPhoton for theZeroQuasmon: Q4M=" << q4Mom << ",status="
         << status << ", phE=" << addPhoton << G4endl;
      G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0000", FatalException, ed);
    }
    KillQuasmon();                         // This Quasmon is done
    qEnv=theEnvironment;                   // Update QEnvironment
    return theQHadrons;
  }
  status=2;                                // Default flag Nothing is done (yet)
  G4int sPDG=0;                            // Prototype of PDG of a Selected Candidate
  G4int pPDG=NUCPDG;                       // ProtTemporary PDG Code of the Parent Cluster
  //G4bool fmh=false;                        // Flag of hadronization in nuclear matter
  G4double npqp2=0;                        // A#of quark-partons -2 in a selected fragment
  G4double sMass=0.;                       // Mass of selected candidate
  G4double sM2=0.;                         // Squared mass of selected candidate
  G4int    pBaryn=0;                       // Parent cluster'c Baryon Num for sel.fragment
  G4double dMass=0.;                       // E/N Mass difference for BoundedParentCluster
  G4double pMass=0.;                       // EnvirBoundedParentCluster Mass for sel.fragm
  G4double pNMass=0.;                      // NucleBoundedParentCluster Mass for sel.fragm
  G4double delta=0.;                       // Binding energy
  G4double deltaN=0.;                      // Binding energy in Total Nucleu
  G4double minT=0.;                        // MinimalMass of FreeResidualQuasmon
  G4double minSqT=0.;                      // MinimalSqMass of FreeResidualQuasmon
  G4double minSqB=0.;                      // MinimalSqMass of BoundedResidualQuasmon
  G4double minSqN=0.;                      // MinimalSqMass of ResidQuasm+ResidEnvironment
  G4double hili=0.;                        // High limit of quark exchange randomization
  G4double loli=0.;                        // Low limit of quark exchange randomization
  G4double tmpTM2=BIG2;                    // GSMass of TotalResidualNucleus for Fragment
  G4double reTNM2=0.;                      // Real mass of TotalResidNucleus for Fragment
  G4QContent curQ=zeroQC;                  // ProtTemporary copy of valQ to estimate MinM2
  G4QContent memQ=zeroQC;                  // ProtTemporary copy of valQ to remember state
  G4QContent pQC=zeroQC;                   // ProtTemporary Quark Content of ParentCluster
  G4QContent sQC=zeroQC;                   // ProtTemporary Quark Content of the fragment
  G4QContent transQC=zeroQC;               // ProtTemporary Quark Content of ExchangeMeson
  G4LorentzVector m4Mom=zeroLV;            // 4Momentum to memorize a Quasmon's 4-momentum
  G4LorentzVector kp4Mom=zeroLV;           // 4-mom prototype for kappa (recoil q)
  G4LorentzVector check=-theEnvironment.Get4Momentum()-q4Mom;//4Mom sum to check
  G4int ccheck=-theEnvironment.GetZ()-valQ.GetCharge();//To check charge conservation
#ifdef chdebug
  G4int cSum=-ccheck;                      // To check charge conservation with print
  G4QNucleus oldEnv(theEnvironment);       // To compare on the fragmentation step
  G4QContent oldCQC(valQ);                 // To compare on the fragmentation step
  G4int oldNH=theQHadrons.size();          // To compare on the fragmentation step
#endif
  G4bool start=true;
#ifdef debug
  G4cout<<"G4Q::HQ: Before the loop EnvPDG="<<theEnvironment.GetPDG()<<G4endl;
#endif
  while(theEnvironment.GetPDG()==NUCPDG || start)// **=TheMainLOOP(LOOP only forVacuum)=**
  {
#ifdef chdebug
    G4int ccSum=theEnvironment.GetZ()+valQ.GetCharge(); // To compare with initial charge
    G4int nHd=theQHadrons.size();
    if(nHd) for(int ih=0; ih<nHd; ih++) ccSum+=theQHadrons[ih]->GetCharge();
    if(ccSum!=cSum)
    {
      G4cerr<<"*G4Q::HQ:C"<<cSum<<",c="<<ccSum<<",E="<<theEnvironment<<",Q="<<valQ<<G4endl;
      G4cerr<<":G4Q::HQ:oldE="<<oldEnv<<"oldQ="<<oldCQC<<",oN="<<oldNH<<",N="<<nHd<<G4endl;
      if(nHd) for(int h=0; h<nHd; h++)
      {
        G4QHadron* cH = theQHadrons[h];
        G4cerr<<"::G4Q::HQ:#h"<<h<<",C="<<cH->GetCharge()<<",P="<<cH->GetPDGCode()<<G4endl;
      }
    }
    oldEnv=G4QNucleus(theEnvironment);     // To compare on the fragmentation step
    oldCQC=G4QContent(valQ);               // To compare on the fragmentation step
    oldNH=nHd;
#endif
    start=false;
    //G4bool   quexf=false;                  // Flag of successful quark exchange
    G4double qM2  = q4Mom.m2();            // Current squared mass of Quasmon
    G4double tmpEq=q4Mom.e();              // Energy of Quasmon
    G4double tmpPq=q4Mom.rho();            // Momentum of Quasmon
    if(fabs(qM2)<.0001 || tmpEq<=tmpPq)
    {
      qM2=0.;
      if(!valQ.GetCharge() && !valQ.GetBaryonNumber() && !valQ.GetStrangeness())
      {
        if(fabs(qM2)<.001)
        {
          q4Mom.setE(tmpPq);
#ifdef debug
          G4cout<<"G4Q::HQ:Quasmon is gamma, Q4M="<<q4Mom<<",E="<<theEnvironment<<G4endl;
#endif
          G4QHadron* gamH = new G4QHadron(22,q4Mom);
          FillHadronVector(gamH);          // Fill Moving Environment (delete equivalent)
          KillQuasmon();                   // This Quasmon is done
          qEnv=theEnvironment;             // Update QEnvironment
          return theQHadrons;              // The last decay of the quasmon... 
        }
        else if(tmpPq<.001)                // @@ Unprobable...
        {
#ifdef debug
          G4cout<<"G4Q::HQ:Quasmon is nothing, Q4M="<<q4Mom<<",E="<<theEnvironment<<G4endl;
#endif
          KillQuasmon();                   // This Quasmon is done
          qEnv=theEnvironment;             // Update QEnvironment
          return theQHadrons;              // The last act of the quasmon... 
        }
      }
      else q4Mom.setE(tmpPq*1.00001);      // @@ Can break E/p conservation
    }
    G4double quasM= sqrt(qM2);             // Current mass of Quasmon
    G4double qurF = quasM/(tmpEq-tmpPq);   // Factor for k Lorentz Transformation to LS
    G4ThreeVector qltb=q4Mom.boostVector();// Boost vector for backward Lor.Trans. to LS
#ifdef debug
    G4cout<<"G4Q::HQ: Quasm="<<q4Mom<<",qM="<<quasM<<",qQC="<<valQ<<G4endl;
#endif
    CalculateNumberOfQPartons(quasM);      // Fills PrivateParameter nOfQ (a#OfQPartonsInQ)
    //=-----------------------------=
    G4int envPDG=theEnvironment.GetPDG();  // PDGCode of the current Nuclear Environment
    G4int envN  =theEnvironment.GetN();    // N of the current Nuclear Environment
    G4int envZ  =theEnvironment.GetZ();    // Z of the current Nuclear Environment
    G4int envS  =theEnvironment.GetS();    // S of the current Nuclear Environment
    G4int envA  =theEnvironment.GetA();    // A of the current Nuclear Environment
    //G4int maxActEnv=4;   // n-Dod + p-Dod  // maxEnv.(in d) to compensate the Q recoilMom
    G4int maxActEnv=256; // n-Dod + p-Dod  // maxEnv.(in d) to compensate the Q recoilMom
    G4int dmaxActEnv=maxActEnv+maxActEnv;  // 2*maxEnv.(in d) to compensate the Q recoilMom
    //G4double fAE=static_cast<double>(maxActEnv);
    if(envA>dmaxActEnv)
    //if(2>3)                              // Corresponds to envA>256
    {
      //G4int oEn=static_cast<int>(fAE/sqrt(static_cast<double>(envA)));
      G4int zEn=maxActEnv;                 // Charge of the LimitActiveNuclearEnvironment
      G4int nEn=zEn;                       // Charge of the LimitActiveNuclearEnvironment
      bEn  = zEn+nEn;                      // BaryoN of the LimitActiveNuclearEnvironment
      mbEn = G4QPDGCode(2112).GetNuclMass(zEn,nEn,0); // Mass of the LimActNucEnv
      bEn4M=G4LorentzVector(0.,0.,0.,mbEn);// 4-momentum of the LimitActiveNuclearEnviron
      bEnQC=G4QContent(bEn+nEn,bEn+zEn,0,0,0,0); // QuarkContent of the LimitActiveNuclEnv
    }
    else                                   // @@ Can be made STATIC CONSTANTS
    {
      bEn   = 256;                         // BaryoN of the LimitActiveNuclearEnvironment
      mbEn  = G4QPDGCode(2112).GetNuclMass(128,128,0); // Mass of the LimActNucEnvironment
      bEn4M = G4LorentzVector(0.,0.,0.,mbEn); // 4-mom of the LimitActiveNuclearEnviron
      bEnQC = G4QContent(384,384,0,0,0,0); // QuarkContent of the LimitActiveNuclEnviron
    }
    G4double envM=theEnvironment.GetMass();// mass of the current Nuclear Environment
    G4QContent envQC=theEnvironment.GetQCZNS(); // QuarkContent of theCurrentNuclearEnviron
#ifdef debug
    G4cout<<"G4Q::HQ: ePDG="<<envPDG<<",eM="<<envM<<",eQC="<<envQC<<G4endl;
#endif
    G4QContent totQC=valQ+envQC;           // Total Quark Content
    G4int      totBN=totQC.GetBaryonNumber(); // Total Baryon Number of the Total System
    G4int      totS=totQC.GetStrangeness();// Total Strangeness of the Total System
    G4int      totZ=totQC.GetCharge();     // Total Charge of the Total System
    G4QNucleus totN(totQC);                // Pseudo nucleus for the Total System
    G4int      totNeut=totN.GetN();        // Total number of neutrons in the system
    G4double totM  =totN.GetMZNS();        // Minimum Mass of the Total System
#ifdef debug
    G4cout<<"G4Q::HQ: tN="<<totN<<",tGSM="<<totM<<",tQC="<<totQC<<G4endl;
#endif
#ifdef debug
    G4int    resNPDG=0;
    G4double resNM =10000000.;             // Prototype of residual mass after n separated
#endif
    if(totNeut>0)
    {
      G4QContent resNQC=totQC-G4QContent(2,1,0,0,0,0);
      G4QNucleus resNN(resNQC);
#ifdef debug
      resNM  = resNN.GetMZNS();
      resNPDG= resNN.GetPDG();
#endif
    }
    G4LorentzVector env4M =G4LorentzVector(0.,0.,0.,envM);
    G4LorentzVector tot4M =q4Mom+env4M;
    totMass=tot4M.m();
    G4int    totPDG=totN.GetPDG();         // Total PDG Code for the Current compound
#ifdef debug
    G4cout<<"G4Q::HQ: totPDG="<<totPDG<<",totM="<<totMass<<",rPDG="<<resNPDG<<G4endl;
#endif
    G4double totEn=tot4M.e();
    G4double totMo=tot4M.rho();
    if(totEn<totMo)
    {
      G4cerr<<"---Warning---G4Q::HQ: *Boost* tot4M="<<tot4M<<", E-p="<<totEn-totMo<<G4endl;
      G4double accuracy=.000001*totMo;
      G4double emodif=fabs(totEn-totMo);
      //if(emodif<accuracy)
      //{
        G4cerr<<"G4Q::HQ: *Boost* E-p shift  is corrected to "<<emodif<<G4endl;
        tot4M.setE(totMo+emodif+.01*accuracy);
      //}
    }
    G4ThreeVector totBoost = tot4M.boostVector(); // BoostVector for TotalSystem (backward)
    G4ThreeVector totRBoost= -totBoost;   // Boost vector for Total System (forward)
    G4int    iniPDG =valQ.GetSPDGCode();
    G4int    iniBN  =valQ.GetBaryonNumber();
    G4int    iniQChg=valQ.GetCharge();
    G4int    iniN   =valQ.GetN();
    G4int    iniP   =valQ.GetP();
    G4int    iniS   =valQ.GetL();
#ifdef debug
    G4cout<<"G4Q::HQ: iniPDG="<<iniPDG<<", Z="<<iniP<<", N="<<iniN<<", S="<<iniS<<G4endl;
#endif
    G4QNucleus iniRN(iniP,iniN-1,iniS);
    G4double iniQM =G4QPDGCode(iniPDG).GetMass();  // Minimum mass of Quasmon
#ifdef debug
    G4double iniRM = iniRN.GetMZNS();     // Mass of Residual Quasmon when neutron is rad
    if(iniBN<2||envA>0) iniRM=0.;
    G4cout<<"G4Q::HQ: iniRN="<<iniRN<<", iniRM="<<iniRM<<", iniQM="<<iniQM<<G4endl;
#endif
    G4double excE = totMass-totM;
#ifdef debug
    G4double bndQM = totM-envM;
    if(envPDG==NUCPDG) bndQM=iniQM;
    G4double bndQM2= bndQM*bndQM;
    G4double quen  = iniQM+envM;
    G4cout<<"G4Q::HQ:mQ="<<quasM<<valQ<<bndQM2<<",nQ="<<nOfQ<<",Env="<<envM
          <<envQC<<",Q+E="<<quen<<",tM="<<totPDG<<totQC<<totM<<"<"<<totMass<<G4endl;
#endif
    G4int tQ    = valQ.GetTot();          // Total number of quarks for current Quasmon
    G4int bQ    = abs(valQ.GetBaryonNumber()); // Baryon number of the current Quasmon
    G4QContent cQ = valQ;                 // Temporary copy of Quasmon QC
    G4int   s_value   = 4;                      // Mesonic
    if (bQ) s_value   = 3*bQ + 2;               // Barionic
    if (tQ> s_value) cQ.DecQAQ((tQ-s_value)/2); // Reduce QC to minimum QC
#ifdef debug
    G4int rsPDG = cQ.GetSPDGCode();       // PDG for the lowest residual Quasmon state
    G4cout<<"G4Q::HQ:eN="<<envN<<",eZ="<<envZ<<",Q="<<rsPDG<<cQ<<",piF="<<piF<<",gaF="<<gaF
         <<G4endl;
#endif
    theEnvironment.UpdateClusters(false); // New A-clusters are calculated
    //theEnvironment.PrepareCandidates(theQCandidates,false,false);//Calc.PrePreprob's of C
    //G4bool fF=piF||gaF;
    // piF,piF or gaF,gaF is correct. Made to avoid theSpecificInteractionTimeClusterChoice
    theEnvironment.PrepareCandidates(theQCandidates,piF,piF);// Calc.PrePreprob of Candid's
    ModifyInMatterCandidates();           // Calculate InMediaMasses of Cand. & Possibil.
    G4double kMom = 0.;                   // Energy of primary qParton in Q-CMS
    G4double minK = 0.;                   // k_min for randomization
    G4double maxK = quasM/2.;             // k_max for randomization
    G4double kLS  = 0;                    // Energy of primary qParton in LS
    G4double cost = 0.;                   // Cos(theta) of k in QS InRespecTo Q direction
    G4bool   kCond = true;                // k choice condition
    G4bool   qCond = true;                // q choice condition
    G4bool   pCond = true;                // Not adoptable parent cluster choice condition
    G4bool   fskip=false;                 // Flag to skip when sucked
    //G4bool   fred =false;                 // Flag of Environment reduction
    //G4bool   ffdc =true;                  // Flag of not successful decay in fragment
    G4LorentzVector k4Mom=zeroLV;         // 4-momentum prototype for k
    G4LorentzVector cr4Mom=zeroLV;        // 4-momentum prototype for the ColResQuasmon
    G4int kCount =0;                      // Counter of attempts of k for hadronization
    //
    //G4int qCountMax=27;                   // Try different q to come over CoulBar or SepE
    //G4int qCountMax=12;                   // Try different q to come over CoulBar or SepE
    //G4int qCountMax=9;                    // Try different q to come over CoulBar or SepE
    //G4int qCountMax=3;                    // Try different q to come over CoulBar or SepE
    G4int qCountMax=1;                    // Try different q to come over CoulBar or SepE
    if(excE > diPiM) qCountMax=(G4int)(excE/mPi0); // Try more for big excess
    //
    //G4int kCountMax=27;
    //G4int kCountMax=9;
    //G4int kCountMax=3;                    // Try different k if they are below minK
    G4int kCountMax=1;                    // "No reson to increase it"
    //G4int kCountMax=qCountMax;            // "No reson to increase it"
    //G4int kCountMax=0;                    //@@ *** Close search for the minimum k ***
    //
    //G4int pCountMax=27;                   //Try differentHadrons(Parents) forBetterRecoil
    //G4int pCountMax=9;                    //Try differentHadrons(Parents) forBetterRecoil
    //G4int pCountMax=3;                    //Try differentHadrons(Parents) forBetterRecoil
    G4int pCountMax=1;                    //Try differentHadrons(Parents) forBetterRecoil
    //if(envA>0) pCountMax=3;
    if(envA>0&&envA<19) pCountMax=36/envA;
    //if(envA>0&&envA<31) pCountMax=60/envA;
    //if(envA>0&&envA<61) pCountMax=120/envA;
    G4bool gintFlag=false;                // Flag of gamma interaction with one quark
    while(kCount<kCountMax&&kCond)
    {
      kCond=true;
      G4double miM2=0.;
      if(envPDG==NUCPDG)
      {
        if(excE>mPi0) miM2=mPi02;
        else          miM2=mP2;
      }
      else                                // "Env. exists" case - find k_min & k_max
      {
        minK=100000.;
        // @@ ??? May be for the light nuclei ???
        //if(piF&&quasM>iniQM) maxK=mNeut/2.+(quasM-iniQM)*iniQM/(iniQM+mNeut);
        //else if(quasM>iniQM)
        //{
        //  G4double limK=envM/2.+(quasM-iniQM)*iniQM/(iniQM+envM);
        //  if(limK<maxK) maxK=limK;
        //}
        //@@*acceleration*: check only for P,N,d,& alpfa, can be done for all clusters(?)
        //if(iniN>0&&iniBN>1)               // "Neutron-hadron" estimate
        //{
        //  G4double iK=1000000.;
        //  G4double dqm=quasM+quasM;
        //  if(envA>0)
        //  {
        //    G4QContent rtQC=valQ-neutQC+envQC; // Total Residual Quark Content
        //    G4QNucleus rtN(rtQC);         // Create pseudo-nucleus for the TotalResidual
        //    G4double rtM =rtN.GetMZNS();  // Min Mass of total residual Nucleus
        //    G4double bnRQ=rtM-envM;       // Bound mass of residual Quasmon
        //    G4double sm2=qM2+m2N-bnRQ*bnRQ;
        //    G4double fqm=dqm+dqm;
        //    G4double aK=sm2/fqm;
#ifdef debug
        //    G4double kts=.135;            // Test value of k
        //    G4double dkts=kts+kts;
        //    G4double fu=dkts*(dkts*quasM-sm2)+quasM*m2N;
        //    G4cout<<"G4Q::HQ:M="<<quasM<<",R="<<bnRQ<<",f("<<kts<<")="<<fu<<"<0"<<G4endl;
#endif
        //    if(quasM>=mNeut+bnRQ)
        //    {
        //      G4double srm=sqrt(sm2*sm2-4.*qM2*m2N)/fqm;
        //      iK=aK-srm;
        //      aK+=srm;
        //    }
        //    else iK=aK;
        //    if(aK<maxK) maxK=aK;
        //  }
        //  else iK=mNeut*mNeut/(quasM+quasM);
        //  if(iK<minK) minK=iK;
        //}
        // =----------= From here the minK is calculated =----------------=
        envA=envZ+envN;
        G4int totN_value=totBN-totZ;
        if(totN_value>0&&totBN>1)               // "Neutron-cluster" estimate
        {
          G4QNucleus tmpNN(totZ,totN_value-1,0);
          G4double delN=tmpNN.GetMZNS()+mNeut-totM;
          if(envN>0&&envA>1)
          {
            G4QNucleus envNN(envZ,envN-1,0);
            G4double delEN=envNN.GetMZNS()+mNeut-envM;
            if(delEN>delN) delN=delEN;
          }
          delN*=qurF;
          if(delN<minK) minK=delN;
        }
        if(totZ>0&&totBN>1)               // "Proton-cluster" estimate
        {
          G4double proCB=theEnvironment.CoulombBarrier(1,1);
          G4QNucleus tmpPN(totZ-1,totN_value,0);
          G4double delP=tmpPN.GetMZNS()+mProt-totM+proCB;
          if(envZ>0&&envA>1)
          {
            G4QNucleus envPN(envZ-1,envN,0);
            G4double delEP=envPN.GetMZNS()+mProt-envM+proCB;
            if(delEP>delP) delP=delEP;
          }
          delP*=qurF;
          if(delP<minK) minK=delP;
        }
        if(totN_value>0&&totZ>0&&totBN>2)       // "Deuteron-cluster" estimate
        {
          G4double proCB=theEnvironment.CoulombBarrier(1,2);
          G4QNucleus tmpDN(totZ-1,totN_value-1,0);
          G4double delD=tmpDN.GetMZNS()+mDeut-totM+proCB;
          if(envN>0&&envZ>0&&envA>2)
          {
            G4QNucleus envDN(envZ-1,envN-1,0);
            G4double delED=envDN.GetMZNS()+mDeut-envM+proCB;
            if(delED>delD) delD=delED;
          }
          delD*=qurF;
          if(delD<minK) minK=delD;
        }
        if(totN_value>1&&totZ>0&&totBN>3)       // "Triton-cluster" estimate
        {
          G4double proCB=theEnvironment.CoulombBarrier(1,3);
          G4QNucleus tmpTN(totZ-1,totN_value-2,0);
          G4double delT=tmpTN.GetMZNS()+mTrit-totM+proCB;
          if(envN>1&&envZ>0&&envA>3)
          {
            G4QNucleus envTN(envZ-1,envN-2,0);
            G4double delET=envTN.GetMZNS()+mTrit-envM+proCB;
            if(delET>delT) delT=delET;
          }
          delT*=qurF;
          if(delT<minK) minK=delT;
        }
        if(totN_value>0&&totZ>1&&totBN>3)       // "He3-cluster" estimate
        {
          G4double proCB=theEnvironment.CoulombBarrier(2,3);
          G4QNucleus tmpRN(totZ-2,totN_value-1,0);
          G4double delR=tmpRN.GetMZNS()+mHel3-totM+proCB;
          if(envN>0&&envZ>1&&envA>3)
          {
            G4QNucleus envRN(envZ-2,envN-1,0);
            G4double delER=envRN.GetMZNS()+mHel3-envM+proCB;
            if(delER>delR) delR=delER;
          }
          delR*=qurF;
          if(delR<minK) minK=delR;
        }
        if(totN_value>1&&totZ>1&&totBN>4)        // "Alpha-cluster" estimate
        {
          G4double proCB=theEnvironment.CoulombBarrier(2,4);
          G4QNucleus tmpAN(totZ-2,totN_value-2,0);
          G4double delA=tmpAN.GetMZNS()+mAlph-totM+proCB;
          if(envN>1&&envZ>1&&envA>4)
          {
            G4QNucleus envAN(envZ-2,envN-2,0);
            G4double delEA=envAN.GetMZNS()+mAlph-envM+proCB;
            if(delEA>delA) delA=delEA;
          }
          delA*=qurF;
          if(delA*qurF<minK) minK=delA*qurF;
        }
        // @@ Limits from HigherClusters can be added for competition with ClustEvaporation
        //if(totN_value>2&&totZ>2&&totBN>6)        // "Li6-cluster" estimate ??????
        //{
        //  G4double proCB=theEnvironment.CoulombBarrier(3,6);
        //  G4QNucleus tmpLN(totZ-3,totN_value-3,0);
        //  G4double delL=tmpLN.GetMZNS()+mLit6-totM+proCB;
        //  if(envN>2&&envZ>2&&envA>6)
        //  {
        //    G4QNucleus envLN(envZ-3,envN-3,0);
        //    G4double delEL=envLN.GetMZNS()+mLit6-envM+proCB;
        //    if(delEL>delL) delL=delEL;
        //  }
        //  delL*=qurF;
        //  if(delL<minK) minK=delL;
        //}
        if(minK<0. || minK+minK > quasM) minK=0.;
      }
      //if(addPhoton>0.&&quasM<1500.&&G4UniformRand()<f2all)
      //if(addPhoton>0.&&iniBN<2)// PhotonAbsorbDiagramContrib(@@HiddenPar)
      //if(addPhoton>0.&&(G4UniformRand()<.7||iniBN<2))//PhotoAbsorbDiagramContrib
      //if(addPhoton>0.&&(G4UniformRand()<.5||iniBN<2))//PhotonAbsorbDiagramContrib
      //if(addPhoton>0.&&(G4UniformRand()<.27||iniBN<2))// PhotonAbsorbDiagramContrib
      //if(addPhoton>0.&&iniBN<2)// PhotonAbsorbDiagramContrib(@@HiddenPar)
      //if(addPhoton>0.&&iniBN>1)// PhotonAbsorbDiagramContrib(@@HiddenPar)
      //if(addPhoton>0.&&G4UniformRand()<0.5)// PhotonAbsorbDiagramContrib(@@HiddenPar)
      //if(addPhoton>0.&&G4UniformRand()<0.75)// PhotonAbsorbDiagramContrib(@@HiddenPar)
      //if(addPhoton>0.&&iniBN>1)//PhotonAbsorbDiagramContrib(Photon's captured by N quark)
      if(addPhoton>0.)// PhotonAbsorbDiagramContrib(Photon is always captured by quarks)
      //if(2>3)                              // Photon capture by quark is closed
      {
        //nOfQ=valQ.GetQ()-valQ.GetAQ();     // Recover nOfQ for the not excited cluster
        // @@ 1/(p_g,p_q) interaction probability (? (p_g,p_q)=0 always)
        gintFlag=true;
        q4Mom-= phot4M;                    // recover Quasmon-Cluster without the Photon
        qM2   = q4Mom.m2();                // Update the Current squared mass of Quasmon 
        quasM = sqrt(qM2);                 // Update the Current Mass of Quasmon 
        G4double kpow=static_cast<double>(nOfQ-2); // n-3+1 because of integration
        if(kpow<1.) kpow=1.;
        G4double xmi=(momPhoton-addPhoton)*quasM; // Minimum residual mass 2kM
        if(xmi<0.) xmi=0.;
        // While must be commented from here and down __________________________
        //G4bool frat=true;//[k/(k+p) factor of QuarkExch]*[p/k factor of fixed ct]=p/(p+k)
        //G4int cMax=27;//For m_gam=0:*[k/(k+p) factor 1/s{m<<k,s=m^2*(1+p/k)}]*[p/k(ct=0)]
        //G4int pCount=0;//For m_gam=0 the suppression factor can be p*p/(p+k)/(p+k) @@ (?)
        //while (frat && pCount<cMax)
        //{
        // ____ Keep this when closing while______________________________
        G4double rn=G4UniformRand(); // k is changed by addPhoton
        kMom=(1.-(1.-xmi)*pow(rn,1./kpow))*quasM/2; // 1/k from delta-funct integration
        // ----------
        G4double dkM=kMom+kMom;
        // p2+k2+2pkcost=(k+e)2
        //cost=(addPhoton*addPhoton-momPhoton*momPhoton+addPhoton*dkM)/momPhoton/dkM;
        G4double cor=200./dkM/addPhoton;
        G4double bas=std::log(2+cor);
        cost=1.-std::exp(bas-(bas-std::log(cor))*G4UniformRand());
        //cost=1.-2*G4UniformRand();
        // ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
        //  frat=G4UniformRand()>kMom/(addPhoton+kMom);
        //  //frat=G4UniformRand()>kMom*kMom/(addPhoton+kMom)/(addPhoton+kMom);
        //  //frat=G4UniformRand()>addPhoton/(addPhoton+kMom);
        //  //frat=G4UniformRand()>addPhoton*addPhoton/(addPhoton+kMom)/(addPhoton+kMom);
        //  pCount++;
        //}
        if(cost>1.) cost=1.;
        if(cost<-1.) cost=-1.;
#ifdef debug
        G4cout<<"G4Q::HQ:**PHOTON out of Q**k="<<kMom<<",ct="<<cost<<",QM="<<quasM<<G4endl;
#endif
        // @@ (?) Pseudo Fermi-mom correction (use lib function for the 3d randomization -*
        //G4double x = G4UniformRand(); //                                                |
        //G4double y = G4UniformRand(); //                                                |
        //G4double z = G4UniformRand(); //                                                |
        //G4double r2= x*x+y*y+z*z;     //                                                |
        //while(r2>1.||r2<.0001)        //                                                |
        //{
        //  x = G4UniformRand();        //                                                |
        //  y = G4UniformRand();        //                                                |
        //  z = G4UniformRand();        //                                                |
        //  r2=x*x+y*y+z*z;             //                                                |
        //}
        //G4double r=140./sqrt(r2);     //                                                |
        //G4double xs=x*r;              //                                                |
        //G4double ys=y*r+kMom*sqrt(1.-cost*cost); //                                     |
        //G4double zs=z*r+kMom*cost;    //                                                |
        //kMom=sqrt(xs*xs+ys*ys+zs*zs); //                                                |
        //cost=zs/kMom;                 //                                                |
        //if(kMom>=quasM/2.) kMom=quasM/2.-.001; //                                       |
        // --- End of the pseudo Fermi-motion corection-----------------------------------^
        // --- Virtual gluoCompton correction starts here --------------------------------*
        //G4double hms=32400.;                       // T_c^2                             |
        //G4double x=kMom*kMom/hms;                  //                                   |
        //G4double dc=(pow(x,G4UniformRand())-1.)/x; // smearing delta-function absorbtion|
        //if(dc<0.)dc=0.;                            // only positive smearing            |
        //cost-=dc;                                  // for virtPhotons smear in both dir.|
        // --- Quark mass correction ends here (?) ---------------------------------------*
      }
      else
      {
        gaF=false;                         // GammaFirstAct flag is only for the gamma-q
        gintFlag=false;
        // =--= Probabiliti proportional to k (without 1/k factor of hadronization)
        if(!miM2) miM2=(minK+minK)*quasM; // Make minimum mass for randomization
        if(qM2<.0001) kMom=0.;
        else kMom = GetQPartonMomentum(maxK,miM2); // Calculate value of primary qParton
        // =--= Direct calculation of the quark spectrum
        //G4double kpow=static_cast<double>(nOfQ-2);
        //G4double kst=0.;
        //if(maxK+maxK<quasM+.1) kst=pow((1.-(maxK+maxK)/quasM),kpow);
        //if(maxK>minK)
        //{
        //  G4double rn=(pow((1.-(minK+minK)/quasM),kpow)-kst)*G4UniformRand();
        //  kMom=(1.-pow(kst+rn,1./kpow))*quasM/2.;
        //}
        //else kMom=(minK+maxK);
        //^^^ Direct calculation
        G4double rnc=G4UniformRand();
        cost = 1.-rnc-rnc;
      }
      G4double cQM2=qM2-(kMom+kMom)*quasM;
      if(cQM2<0.)
      {
        //if(cQM2<-.0001)G4cerr<<"--Warning--G4Q::HQ:(PhBack) cQM2="<<cQM2<<" < 0"<<G4endl;
        cQM2=0.;
      }
      G4double cQM=sqrt(cQM2);             // Mass of the coloured residual Quasmom
      k4Mom=zeroLV;
      cr4Mom=G4LorentzVector(0.,0.,0.,cQM);
      G4LorentzVector dir4M=q4Mom-G4LorentzVector(0.,0.,0.,q4Mom.e()*.01);
      if(!G4QHadron(q4Mom).RelDecayIn2(k4Mom,cr4Mom,dir4M,cost,cost)) //Q->ColResQ+k_part
      {
#ifdef debug
        G4cerr<<"*G4Q::HQ:PB,M="<<quasM<<",cM="<<cQM<<",c="<<cost<<",F="<<gintFlag<<G4endl;
#endif
        kCond=true;
        if(addPhoton&&gintFlag)
        {
          q4Mom+= phot4M;                  // Recover Full Quasmon with Photon, if filed
          qM2   = q4Mom.m2();              // Update the Current squared mass of Quasmon
          if(qM2>0.) quasM = sqrt(qM2);    // Update the Current Mass of Quasmon 
          else
          { 
            if(qM2<-.0001)G4cerr<<"--Warning-- G4Q::HQ:Phot.M2="<<qM2<<" Cor to 0"<<G4endl;
            quasM=0.;
          }
          gintFlag=false; 
        }
      }
      else                                  // ***> The decay succeeded
      {
        if(addPhoton&&gintFlag)             // Make it as if the phaton was a part of the Q
        {
          q4Mom+= phot4M;                   // Recover the Full Quasmon with the Photon
          k4Mom+= phot4M;                   // add photon energy to a quark of the Cluster
          qM2   = q4Mom.m2();               // Update the Current squared mass of Quasmon 
          quasM = sqrt(qM2);                // Update the Current Mass of Quasmon 
          kMom=k4Mom.e();                   // Update the k_parton momentum
          gintFlag=false; 
        }
#ifdef debug
        G4cout<<"G4Q::HQ:(PhBack) k="<<kMom<<",k4M="<<k4Mom<<",ct="<<cost<<",gF="<<gintFlag
              <<G4endl;
#endif
        kLS=k4Mom.e();
        G4double rEn=cr4Mom.e();
        rMo=cr4Mom.rho();                   // p for the ResidualColouredQuasmon in LS
        rEP=rEn+rMo;                        // E+p for the ResidualColouredQuasmon in LS
        G4int totCand = theQCandidates.size(); // Total number of candidates
#ifdef sdebug
        G4cout<<"G4Q::HQ: ****>>K-ITERATION #"<<kCount<<", k="<<kMom<<k4Mom<<G4endl;
#endif
        for (G4int index=0; index<totCand; index++)
        {
          G4QCandidate* curCand=theQCandidates[index];
          G4int cPDG = curCand->GetPDGCode();
          if(cPDG==90000001||cPDG==90001000||cPDG==91000000||cPDG<MINPDG)//@@k-PreAtte(Acc)
          {
            G4bool poss= curCand->GetPossibility();
#ifdef debug
            if(cPDG==90000001 || cPDG==90001000 || cPDG==90000002 || cPDG==90001001)
              G4cout<<"G4Q::HQ:pos="<<poss<<",cPDG="<<cPDG<<",iQC="<<iniQChg<<G4endl;
#endif
            if(poss)
            {
              G4double   cMs=curCand->GetEBMass(); // EnvBound mass of the ParentCluster(?)
              G4QContent cQC=curCand->GetQC(); // QuarkCont of the ParentCluster
              G4double   cfM=curCand->GetQPDG().GetMass(); // GS Mass of the ParentCluster
              G4QContent rtQC=curQ+envQC-cQC;  // TotResidualNucQuarkContent - OutFragm
              G4QNucleus rtN(rtQC);            // Create a pseudo-nucleus for residual
#ifdef debug
              if(cPDG==90000001 || cPDG==90001000 || cPDG==90000002 || cPDG==90001001)
                G4cout<<"G4Q::HQ:cfM="<<cfM<<",cMs="<<cMs<<",ind="<<index<<G4endl;
#endif
              //G4double k = kMom;                   // * Temporary *
              //if(cPDG>MINPDG&&cPDG!=NUCPDG) k=kLS; // ===> Nuclear case (Lab System)
              G4double kMin=0.;
              if(cMs)  kMin=(cfM*cfM-cMs*cMs)/(cMs+cMs);
              if(kMin<0.) kMin=0.;
#ifdef debug
              G4double totr = rtN.GetMZNS();// Mass of the total Residual Nucleus
              G4double bnM  = totr-envM+cMs;// Bound mass of residual Quasmon
              //G4double dR=(bnM*bnM-cQM2)/(rEP+rEP); // Cut for q-acceleration (physics?)
              //if(b2<.000001) dR=((bnM*bnM-cQM2)/2.+pmk*(kLS-kMin))/(rEP+pmk);
              //if (dR<0.) dR=0.;
              G4double dR=0.;               // @@ Temporary no q-acceleration cut is used
              if(cPDG==90000001 || cPDG==90001000 || cPDG==90000002 || cPDG==90001001)
               G4cout<<"G4Q::HQ:i="<<index<<",cPDG="<<cPDG<<",k="<<kMom<<","<<kLS<<">kMin="
                     <<kMin<<",bM="<<bnM<<",rEP="<<rEP<<",dR="<<dR<<",kCo="<<kCond<<G4endl;
#endif
              if(kLS>kMin)
              {
                kCond=false;
                break;
              }
            }
          }
        }
      }
      kCount++;
    }
    // End of search for "k": *** Here we forget about the initial photon forever ***???***
#ifdef debug
    if(addPhoton)
      G4cout<<"G4Q::HQ:***PHOTON OK***k="<<k4Mom<<",Q="<<q4Mom<<",PhE="<<addPhoton<<G4endl;
#endif
    //if(gintFlag)kLS-=addPhoton;           // @@ correct for the virtual (?) -*
#ifdef debug
    G4cout<<"G4Q::HQ:Select="<<kMom<<",ki="<<minK<<",ka="<<maxK<<",k="<<k4Mom<<kLS<<G4endl;
#endif
    CalculateHadronizationProbabilities(excE,kMom,k4Mom,piF,gaF,first); // ProbIntegralCalc
    //CalculateHadronizationProbabilities(excE,kMom,kLS,piF,gaF); //ResMass is randomized 
    //if(gintFlag)kLS+=addPhoton;           // @@ correct for the virtual (?) -^
    addPhoton=0.;                           // the Photon is adopted: prepare to kill
    momPhoton=0.;
    //phot4M=zeroLV;
    G4double dk = kMom+kMom;                // Double QCM k-value (only for hadr. in hadr.)
    G4int nCandid = theQCandidates.size();
    G4bool fprob = true;                    // Flag of existing decay probability
    G4bool fdul  = false;                   // Prototype of flag of resonance decay
    int i=0;                                // "i" will point to the selected candidate
    G4double maxP = 0.;
    if(nCandid) maxP = theQCandidates[nCandid-1]->GetIntegProbability();
#ifdef debug
    G4cout<<"G4Q::HQ:***RANDOMIZE CANDIDATEs***a#OfCand="<<nCandid<<",maxP="<<maxP<<G4endl;
#endif
    if (maxP<=0.)                           // No possible channels for this k value
    {
#ifdef debug
      if(status == 4) G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0001",
                           FatalException, "HQ:*TMP EXCEPTION - NoChanalsOfFragmentation");
#endif
#ifdef debug
      G4cout<<"G4Q::HQ:Z="<<iniP<<",B="<<iniBN<<G4endl;
#endif
      G4double qCB=theEnvironment.CoulombBarrier(iniP,iniBN);
#ifdef debug
      G4cout<<"G4Q::HQ:qCB="<<qCB<<",Z="<<iniP<<",B="<<iniBN<<",eE="<<excE<<G4endl;
#endif
      G4double pCB=theEnvironment.CoulBarPenProb(qCB,excE,iniP,iniBN);//@@ excE (?)
      G4bool qenv=envPDG!=90000000&&envPDG!=90000002&&envPDG!=90002000&&iniPDG!=90002000
                    &&iniPDG!=90000002;// @@ Improved for nn & pp FinalStateInter
#ifdef debug
      G4cout<<"G4Q::HQ: qCB="<<qCB<<",pCB="<<pCB<<",cond="<<qenv<<",N="<<nQuasms<<G4endl;
#endif
      // @@ practically never is here
      if(!first&&excE>qCB&&envM+iniQM<totMass&&nQuasms==1&&qenv&&G4UniformRand()<pCB)
      //if(2>3)                               // Decay in GSQuasmon+GSEnviron **Is closed**
      {
        G4QHadron* resNuc = new G4QHadron(valQ,q4Mom);// Createa Hadron for Quasmon
        resNuc->CorMDecayIn2(iniQM,env4M);  // Recalculate the fr4Mom for ResidualGSMass
        //@@CHECK CoulBar and may be evaporate instead
        FillHadronVector(resNuc);           // Fill the OutgoingQuasmon (delete equivalent)
#ifdef debug
        G4LorentzVector oQ4Mom=resNuc->Get4Momentum();
        G4cout<<"G4Q::HQ: outQM="<<oQ4Mom.m()<<oQ4Mom<<",GSQM="<<iniQM<<G4endl;
#endif
        if(nQuasms==1) qEnv = G4QNucleus(env4M,envPDG);// Createa MovingEnvironmentNucleus
        else
        {
          G4QHadron* envH = new G4QHadron(envPDG,env4M); //@@ Moving Environment !
          FillHadronVector(envH);           // Fill Moving Environment (delete equivalent)
          qEnv = vacuum;
        }
#ifdef debug
        G4double eM=env4M.m();
        G4LorentzVector dif=tot4M-oQ4Mom-env4M;
        G4cout<<"G4Q::HQ: envM="<<envM<<"=="<<eM<<", envT="<<env4M.e()-eM<<dif<<G4endl;
#endif
        ClearQuasmon();                     // This Quasmon is done
        return theQHadrons;                 // The last decay of the quasmon...
      }
      else                                  // May be evaporation is possible
      {
#ifdef debug
        G4cout<<"G4Q::HQ:Q2E:E="<<theEnvironment<<",valQ="<<valQ<<",tot4M="<<tot4M<<G4endl;
#endif
        //if(CheckGroundState()) ClearQuasmon(); // This Quasmon is done
        if(CheckGroundState(true)) ClearQuasmon(); // This Quasmon is done
        //if(CheckGroundState(true)) KillQuasmon(); // This Quasmon is done
        //else if(envPDG==NUCPDG && quasM>iniQM && iniBN>1) // Convert Quasmon to MovingEnv
        //{
#ifdef debug
        //  G4cerr<<"***G4Q::HQ:Q2E="<<theEnvironment<<",QC="<<valQ<<",4M="<<tot4M<<G4endl;
#endif
        //  theEnvironment=G4QNucleus(valQ,tot4M);
        //  KillQuasmon();
        //}
        else if(envPDG==NUCPDG && quasM>iniQM) // Emergency decay in Gamma & GSQuasmon
        {
#ifdef debug
          G4cout<<"***G4Q::HQ: Emergency Decay in Gamma/Pi0 + Residual GSQuasmon"<<G4endl;
          //throw G4QException("***G4Q::HadrQ:EmergencyDecay in Gamma+ResidualGSQuasmon");
#endif
          G4int gamPDG=22;
          G4double gamM=0.;
          if(quasM>mPi0+iniQM)
          {
            gamPDG=111;
            gamM=mPi0;
          }
          G4LorentzVector r4Mom(0.,0.,0.,gamM);  // mass of the photon/Pi0
          G4LorentzVector s4Mom(0.,0.,0.,iniQM); // mass of the GSQuasmon
          G4double sum=gamM+iniQM;
          if(sum>0. && fabs(quasM-sum)<eps)
          {
             r4Mom=q4Mom*(gamM/sum);
             s4Mom=q4Mom*(iniQM/sum);
          }
          else if(quasM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
          {
            // G4cerr<<"***G4Q::HQ:Q="<<q4Mom<<quasM<<"->g/pi0(M="<<gamM<<")+GSQ="<<iniPDG
            //       <<"(M="<<iniQM<<")="<<sum<<", d="<<sum-quasM<<G4endl;
            // throw G4QException("G4Quasmon::HadronizeQ:(E=0)G/Pi0+GSQ decay error");
            G4ExceptionDescription ed;
            ed << "(E=0)G/Pi0+GSQ decay error: Q=" << q4Mom << quasM
               << "->g/pi0(M=" << gamM << ")+GSQ=" << iniPDG << "(M="
               << iniQM << ")=" << sum << ", d=" << sum-quasM << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0002",
                        FatalException, ed);
          }
#ifdef debug
          G4cout<<"G4Q::HQ:=== 0 ===>HadrVec, Q="<<q4Mom<<quasM<<"->g/pi0("<<gamPDG<<")="
                <<r4Mom<<gamM<<"+GSQ="<<iniPDG<<r4Mom<<iniQM<<G4endl;
#endif
          G4QHadron* curHadr2 = new G4QHadron(gamPDG,r4Mom); // Creation Hadron for Gamma
          FillHadronVector(curHadr2);       // Fill "new curHadr2" (delete equivalent)
          G4QHadron* curHadr1 = new G4QHadron(iniPDG,s4Mom);// Hadron for ResidualGSQuasmon
          FillHadronVector(curHadr1);       // Fill "new curHadr1" (delete equivalent)
          ClearQuasmon();                   // This Quasmon is done
        }
#ifdef debug
        G4cout<<"***G4Q::HQ:dE="<<excE<<">minK="<<minK<<",Env="<<theEnvironment<<",k="<<kLS
              <<",Q="<<valQ<<quasM<<", nQ="<<nQuasms<<G4endl;
#endif
        qEnv=theEnvironment;
        return theQHadrons;
      }
    }
    G4bool nucflag=false;                   // NuclearBinding Flag (can't reduce Environ)
    G4bool hsflag=false;                    // Prototype of H+S decay flag
    //G4bool fchipo=false;                    // Final decay of Quasmon-Chipolino
    G4LorentzVector rQ4Mom(0.,0.,0.,0.);    // 4-momentum of residual Quasmon
    G4LorentzVector fQ4Mom(0.,0.,0.,0.);    // 4-momentum of free Q-LV
    G4LorentzVector fr4Mom(0.,0.,0.,0.);    // 4-momentum prototype for the fragment
    G4double rMass=0.;                      // Prototype of the residual Quasmon mass
    G4double kt=0.;                         // Squared Mass of the Residual Quasmon Proto
    // ***VQU*** (Comment for ***VBQ***VFQ***VTN***)
    G4double ku=0.;                         // Sq FreeMass of the Residual Quasmon Proto
    // -----------
    G4double kn=0.;                         // Squared Mass of ResidualQuasmon+ResidEnviron
    G4double sCBE=0.;                       // Coulomb Barier + mass of the fragment Proto
    G4int rPDG=0;                           // Prototype of the residual Quasmon PDG
    pCond=true;
    G4int pCount=0;
    G4LorentzVector PMEMfr4M(0.,0.,0.,0.);  // 4Mom of the secondary fragment (the best)
    G4LorentzVector PMEMrQ4M(0.,0.,0.,0.);  // 4Mom of the residual Quasmon (the best)
    G4QContent  PMEMpQC(0,0,0,0,0,0);       // QuarkContent of the ParentCluster (the best)
    G4QContent  PMEMsQC(0,0,0,0,0,0);       // QuarkContent of the ProducedFragm (the best)
    G4QContent  PMEMtQC(0,0,0,0,0,0);       // QuarkConteht of QEX meson (the best)
    G4QContent  PMEMcQC(0,0,0,0,0,0);       // currentQuarkConteht (residual)
    G4double PMEMktM2=0.;                   // H-MeasureOfTheSelection(**Which is better**)
    G4double PMEMknM2=0.;                   // H-MeasureOfTheSelection(**Which is better**)
    G4double PMEMreM2=0.;                   // SqMass of residQuasm+residEnviron (the best)
    G4double PMEMrMas=0.;                   // Mass of one of theProductsOfDecay (the best)
    G4double PMEMpMas=0.;                   // BoundByEnvironMass of ParentClust (the best)
    G4double PMEMsMas=0.;                   // Mass of outgoing hadron/nFragment (the best)
    G4double PMEMdMas=0.;                   // DifferenceBetween EnvBndPM & NuclBndPM(best)
    G4double PMEMmiSN=0.;                   // MinSquaredMass of ResidQ+ResidEnv (the best)
    G4double PMEMmiST=0.;                   // MinSquaredMass of ResidQuasm only (the best)
    G4double PMEMmiSB=0.;                   // MinSquaredMass of BoundResidQuasm (the best)
    G4int    PMEMrPDG=0;                    // PDG of one of theProductsOfDecay (the best)
    G4int    PMEMsPDG=0;                    // PDG of outgoing Hadron/nFragment (the best)
    G4int    PMEMpPDG=0;                    // PDG code of the Parent Cluster (the best)
    G4bool   PMEMhsfl=hsflag;               // Flag of the Qusm->Hadr+Frag decay (the best)
    G4bool   PMEMnucf=nucflag;              // Flag of usage of nuclear binding (the best)
#ifdef debug
    G4cout<<"G4Q::HQ: fp="<<fprob<<",QM="<<quasM<<",QQC="<<valQ<<",k="<<kMom<<G4endl;
#endif
    while(pCount<pCountMax&&pCond) // @@ It is better to make it with theParentChange
    {
      hsflag=false;
#ifdef debug
      G4cout<<"G4Q::HQ:***>New p-Attempt#"<<pCount<<",pMax="<<pCountMax<<",hsfl=0"<<G4endl;
#endif
      G4double totP = maxP * G4UniformRand();
      while(theQCandidates[i]->GetIntegProbability() < totP) i++;
      if (i>=nCandid)
      {
        G4ExceptionDescription ed;
        ed <<"Too big number of the candidate: Cand#"<< i <<" >= Tot#"<< nCandid << G4endl;
        G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0003", FatalException, ed);
      }
      curQ = valQ;                            // Temporary copy of valQ to estimate MinM2
      if (!fprob)  // At present is closed    // Prepare final decay (nothing was selected)
      {
        memQ=curQ;                            // Remembe QC for the case of 2H decay
        sPDG=curQ.GetSPDGCode();              // PDG of current Quasmon as S-hadron
        if(!sPDG&&theEnvironment.GetPDG()!=NUCPDG&&totBN>1&&totMass>totM&&totS>=0)
        {
#ifdef pdebug
          G4ExceptionDescription ed;
          ed << "Why Fail? (1): NEED-EVAP-1:Q=" << q4Mom << valQ << ",En="
             << theEnvironment << G4endl;
          G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0004", FatalException, ed);
#endif
          qEnv=theEnvironment;
          return theQHadrons;
        }
        else if(!sPDG)
        {
          G4ExceptionDescription ed;
          ed << "DecayPartSelection,Evaporation: sPDG=0,E=" << theEnvironment
             << ",B=" << totBN << ",S=" << totS << G4endl;
          G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0005", FatalException, ed);
        }
        else if(sPDG==10)                     // ---> "Chipolino" case
        {
          //fchipo=true;
          G4QChipolino chipQ(valQ);
          G4QPDGCode QPDG1=chipQ.GetQPDG1();
          sPDG = QPDG1.GetPDGCode();
          sMass= QPDG1.GetMass();
          G4QPDGCode QPDG2=chipQ.GetQPDG2();
          rPDG = QPDG2.GetPDGCode();
          rMass= QPDG2.GetMass();
          if(sMass+rMass>quasM)               //@@ Evaporate but try 3Pt decay with Environ
          {
            if(totBN>1&&totMass>totM&&totS>=0)
            {
#ifdef pdebug
              G4ExceptionDescription ed;
              ed << " Why Fail? (2): NEED-EVAP-2:Q=" << q4Mom << valQ << ",E="
                 << theEnvironment << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0006",
                          FatalException, ed);
#endif
              qEnv=theEnvironment;
              return theQHadrons;
            }
            else
            {
              G4ExceptionDescription ed;
              ed << "VirtChipo Can't EvapNucleus: QM=" << quasM << "<S=" << sMass
                 << "+R=" << rMass << "=" << sMass+rMass << ",tB=" << totBN
                 << ",tS=" << totS << ",tM=" << totMass << ">minM=" << totM << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0007",
                          FatalException, ed);
            }
          }
        }
        else if(nQuasms>1)
        {
#ifdef pdebug
          G4ExceptionDescription ed;
          ed << "Why Fail ? (0): NEED-EVAP-0:Q=" << q4Mom << valQ << ",En="
             << theEnvironment << G4endl;
          G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0008", FatalException, ed);
#endif
          qEnv=theEnvironment;
          return theQHadrons;
        }
        else                                // --->@@ Final decay in MinHadr+(PI0 or GAM)??
        {
          sMass=G4QPDGCode(sPDG).GetMass();
          rPDG=envPDG;
          if (rPDG>MINPDG&&rPDG!=NUCPDG)
          {
            rMass=theEnvironment.GetMZNS();
            q4Mom+=G4LorentzVector(0.,0.,0.,rMass);
            valQ +=theEnvironment.GetQC();
            quasM=q4Mom.m();
            KillEnvironment();
            //fred=true;                        // Flag of environment reduction -Not used-
          }
          else if(rPDG!=NUCPDG&&totBN>1&&totMass>totM&&totS>=0)  // ===> "Evaporation" case
          {
#ifdef pdebug
            G4QContent nTotQC=totQC-neutQC;
            G4QNucleus nTotN(nTotQC);         // PseudoNucleus for TotalResidual to neutron
            G4double nTotM =nTotN.GetMZNS();  // MinMass of the Total Residual to neutron
            G4double dMnT=totMass-nTotM-mNeut;// Energy excess for the neutron
            G4QContent pTotQC=totQC-protQC;
            G4QNucleus pTotN(pTotQC);         // PseudoNucleus for TotalResidual to proton
            G4double pTotM =pTotN.GetMZNS();  // MinMass of the Total Residual to proton
            G4double dMpT=totMass-pTotM-mProt;// Energy excess for neutron
            if(dMpT>dMnT)dMnT=dMpT;
            G4ExceptionDescription ed;
            ed << "Why Fail ? (3): NEED-EVAP3:s=" << sPDG << ",Q=" << q4Mom
               << valQ << ",r=" << rPDG << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0009",FatalException,ed);
#endif
            qEnv=theEnvironment;
            return theQHadrons;
          }
          else if(rPDG==NUCPDG)
          {
#ifdef debug
            G4cout<<"G4Quasmon::HadronizeQuasm:SafatyDecayIn PI0/GAM, rPDG="<<rPDG<<G4endl;
#endif
            if(totMass-totM>mPi0)
            {
              rMass=mPi0;                     // Safety decay in pi0
              rPDG=111;
            }
            else
            {
              rMass=0.;                       // Safety decay in gamma
              rPDG=22;
            }
          }
        }
        hsflag=true;                          // Two particle decay is forced ???
#ifdef debug
        G4cout<<"G4Q::HQ:hsflagTRUE,s="<<sPDG<<","<<sMass<<",r="<<rPDG<<","<<rMass<<G4endl;
#endif
      }
      else                                    // ---> "Something was selected" case
      {
        G4QCandidate* curCand = theQCandidates[i];// Pointer toSelectedCandidate:hadr/fragm
        sPDG  = curCand->GetPDGCode();        // PDG of the selected candidate 
#ifdef debug
        G4cout<<"G4Q::HQ:hsfl="<<hsflag<<", sPDG="<<sPDG<<", i="<<i<<G4endl;
#endif
        //@@ For clusters use another randomization & a loop over possible parent clusters
        if(sPDG>MINPDG&&sPDG!=NUCPDG)         // ===> "Fragment" case
        {
          G4int ip=0;
          G4int nParCandid = curCand->GetPClustEntries();
          G4double sppm  = curCand->TakeParClust(nParCandid-1)->GetProbability();
          if (sppm<=0)                        // Impossible to find a parent cluster
          {
            G4cerr<<"***G4Quasmon::HadronizeQ:P="<<theQCandidates[i]->GetIntegProbability()
                  <<",nC="<<nParCandid<<",pP="<<sppm<<",QM="<<quasM<<",QC="<<valQ;
            for(int ipp=0; ipp<nParCandid; ipp++)
              G4cerr<<", "<<ipp<<": "<<curCand->TakeParClust(ip)->GetProbability();
            G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0010", FatalException,
                        "NoParentClust forTheFragment");
          }
          else                                // ---> "Parent cluster was found" case
          {
            G4double totPP = sppm * G4UniformRand();
            while(curCand->TakeParClust(ip)->GetProbability() < totPP) ip++;
#ifdef debug
            G4cout<<"G4Q::HQ:p#ip="<<ip<<",f#i="<<i<<",tP="<<totPP<<",sP="<<sppm<<G4endl;
#endif
          }
          G4QParentCluster* parCluster=curCand->TakeParClust(ip);
          pPDG  = parCluster->GetPDGCode();
          G4QPDGCode pQPDG(pPDG);
          pQC   = pQPDG.GetQuarkContent();
          pBaryn= pQC.GetBaryonNumber();
          pMass = parCluster->GetEBMass();    // Environment Bounded Mass
          pNMass = parCluster->GetNBMass();   // NuclBoundedMass @@Env.Reduce dosn't work
          transQC = parCluster->GetTransQC();
          delta = parCluster->GetEBind();     // Environmental Binding
          deltaN = parCluster->GetNBind();    // Nuclear Binding
          loli  = parCluster->GetLow();
          hili  = parCluster->GetHigh();
          //G4double dhil=.0001*(hili-loli);    // Safety factor
          //loli += dhil;
          //hili -= dhil;
          npqp2 = parCluster->GetNQPart2();
          // @@ One can get otherUsefulParameters of the parent cluster for hadronization
          G4QPDGCode sQPDG(curCand->GetPDGCode());
          sQC   = sQPDG.GetQuarkContent();
          //if(sPDG==90001001 && G4UniformRand()>0.75) sMass=np; //@@ n-p pair
          if(sPDG==90001001 && G4UniformRand()>1.0) sMass=np; //@@ no n-p pair (close)
          else                                      sMass = sQPDG.GetMass();
          sM2   = sMass*sMass;                // Squared mass of the fragment
          curQ += transQC;                    // Subtract ExchangeMesonQC from QuasmonQC
#ifdef debug
          G4cout<<"G4Q::HQ:valQ="<<valQ<<"+transQ="<<transQC<<"("<<pPDG<<" to "<<sPDG
                <<") = curQ="<<curQ<<",InvBinding="<<delta<<",pM="<<pMass<<pQC<<G4endl;
#endif
        }
        else                                  // ===> "Hadron" case
        {
          pBaryn=0;                           // @@ ?
          sQC=theQCandidates[i]->GetQC();
          sMass = theQCandidates[i]->GetNBMass();// Mass is randomized on probability level
          sM2=sMass*sMass;                    // SqMass is randomized on probability level
          curQ-= sQC;                         // Subtract outHadron QC from QC of Quasmon
#ifdef debug
          G4cout<<"G4Q::HQ: hsfl="<<hsflag<<", valQ="<<valQ<<"-sQ="<<sQC<<",sM="<<sMass
                <<",C="<<theQCandidates[i]->GetPDGCode()<<",Q="<<curQ<<",M2="<<sM2<<G4endl;
#endif
        }
        G4QContent resNQC=totQC-sQC;          // Quark Content of the totNucleus-Fragment
        G4QNucleus resTN(resNQC);   
        G4double resTNM=resTN.GetMZNS();      // Mass of totNucleus-Fragment
        G4double sCB=0;
        if(resTN.GetA()>0) sCB=totN.CoulombBarrier(sQC.GetCharge(),sQC.GetBaryonNumber());
        sCBE=sCB+sMass;
#ifdef debug
        G4cout<<"G4Q::HQ:rQC="<<resNQC<<",rM="<<resTNM<<",sM="<<sMass<<",CB="<<sCB<<G4endl;
#endif
        memQ=curQ;                            // Remembe QC for "DecayIn2 Hadrons" case
        G4double rtM=0.;
        G4double reM=0.;                      // Mass of the residual environment
        //-> Calculate the SquaredGroundStateMass of theResidualQuasmon+ResidualEnvironment
        //if(envPDG>pPDG)
        if(envA>=pBaryn)
        {
          // *** LIM ***
          G4QContent RNQC=curQ+envQC;
          if(sPDG>MINPDG&&sPDG!=NUCPDG) RNQC-=pQC; // ==> "Nuclear Fragment Radiation" case
          if(envA-pBaryn>bEn) RNQC=curQ+bEnQC; // Leave the minimum environment
          G4int RNPDG = RNQC.GetSPDGCode();   // Total kinematically involved nuclear mass
          if(RNPDG==10) minSqN=G4QChipolino(RNQC).GetMass2();// MinSqM of DiHadron of Chipo
          else if(!RNPDG) // It never should happen as curQ is real and env/bEn QC is > 0
          {
            //#ifdef debug
            G4cout<<"**G4Q::HQ:*KinematicTotal*, PDG="<<RNPDG<<curQ<<", QC="<<RNQC<<G4endl;
            //#endif
            minSqN=1000000.;
          }
          else
          {
            G4double minN=G4QPDGCode(RNPDG).GetMass();
            minSqN=minN*minN;                 // SquaredGSMass of ResidQuasmon+ResidEnviron
#ifdef debug
            G4cout<<"G4Q::HQ:M="<<bEn<<",A="<<envA<<",B="<<pBaryn<<",N="<<minN<<G4endl;
#endif
          }
        }
        else
        {
#ifdef debug
          G4cout<<"*G4Q::HQ:EnvironmentA="<<envA<<" < SecondaryFragmentA="<<pBaryn<<G4endl;
#endif
        }
        // ---> Calculate the Minimum Squared Mass of the Residual Quasmon
        G4int rqPDG = curQ.GetSPDGCode();     // PDG Code of the residual Quasmon
        if(rqPDG==111&&sPDG!=111&&G4UniformRand()>.5) rqPDG=221;
        //if(rqPDG==221&&sPDG!=221&&sPDG!=331&&G4UniformRand()<.5) rqPDG=111;
        G4int rQQ=G4QPDGCode(curQ).GetQCode();
        if(rqPDG==10) {
          minSqT=G4QChipolino(curQ).GetMass2();// MinSqMass of DoubleHadron of Chipolino
          minSqB=minSqT;
          minT=sqrt(minSqT);

        } else if(!rqPDG||rQQ<-1) {
#ifdef debug
          G4cerr<<"*G4Q::HQ:*** ResidualQuasmon *** PDG="<<rqPDG<<curQ<<",Q="<<rQQ<<G4endl;
#endif
          minT=100000.;                             // Mass of free Quasmon
          minSqT=10000000000.;                      // SqMass of free Quasmon
          minSqB=10000000000.;                      // SqMass of bound Quasmon

        } else {
          minT=G4QPDGCode(rqPDG).GetMass();
          if(sPDG<MINPDG&&envPDG>MINPDG&&envPDG!=NUCPDG)// Hadron with environment(not QEX)
          {
            G4int rqZ=curQ.GetCharge();
            G4int rqS=curQ.GetStrangeness();
            G4int rqN=curQ.GetBaryonNumber()-rqS-rqZ;
            G4double qpeM=G4QNucleus(envZ+rqZ,envN+rqN,envS+rqS).GetGSMass();
#ifdef debug
            G4cout<<"G4Q::HadQ:Z="<<rqZ<<",N="<<rqN<<",S="<<rqS<<",eZ="<<envZ<<",eN="<<envN
                  <<",eS="<<envS<<",ePDG="<<envPDG<<",eM="<<envM<<",tM="<<qpeM<<G4endl;
#endif
            minT=qpeM-envM;
          }
          minSqT=minT*minT;               // Squared minimum mass of residual quasmon
#ifdef debug
          G4cout<<"G4Q::HQ:rPDG="<<rqPDG<<curQ<<",minT="<<minT<<",minSqT="<<minSqT
                <<",hsfl="<<hsflag<<G4endl;
#endif
          G4double newT=0.;               // Prototype of minimal TotBoundQuasmon mass
          // (Hadron with environment 
          // (see above?) || QEX) && (Q==nucFrag || Q==n,p,Lambda)

          if ( ( (sPDG < MINPDG && envPDG > MINPDG && envPDG != NUCPDG) || 
                 (sPDG > MINPDG && sPDG != NUCPDG && envPDG > pPDG)
               ) && ( (rqPDG > MINPDG && rqPDG != NUCPDG) || 
                      rqPDG==2112 || rqPDG==2212 || rqPDG==3122
                    )
             )
          {
            if(sPDG<MINPDG)               // The radiatedBaryon is aVaquum(QF) particle
            {
              // *** LIM ***
              G4QContent rtQC=curQ;       // Total Residual Quasmon Quark Content
              if (envA > bEn)             // Nucl Env > than A_max
              {
                reM=mbEn;
                rtQC+=bEnQC;
              }
              else
              {
                reM=envM;                 // MinMassOfResidEnviron = MassOfEnviron
                rtQC+=envQC;              // Nucl Env is below A_max=bEn
              }
              G4QNucleus rtN(rtQC);       // Create a pseudo-nucleus for E+Q
              rtM=rtN.GetMZNS();          // MinMass of TotalResidualNucleus (+hadron)
              newT=rtM-reM;               // The effective mass
#ifdef debug
              G4cout<<"G4Q::HQ:***VacuumFragmentation** M="<<newT<<",rM="<<rtM<<rtQC
                    <<",eM="<<envM<<",mM="<<minT<<G4endl;
#endif
            }
            else                          // The RadiatedHadron is aQuarkExchange frag.
            {
 
              G4QContent reQC=envQC-pQC;  // Total Residual Quark Content
              if(envA-pBaryn>bEn) reQC=bEnQC; // Nucl Env - fragment > than A_max
              G4QNucleus reN(reQC);       // Create a pseudoNucleus for ResidualNucleus
              reM=reN.GetMZNS();          // Min Mass of the residual EnvironmentNucleus
              // *** LIM ***
              G4QContent rtQC=curQ;       // Total Quasmon Quark Content
#ifdef debug
              G4cout<<"G4Q::HQ:reQC="<<reQC<<",rtQC="<<rtQC<<",eA="<<envA<<",pB="<<pBaryn
                    <<",bE="<<bEn<<bEnQC<<G4endl;
#endif
              rtQC+=reQC;                 // Quasmon + (effective) nuclear environment
              G4QNucleus rtN(rtQC);       // Create a pseudo-nucleus for residual ENE
              rtM=rtN.GetMZNS();          // MinMass of TotalResidualNucleus (fragment)
              // *** LIM ***
              if (envA-pBaryn > bEn) newT=rtM-mbEn;
              else                   newT=rtM-reM;
#ifdef debug
              G4cout<<"G4Q::HQ:NuclFrM="<<newT<<",r="<<rtM<<rtQC<<",e="<<envM<<envQC<<",p="
                    <<pMass<<pQC<<",re="<<reM<<reQC<<",exEn="<<totMass-rtM-sMass<<G4endl;
#endif
            }
            if(minT<newT) newT=minT;
          }
          minSqB=newT*newT;               // MinSquaredMass of BoundedResidualQuasmon
        }
#ifdef debug
 G4cout<<"G4Q::HQ:rq="<<rqPDG<<",miT="<<minSqT<<",miB="<<minSqB<<",M="<<rtM<<G4endl;
#endif
        if(!minSqT)
        {
          G4ExceptionDescription ed;
          ed << "MinResMass can't be calculated: minSqT=0(!), curQ=" << curQ << G4endl;
          G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0011", FatalException, ed);
        }
        G4double m2_value = BIG2; //@@ justBigNumber// Prototype/Squared Mass of Residual Quasmon
        //G4double kp=0.;                       // 3-Mpm/Mass for the residual Quasmon (?)
        if (sPDG > MINPDG && sPDG != NUCPDG) {// ==> NuclearFragmentCandidate hadronization
#ifdef debug 
          G4cout<<"G4Q::HQ: BoundM="<<pMass<<",FreeM="<<sMass<<",QM="<<quasM<<G4endl;
#endif
          // = = = =  P u r e   k i n e m a t i c a l   c a l c u l a t i o n s:  = = = = =
          // Fusion of k + parentCluster => colouredCluster (cc)
          G4LorentzVector cl4Mom(0.,0.,0.,pMass);// 4-momentum prototype for parent cluster
          G4LorentzVector tot4Mom=q4Mom+cl4Mom;  // @@ Just for checking
#ifdef debug
          G4cout<<"G4Q::HQ:Q("<<quasM<<")->k("<<k4Mom<<")+CRQ("<<cr4Mom.m()<<")"<<G4endl;
#endif
          G4LorentzVector cc4Mom=k4Mom+cl4Mom;// 4-mom of ColoredFragment (before kappa)
          G4double ccM2=cc4Mom.m2();          // SquaredMass of the ColoredFragment
          G4double frM2=sMass*sMass;          // MinSuaredMass of the OutgoingFragment
          if (ccM2 <= frM2)                   // Decaying ColoredFragmM < FragmM 
          {
#ifdef debug
            G4cout<<"***G4Q::HQ:FailedToFind FragmM:"<<ccM2<<"<"<<frM2<<",M="<<pMass<<"+k="
                  <<k4Mom<<"="<<sqrt(ccM2)<<cc4Mom<<" < fM="<<sMass<<",miK="<<minK<<G4endl;
#endif
            dMass=pMass-pNMass;               // Remember the difference
            pMass=pNMass;
            delta=deltaN;
            cl4Mom=G4LorentzVector(0.,0.,0.,pMass); // 4-momentum proto for parent cluster
            tot4Mom=q4Mom+cl4Mom;             // @@ Just for checking
            cc4Mom=k4Mom+cl4Mom;              // 4-mom of ColoredFragment (before kappa)
            ccM2=cc4Mom.m2();
            if (ccM2 <= frM2)
            {
#ifdef debug
              G4cout<<"G4Q::HQ:hsflagTRUE*NuclBINDING,ccM2="<<ccM2<<"<frM2="<<frM2<<G4endl;
#endif
              hsflag=true;                    // Flag of decay in Q+S
            }
            else
            {
#ifdef debug
              G4cout<<"G4Q::HQ:***NUCLEAR BINDING***ccM2="<<ccM2<<" > frM2="<<frM2<<G4endl;
#endif
              nucflag=true;                   // Nuclear binding was used
            }
          }
          else
          {
#ifdef debug
            G4double crMass2 = cr4Mom.m2();   // SquredMass of ColouredResidualQuasmon
            G4cout<<"G4Q::HQ:cM2="<<crMass2<<"="<<rEP*(rEP-rMo-rMo)<<",h="<<hili<<",l="
                  <<loli<<G4endl;
#endif
            if(hili<loli) hili=loli;
            G4double fpqp2=static_cast<double>(npqp2);
            G4double pw=1./fpqp2;
            // ------>> Decay of the ColouredCluster in a Fragment + kappa (fixed ctc) <<--
            qCond=true;
            G4int qCount=0;
#ifdef pdebug
            G4double dM=0.;
            if(sPDG==90001001) dM=2.25;       // Binding energy of the deuteron ???
            G4cout<<"G4Q::HQ:Is xE="<<excE<<" > sM="<<sMass<<"-pM="<<pMass<<"-dM="<<dM
                  <<" = "<<sMass-pMass-dM<<G4endl;
#endif
#ifdef debug
            G4cout<<"G4Q::HQ: must totM="<<totMass<<" > rTM="<<resTNM<<"+sM="<<sMass<<" = "
                  <<sMass+resTNM<<G4endl;
#endif
            if(resTNM && totMass<resTNM+sMass)// Probably it never takes place
            {
#ifdef pdebug
              G4cout<<"***G4Quasmon::HadronizeQuasmon:***PANIC#1***TotalDE="<<excE<<"< bE="
                    <<sMass-pMass-dM<<", dM="<<dM<<", sM="<<sMass<<", bM="<<pMass<<G4endl;
              //throw G4QException("G4Quasmon::HadronizeQuasmon: Why PANIC? (1)"); //@@ TMP
#endif
              status =-1;                     // Panic exit
              qEnv=theEnvironment;            // Update the QEnvironment ???
              return theQHadrons;
            }
            G4double   ex=kLS-delta;          // EnvironmentExcess of parton energy in LS
            G4double   dex=ex+ex;
            G4QContent tmpEQ=envQC-pQC;       // Quark content for Residual Environment
            if(envA-pBaryn>bEn) tmpEQ=bEnQC;  // Leave the minimum environment
            G4QNucleus tmpN(tmpEQ);           // Pseudo nucleus for Residual Environment
            G4double   tmpNM=tmpN.GetMZNS();  // Mass of Residual Environment
#ifdef debug
            G4cout<<"G4Q::HQ:eQC="<<envQC<<",pQC="<<pQC<<",rEnvM="<<tmpNM<<",hsfl="<<hsflag
                  <<G4endl;
#endif
            G4QContent tmpRQ=valQ+transQC;    // QContent of Residual Quasmon
            G4QContent tmpTQ=tmpRQ+tmpEQ;     // QC of TotalResidualNucleus for a Fragment
            G4QNucleus tmpT(tmpTQ);           // Nucleus for TotalResidNucleus for Fragment
            G4double   tmpTM=tmpT.GetMZNS();  // GSMass of TotalResidNucleus for Fragment
            tmpTM2=tmpTM*tmpTM;               // SqGSMass of TotResNuc for Fragment (gam)
            G4LorentzVector ResEnv4Mom(0.,0.,0.,tmpNM);
            G4LorentzVector tCRN=cr4Mom+ResEnv4Mom;
            // ***VQU*** (Comment when using ***VBQ*** and ***VTN***)
            G4double   tmpBE=minT+tmpNM-tmpTM; // Binding energy for the ResidualQuasmon
#ifdef debug
            // *AllThis is just for checking & debugging messages. Don't add calculations!*
            G4double tcEP=tCRN.e()+tCRN.rho();
            // Test that the edge of the Phase Space is reachable
            G4double cta=1.-(dex/(1.-pow(loli,pw))-pMass)/kLS;//cos(theta_k,kappa_max) inLS
            if(cta>1.0001)G4cerr<<"Warn-G4Q::HQ: cost_max="<<cta<<">1.CorHadrProb"<<G4endl;
            G4double kap_a=ex/(1.+kLS*(1.-cta)/pMass);//MaxEnergy of theRecoilQuark (q_max)
            G4double cti=1.-(dex/(1.-pow(hili,pw))-pMass)/kLS;//cos(theta_k,kappa_max) inLS
            if(cti<-1.0001)G4cerr<<"Warn-G4Q::HQ: cost_i="<<cti<<"<-1.CorHadrProb"<<G4endl;
            G4double kap_i=ex/(1.+kLS*(1.-cti)/pMass);//MinEnergy of theRecoilQuark (q_min)
            G4double q_lim=(tmpTM2-tCRN.m2())/(tcEP+tcEP);
            if(cti>cta+.0001)G4cerr<<"**G4Q::HQ:ci="<<cti<<">ca="<<cta<<".CorHPro"<<G4endl;
            G4cout<<"G4Q::HQ:qi="<<kap_i<<",ci="<<cti<<",a="<<kap_a<<",ca="<<cta<<",e="<<ex
                  <<",q="<<q_lim<<",S="<<tmpTM*tmpTM<<",R2="<<tCRN.m2()<<","<<tcEP<<G4endl;
#endif
            // Try the maximumPossibleRange of theRecoilQuark (@@Temporary) --- Starts Here
#ifdef debug
            //G4cout<<"G4Q::HQ: Befor TMP Cor: loli="<<loli<<",hili="<<hili<<G4endl;
#endif
            //loli=pow((1.-dex/pMass),fpqp2);          //@@ Should not be in the production
            //hili=pow((1.-dex/(pMass+kLS+kLS)),fpqp2);//@@ Should not be in the production
#ifdef debug
            //G4cout<<"G4Q::HQ: After TMP Cor: loli="<<loli<<",hili="<<hili<<G4endl;
#endif
            // @@ Temporary stops here ^^^^^^^^^^^^^^^^^^^^^!!! Comment it !!!
            G4LorentzVector MEMkp4M(0.,0.,0.,0.);
            G4LorentzVector MEMfr4M(0.,0.,0.,0.);
            G4LorentzVector MEMrQ4M(0.,0.,0.,0.);
            G4double MEMrQM2=0.;
            G4double MEMsCBE=0.;
            G4double MEMreM2=0.;
            // *** Very Temporary @@ cos(theta_k_q)<0 Gives "quasi-elastic"
            //G4double minz=1.-dex/(pMass+kLS);
            //G4double nlol=pow(minz,fpqp2);
            //if(loli<nlol) loli=nlol;
            // *** End of Temporary @@
            while(qCount<qCountMax&&qCond)// @@ It's better to make it with theParentChange
            {
              G4double z = pow(loli+(hili-loli)*G4UniformRand(),pw);//***q-RANDOMIZATION***
              //**PSLtest**//G4double z= pow(hili,pw); // ***TMP AtLimit q-RANDOMIZATION***
              //**PSLtest**//G4double z= pow(loli,pw); // ***TMP AtLimit q-RANDOMIZATION***
              //**PSLtest**//G4double z= pow((loli+hili)/2,pw);// ***TMP Mid q-RANDOMIZE***
              G4double ctkk=1.-(dex/(1.-z)-pMass)/kLS;// cos(theta_k,kappa) in LS
#ifdef pdebug
              if(qCount) G4cout<<"G4Q::HQ:qC="<<qCount<<",ct="<<ctkk<<",M="<<pMass<<",z="
                               <<z<<",zl="<<pow(loli,pw)<<",zh="<<pow(hili,pw)<<",dE="
                               <<totMass-totM<<",bE="<<sMass-pMass<<G4endl;
#endif
#ifdef debug
              G4cout<<"G4Q::HQ:ct="<<ctkk<<",pM="<<pMass<<",z="<<z<<",zl="<<pow(loli,pw)
                    <<",zh="<<pow(hili,pw)<<",ex="<<ex<<",li="<<loli<<",hi="<<hili<<G4endl;
#endif
              if(abs(ctkk)>1.00001)
              {
#ifdef debug
                G4cerr<<"***G4Q:HQ:ctkk="<<ctkk<<",ex="<<ex<<",z="<<z<<",pM="<<pMass
                      <<",kLS="<<kLS<<",hi="<<hili<<",lo="<<loli<<",n="<<npqp2<<G4endl;
                //throw G4QException("***TemporaryException***G4Q::HQ:cos(theta) limits");
#endif
                if(ctkk> 1.)ctkk= 1.;
                if(ctkk<-1.)ctkk=-1.;
              }
              G4double cen=kLS+pMass;            // LS Energy of k+parentCluster CompSystem
              G4double ctc=(cen*ctkk-kLS)/(cen-kLS*ctkk);//cos(theta_k,kap) in k+pClastSyst
              if(abs(ctc)>1.)
              {
                //G4cout<<"***G4Quasm:HadrQ: e="<<cen<<", k="<<kLS<<", cost="<<ctc<<G4endl;
                if(ctc>1.) ctc=1.;
                else if(ctc<-1.) ctc=-1.;
              }
              kp4Mom=zeroLV;                           // 4-mom update for RecoilQuark (q)
              fr4Mom=G4LorentzVector(0.,0.,0.,sMass);  // 4-mom update for the fragment
              if(!G4QHadron(cc4Mom).RelDecayIn2(kp4Mom, fr4Mom, k4Mom, ctc, ctc))
              {
                G4ExceptionDescription ed;
                ed << "Can't dec ColClust(Fr+kap): c4M=" << cc4Mom << ",sM="
                   << sMass << ",ct=" << ctc << G4endl;
                G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0012",
                            FatalException, ed);
              }
              // @@ How the LS cost=ctr can be compared with the CM ctc
              //G4ThreeVector cc3v=cc4Mom.vect();
              //G4ThreeVector kp3v=kp4Mom.vect();
              //G4double ctr=cc3v.dot(kp3v)/cc3v.mag()/kp3v.mag();
              //G4cout<<"G4Q::HQ:cost="<<ctc<<"="<<ctr<<", d="<<ctc-ctr<<G4endl;
#ifdef debug
              G4double ccM=sqrt(ccM2);
              G4double kappa=ex/(1.+kLS*(1.-ctkk)/pMass);// Energy of the RecoilQuark in LS
              G4cout<<"G4Q::HQ:>>ColDec>>CF("<<ccM<<")->F("<<sMass<<")+q"<<kp4Mom<<"="
                    <<kappa<<",hsfl="<<hsflag<<G4endl;
#endif
              //fmh=true; // -Not used?-
              // Fusion of the ColouredResidQuasm + kappa (LS) -> get residual Quasmon mass
              rQ4Mom=cr4Mom+kp4Mom;                  // 4-momentum of residual Quasmon
              G4LorentzVector retN4Mom=rQ4Mom+ResEnv4Mom;
              reTNM2=retN4Mom.m2();                  // RealMass of TotResidNuc forFragment
              // The following is a soft Q+q(kappa) check
              // ***VTN***
              //if(reTNM2>=tmpTM2 && fr4Mom.e()>=sCBE) // tmpTM2=SqGSMassOfTotResidNucleus
              // ***VBQ***
              //G4double rQM2=rQ4Mom.m2();             // TMP (Before the "kt" is defined)
              //if(rQM2>=minSqB && reTNM2>=tmpTM2 && fr4Mom.e()>=sCBE)   // minSqB = BndResQ
              // ***VFQ***
              //G4double rQM2=rQ4Mom.m2();             // TMP (Before the "kt" is defined)
              //if(rQM2>=minSqT && fr4Mom.e()>=sCBE)   // minSqB = SqGSMass of BoundResidQ
              // ***VQU***
              fQ4Mom=rQ4Mom+G4LorentzVector(0.,0.,0.,tmpBE); // Free Quasmon 4-mom
              G4double fQM2=fQ4Mom.m2();           // TMP (Before the "kt" is defined)
              if(fQM2>=minSqT && reTNM2>=tmpTM2 && fr4Mom.e()>=sCBE) // minSqT=SqGSMass
              {
                qCond=false;  // Ok, the appropriate q is found
                //ffdc=false;
#ifdef debug
                // ***VTN***
                //G4cout<<"G4Q::HQ:Attemp#"<<qCount<<".Yes.M2="<<reTNM2<<">"<<tmpTM2
                //      <<" & E="<<fr4Mom.e()<<" > CB+M="<<sCBE<<G4endl;
                // ***VBQ***
                //G4cout<<"G4Q::HQ:Attemp#"<<qCount<<".Yes.M2="<<rQM2<<">"<<minSqB<<G4endl;
                // ***VQU***+***VFQ***
                G4cout<<"G4Q::HQ:Attemp#"<<qCount<<".Yes.M2="<<fQM2<<">"<<minSqT<<G4endl;
#endif
              }
              else
              {
#ifdef debug
                // ***VTN***
                //G4cout<<"G4Q::HQ:Attempt#"<<qCount<<",NO.M2="<<reTNM2<<"<"<<tmpTM2
                //      <<" or E="<<fr4Mom.e()<<" < CB+M="<<sCBE<<G4endl;
                // ***VBQ***
                //G4cout<<"G4Q::HQ:Attempt#"<<qCount<<",NO.M2="<<rQM2<<"<"<<minSqB<<G4endl;
                // ***VQU***
                G4cout<<"G4Q::HQ:Attempt#"<<qCount<<",NO.M2="<<fQM2<<"<"<<minSqT<<G4endl;
                // ***VFQ***
                //G4cout<<"G4Q::HQ:Attempt#"<<qCount<<",NO.M2="<<rQM2<<"<"<<minSqT<<G4endl;
#endif
                // ***VBQ***VFQ***
                //if(reTNM2<tmpTM2 && rQM2>MEMrQM2 && fr4Mom.e()>=sCBE)//tM>minTM,maxRQM,CB
                // ***VTN***
                //if(reTNM2<tmpTM2 && reTNM2>MEMrQM2 && fr4Mom.e()>=sCBE)
                // ***VQU***
                if(reTNM2<tmpTM2 && fQM2>MEMrQM2 && fr4Mom.e()>=sCBE)//tM>minTM,maxRQM,CB
                {
                  // ***VQU***
                  MEMrQM2=fQM2;
                  // ***VBQ***VFQ***
                  //MEMrQM2=rQM2;
                  // ***VTN***
                  //MEMrQM2=reTNM2;
                  //------------
                  MEMkp4M=kp4Mom;
                  MEMfr4M=fr4Mom;
                  MEMrQ4M=rQ4Mom;
                  MEMreM2=reTNM2;
                }
                // ***VQU***
                else if(fr4Mom.e()<sCBE&&fr4Mom.e()>MEMsCBE&&reTNM2>=tmpTM2&&fQM2>MEMrQM2)
                // ***VBQ***VFQ***
                //else if(fr4Mom.e()<sCBE&&fr4Mom.e()>MEMsCBE&&reTNM2>tmpTM2&&rQM2>MEMrQM2)
                // ***VTN***
                //else if(fr4Mom.e()<sCBE && fr4Mom.e()>MEMsCBE && reTNM2>=tmpTM2)
                {
                  MEMsCBE=fr4Mom.e(); // Remember the best choice
                  MEMkp4M=kp4Mom;
                  MEMfr4M=fr4Mom;
                  MEMrQ4M=rQ4Mom;
                  MEMreM2=reTNM2;
                }
                else if(!qCount)                 //@@ Should not be here
                {
                  // ***VQU***
                  MEMrQM2=fQM2;
                  // ***VBQ***VFQ***
                  //MEMrQM2=rQM2;
                  // ***VTN***
                  //MEMrQM2=reTNM2;
                  //------------
                  MEMsCBE=fr4Mom.e();
                  MEMkp4M=kp4Mom;
                  MEMfr4M=fr4Mom;
                  MEMrQ4M=rQ4Mom;
                  MEMreM2=reTNM2;
                }
                else
                {
                  // ***VQU***
                  fQM2=MEMrQM2;
                  // ***VBQ***VFQ***
                  //rQM2=MEMrQM2;
                  // ***VTN***
                  //reTNM2=MEMrQM2;
                  //-----------
                  kp4Mom=MEMkp4M; // Make the best choice actual instead of the last
                  fr4Mom=MEMfr4M;
                  rQ4Mom=MEMrQ4M;
                  reTNM2=MEMreM2;
                }
              }
              qCount++;
            } // End of the WHILE of the q-choice for the fixed parent
            // If q-choice is exhosted, then get the best, not the last
            //quexf=true;                      // Quark Exchange is successfully done
#ifdef debug
            G4cout<<"G4Q::HadQ:RQ("<<rQ4Mom.m()<<")=C("<<cr4Mom.m()<<")+q"<<kp4Mom<<G4endl;
#endif
            //kt=rQ4Mom.m2();
            // ***VQU*** (Close for ***VBQ***VTN***VFQ***)
            ku=fQ4Mom.m2();
            //-----------
            //kp=rQ4Mom.rho()/sqrt(kt);
            // *** LIM ***
            G4LorentzVector     totC4Mom=rQ4Mom; // TotatResidualNucleus prototype
            if(envA-pBaryn>bEn) totC4Mom+=G4LorentzVector(0.,0.,0.,mbEn);
            else                totC4Mom+=G4LorentzVector(0.,0.,0.,envM-pMass);
            kn=totC4Mom.m2();
#ifdef debug
            G4cout<<"G4Q::HQ:A="<<envA<<",B="<<pBaryn<<",Q="<<rQ4Mom.m()<<","<<piF<<G4endl;
#endif
            m2_value=kt;
            tot4Mom-=rQ4Mom+fr4Mom;
#ifdef debug
            G4cout<<"G4Q::HQ:t4M="<<tot4Mom<<",hsfl="<<hsflag<<".Is kt="<<kt<<">"<<minSqB
                  <<" or kn="<<kn<<">"<<minSqN<<"? m2="<<m2_value<<", sPDG="<<sPDG<<G4endl;
#endif
            // Final check to accept or reject the quark-exchange
            // ***VFQ***
            //if(kn<minSqN && kt<minSqT)
            // ***VQU***
            if(kn<minSqN && ku<minSqT)
            // ***VBQ***
            //if(kn<minSqN && kt<minSqB)
            //if(kt<minSqT&&ffdc) 
            //if(kt<minSqT)
            // ***VTN*** (former default)
            //if(sPDG<MINPDG&&kt<minSqB||sPDG>MINPDG&&kn<minSqN)
            //if(sPDG<MINPDG&&kt<minSqB||sPDG>MINPDG&&kt<minSqB)
            //if(kn<minSqN)
            // ***VTN***
            //if(kt<minSqT&&sPDG!=90000001||kn<minSqN&&sPDG==90000001)//Nucleus for Neutron
            //if(kt<minSqT&&sMass>1200.||kn<minSqN&&sMass<1200.) //NuclEnreach for Nucleons
            // @@@@ Priveleged Nuteron !! ??? @@@@@
            //if(kn<minSqN&&sPDG==90000001||kt<minSqB&&sPDG!=90000001)//BindEnOnlyForNuter.
            {
              hsflag=true; // The quark exchange is REJECTED
#ifdef debug
              G4cout<<"G4Q::HQ:**hsflag=1** No, sPDG="<<sPDG<<", kt="<<kt<<"<"<<minSqB
                    <<" or kn="<<kn<<"<"<<minSqN<<G4endl;
#endif
            }
#ifdef debug
            else G4cout<<"G4Q::HQ:YES,t="<<kt<<">"<<minSqB<<",n="<<kn<<">"<<minSqN<<G4endl;
#endif
          }
        }
        else                                 // ==> "HadronicCandidate hadronization" case
        {
          kt = (quasM-dk)*(quasM-sM2/dk);  // squared mass of the RecoilQuasmon
          G4double rQM=0.;
          if(kt>0.) rQM=sqrt(kt);                 // Mass of the residual quasmon
          fr4Mom=G4LorentzVector(0.,0.,0.,sMass); // 4-mom update for the fragment
          rQ4Mom=G4LorentzVector(0.,0.,0.,rQM);   // 4-mom update for the RecoilQuasmon
          if(!G4QHadron(q4Mom).DecayIn2(fr4Mom, rQ4Mom))
          {
            G4ExceptionDescription ed;
            ed << "Can't dec Quasmon in Fr+rQuas: q4M=" << q4Mom << ", sM="
               << sMass << ", rQM=" << rQM << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0013",FatalException,ed);
          }
          //@@@@@@@@ rQ4Mom (4-momentum of residual Quasmon) must be defined?! How?
          if(envPDG>MINPDG&&envPDG!=NUCPDG)
          {
            // *** LIM ***
            G4LorentzVector TCRN=rQ4Mom;
            if(envA>bEn)    TCRN+=bEn4M;
            else            TCRN+=env4M;
            kn=TCRN.m2();                  // tot4M - fr4Mom
          }
          else kn=kt;
        }
        // *** LIM ***
        G4LorentzVector tL=rQ4Mom;         // @@ Is rQ4Mom calculated for hadrons??
        tL+=G4LorentzVector(0.,0.,0.,reM);
        G4double tM=tL.m();                // Real Residual Total Nucleus Mass (hadr/frag)
        // Residual S+S limit (absoluteLowLimit for corresponding P-res.) for R->S+S Decay
#ifdef debug
        G4cout<<"G4Q::HQ:k="<<kMom<<".F:"<<kt<<">"<<minSqB<<",N:"<<kn<<">"<<minSqN<<" &tM="
              <<tM<<">rtM="<<rtM<<" & hsfl="<<hsflag<<" to avoid decay R+S="<<sPDG<<G4endl;
#endif
        //@@@?@@@tM is not defined fpr hadrons as rQ4Mom is not defined (try define!)@@@?@@
        // In following minSqT is for notBoundedRecoilQuasmon, minSqB is for boundedQuasmon
        // ***VFQ***
        //if(kt>minSqT+.01 && tM>rtM && !hsflag)
        // ***VBQ*** && ***VQU***
        if(kt>minSqB+.01 && tM>rtM && !hsflag)
        //if((kt>minSqB+.01&&sPDG<MINPDG || sPDG>MINPDG&&kt>minSqB+.01&&tM>rtM) && !hsflag)
        // ***VTN***
        //if((kt>minSqB+.01&&sPDG<MINPDG || sPDG>MINPDG&&kn>minSqN+.01&&tM>rtM) && !hsflag)
        //if(tM>rtM&&!hsflag)                               // Mass(RNucleus)>M_min
        //if(tM>rtM&&kp<kpMax&&!hsflag)                     // Mass(RNucleus)>M_min
        //if(2>3)                                      // *** Close k-correction ***
        {
          // ***VTN*** (?)
          //if(sPDG<MINPDG)                      // Hadronic candidate: finish calculations
          // ***VBQ***VFQ***VQU***
          //if(2>3)                             // Close crrection for hadrons @@?p-pbar?@@
          //{
          //  G4double np = nOfQ - 3;             // Power for an residual quasmon mass
          //  G4double cM = pow(minSqB/kt,np);    // Cut for PossibleQuasmon residual mass
          //  G4double uR = G4UniformRand();
          //  G4double rn = pow(cM +(1.-cM)*uR, 1./np);
#ifdef debug
          //  G4cout<<"G4Q::HQ: YES for the hadron it's big enough:t="<<kt<<" > T="<<minSqB
          //        <<",np="<<np<<",cM="<<cM<<",uR="<<uR<<",rn="<<rn<<",kn="<<kn<<G4endl;
#endif
          //  m2_value = kt*rn;                   // SquaredMass of ResidualQuasmon (hadr)
          //}
          //else
          //{
#ifdef debug
            G4cout<<"G4Q::HQ:YES forFragment it's big enough:kn="<<kn<<">"<<minSqN<<G4endl;
#endif
            m2_value = kt;                      // SquaredMass of ResidualQuasmon (fragm)
          //}
        }
        else
        {
          hsflag=true;                          // Decay in ThisHadron/Fragment+(SHadron)
#ifdef debug
          G4cout<<"G4Q::HQ:NO,hsfl=1,kt="<<kt<<"<"<<minSqB<<" or M="<<tM<<"<"<<rtM<<G4endl;
#endif
        }
#ifdef debug
        G4cout<<"G4Q::HQ:******>>rM="<<rMass<<",sqM2="<<sqrt(m2_value)<<",hsfl="<<hsflag<<G4endl;
#endif
        rMass=sqrt(m2_value);                         // if(hsflag)(TwoPartDecay) it's fake 0.
        G4double m3_value=m2_value*rMass;
        G4int cB    = abs(curQ.GetBaryonNumber());// Baryon Number of residual
        rPDG        = curQ.GetSPDGCode();       // PDG of lowest ResiduaiQuasmon hadr state
        G4double rrn=G4UniformRand();           // The same procedure as for "rqPDG"
        if(rPDG==111&&sPDG!=111&&rrn>.5) rPDG=221;
        //if(rPDG==221&&sPDG!=221&&sPDG!=331&&rrn<.5) rPDG=111;
        G4int aPDG  = abs(rPDG);
        G4int rb    = abs(curQ.GetBaryonNumber()); // BaryNum of residual hadronic state
        G4double rcMass=-BIG; //@@ just BIG number // Prototype of minimalMass for residual
        if (!rPDG)
        {
          G4ExceptionDescription ed;
          ed << "Unidentifiable residual Hadron: rQ =" << curQ << ", rPDG=" << rPDG
             << "(b=" << rb << ") + sPDG=" << sPDG << "(sM=" << sMass << ")" << G4endl;
          G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0014",
                      FatalException, ed);
        }
        G4double sB = 1473.;                    // @@ Mean of DELTA(3/2) & N(1680)(5/2)
        if(rPDG!=10) rcMass=G4QPDGCode(rPDG).GetMass();// residualMass forNotChipolino case
        else         sB=0.;                     // Chipolino never decays in hadrons
        if(rPDG==221 || rPDG==331) rcMass=mPi0;
        G4double bs = rcMass+mPi0;
        G4bool rFl=false;                       // true: ResidualResonance,false: Quasmon
        //if(sPDG<MINPDG&&envPDG==NUCPDG&&bs>rMass)rFl=true;// @@ Kills Resonance+Resonance
        //if(sPDG<MINPDG&&envPDG==NUCPDG)rFl=G4UniformRand()<bs*bs/m2_value;//ProbFun:m_min^2/m^2
        if(sPDG<MINPDG&&envPDG==NUCPDG)rFl=G4UniformRand()<bs*bs*bs/m3_value;//ProbFun:minM^3/m^3
#ifdef debug
        G4cout<<"G4Q::HQ: sPDG="<<sPDG<<", hsflag="<<hsflag<<", rPDG="<<rPDG<<curQ<<",rM="
              <<rMass<<",rb="<<rb<<",F="<<rFl<<",v="<<m2_value<<", bs="<<bs<<G4endl;
#endif
        if(!hsflag&&rFl&&rPDG&& rPDG!=10 && rb<2 && aPDG!=1114 && aPDG!=2224 && aPDG!=3334)
        { // ------------------------------->>--------------->> Hadron-Parton Duality decay
          G4int regPDG = 0;                            // PDG prototype for G-meson
          G4int refPDG = 0;                            // PDG prototype for F-meson
          G4int redPDG = 0;                            // PDG prototype for D-meson
          G4int repPDG = 0;                            // PDG prototype for P-meson
          if(rPDG && rPDG!=10)                         // Can the residual be a Hadron ?
          {
            if     (rPDG== 3122) rPDG= 3212;           // LAMBDA* converted to SIGMA*
            else if(rPDG==-3122) rPDG=-3212;
            if(rPDG>0)repPDG=rPDG+2;                   // Make P-state out of S-state
            else      repPDG=rPDG-2;                   // Subtract 2 for the negative PDG
            if(repPDG>0)redPDG=repPDG+2;               // Make D-state out of P-state
            else        redPDG=repPDG-2;               // Subtract 2 for the negative PDG
            if(redPDG>0)refPDG=redPDG+2;               // Make F-state out of D-state
            else        refPDG=redPDG-2;               // Subtract 2 for the negative PDG
            if(refPDG>0)regPDG=refPDG+2;               // Make G-state out of F-state
            else        regPDG=refPDG-2;               // Subtract 2 for the negative PDG
            //if((rPDG==221||rPDG==331)&&sPDG==111) rPDG=111; // eta/eta'=>Pi0
#ifdef debug
            G4cout<<"G4Q::HQ:QuasM="<<quasM<<valQ<<")->H("<<sPDG<<")+R("<<rPDG<<")"<<",rp="
                  <<repPDG<<",rd="<<redPDG<<",rf="<<refPDG<<",rg="<<regPDG<<G4endl;
#endif
            G4double resM2  = G4QPDGCode(  rPDG).GetMass2(); // Mass^2 of the S-resonance
            G4double repM2  = G4QPDGCode(repPDG).GetMass2(); // Mass^2 of the P-resonance
            G4double redM2  = G4QPDGCode(redPDG).GetMass2(); // Mass^2 of the D-resonance
            G4double refM2  = G4QPDGCode(refPDG).GetMass2(); // Mass^2 of the F-resonance
            sB              = sqrt((resM2+repM2)/2.);  // Boundary between S&P resonances
            G4double     pB = sqrt((repM2+redM2)/2.);  // Boundary between P&D resonances
            G4double     dB = sqrt((redM2+refM2)/2.);  // Boundary between D&F resonances
            G4double     fB = sqrt(refM2)+150.;        // Boundary between F&G resonances
            if(!cB)      fB=  sqrt((refM2+G4QPDGCode(regPDG).GetMass2())/2.);
            G4double dif=quasM-sMass;
            G4double rM = GetRandomMass(repPDG,dif);   // Randomize Mass of P-resonance
            G4double dM = GetRandomMass(redPDG,dif);   // Randomize Mass of D-resonance
            G4double fM = GetRandomMass(refPDG,dif);   // Randomize Mass of F-resonance
#ifdef debug
            G4cout<<"G4Q::HQ: rM="<<rM<<",rMa="<<rMass<<",sB="<<sB<<"(bQ="<<bQ<<"),pB="<<pB
                  <<",dM="<<dM<<",dB="<<dB<<",fM="<<fM<<",fB="<<fB<<G4endl;
#endif
            if(((rM>0 && rMass<pB && rMass>sB) || (dM>0 && rMass>pB && rMass<dB) ||
               (fM>0 && rMass>dB && rMass<fB)) && theEnvironment.GetPDG()==NUCPDG)
            {// Final H+R decay of QUASMON in vacuum (should not exist if Environ exists)
              if     (rMass>pB && rMass<dB && dM>0)    // D-resonance case
              {
                repPDG=redPDG;
                rM=dM;
              }
              else if(rMass>dB && rMass<fB && dM>0)    // F-resonance case
              {
                repPDG=refPDG;
                rM=fM;
              }                                        // If not changed - P-resonance
#ifdef debug
              G4cout<<"G4Q::HQ:s="<<sPDG<<",Q=>rM="<<rMass<<"(minQ="<<rPDG<<curQ<<")+sB="
                    <<sB<<G4endl;
#endif
              if(quasM<rM+sMass &&(sPDG==221||sPDG==331))// Change eta-Cand to pi-Cand
              {
                sPDG=111;
                sMass=mPi0;
              }
              G4LorentzVector r4Mom(0.,0.,0.,rM);    // P/D/F-resonance with a random Mass
              G4LorentzVector s4Mom(0.,0.,0.,sMass); // Mass's random since ProbabilityTime
              G4double sum=rM+sMass;
              if(fabs(quasM-sum)<eps)
              {
                r4Mom=q4Mom*(rM/sum);
                s4Mom=q4Mom*(sMass/sum);
              }
              else if(quasM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
              {
                // G4cerr<<"**G4Quasmon::HadronizeQuasmon:rPD="<<repPDG<<"(rM="<<rMass
                //      <<")+sPD="<<sPDG<<"(sM="<<sMass<<"), Env="<<theEnvironment<<G4endl;
                // throw G4QException("G4Quasmon::HadronizeQuasmon: H+Res Decay failed");
                G4ExceptionDescription ed;
                ed << "H+Res Decay failed: rPD=" << repPDG << "(rM=" << rMass
                   << ")+sPD=" << sPDG << "(sM=" << sMass << "), Env="
                   << theEnvironment << G4endl;
                G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0015",
                            FatalException, ed);
              }
#ifdef debug
              G4cout<<"G4Q::HQ:=== 1 ===> HadronVec, Q="<<q4Mom<<" -> s4M="<<s4Mom<<"("
                    <<sPDG<<"), r4M="<<r4Mom<<"("<<repPDG<<")"<<G4endl;
#endif
              //@@CHECK CoulBar and may be evaporate instead
              G4QHadron* curHadr1 = new G4QHadron(repPDG,r4Mom,curQ);// Create Resid+Hadron
              FillHadronVector(curHadr1);            // Fill "new curHadr1" (del. equiv.)
              //@@@ Renaming correction to DistinguishFromEvaporation (for BF/FSI purposes)
              if     (sPDG==2112) sPDG=90000001;     // rename PDG of theNeutron@@HadrToNuc
              else if(sPDG==2212) sPDG=90001000;     // rename PDG of the proton
              else if(sPDG==3122) sPDG=91000000;     // rename PDG of the lambda
              // @@@ ^^^^^^^^^^^^^^^^^^^^
              G4QHadron* curHadr2 = new G4QHadron(sPDG,s4Mom);// CreateHadron for Candidate
              FillHadronVector(curHadr2);            // Fill "new curHadr2"(del equivalent)
              ClearQuasmon();                        // This Quasmon is done
              qEnv=theEnvironment;                   // Update the QEnvironment
              return theQHadrons;                    // The last decay of the quasmon...
            }
          }
        }
        curQ = memQ;                                   // Recover original curQ=valQ-candQ
        //fdul = (rMass<sB&&rFl&&rPDG!=10);
        fdul = rFl && rPDG!=10;
      }
      // ***VFQ***
      //if(kn>minSqN && kt>minSqT)
      // ***VQU***
      if (kn > minSqN && ku > minSqT)
      // ***VBQ***
      //if(kn>minSqN && kt>minSqB)
      // ***VTN***
      //if(kt>minSqB&&sPDG<MINPDG || sPDG>MINPDG&&kn>minSqN)
      {
        pCond=false;       // Ok, the appropriate parent cluster is found
#ifdef debug
        // ***VTN***VBQ***
        //G4cout<<"G4Q::HQ:P-Attempt#"<<pCount<<" *Yes* sPDG="<<sPDG<<",kt="<<kt<<">"
        //      <<minSqB<<" || kn="<<kn<<">"<<minSqN<<G4endl;
        // ***VQU***
        G4cout<<"G4Q::HQ:P-Attempt#"<<pCount<<" *Yes* sPDG="<<sPDG<<",ku="<<ku<<">"
              <<minSqT<<" || kn="<<kn<<">"<<minSqN<<G4endl;
        // ***VFQ***
        //G4cout<<"G4Q::HQ:P-Attempt#"<<pCount<<" *Yes* sPDG="<<sPDG<<",kt="<<kt<<">"
        //      <<minSqT<<" || kn="<<kn<<">"<<minSqN<<G4endl;
#endif
      }
      else
      {
#ifdef debug
        // ***VBQ***VTN***
        //G4cout<<"G4Q::HQ:P-Attempt#"<<pCount<<",No. kt="<<kt<<"<"<<minSqB<<" or kn="<<kn
        //      <<"<"<<minSqN<<" or E="<<fr4Mom.e()<<"<"<<sCBE<<G4endl;
        // ***VQU***
        G4cout<<"G4Q::HQ:P-Attempt#"<<pCount<<",No. ku="<<ku<<"<"<<minSqT<<" or kn="<<kn
              <<"<"<<minSqN<<" or E="<<fr4Mom.e()<<"<"<<sCBE<<G4endl;
        // ***VFQ***
        //G4cout<<"G4Q::HQ:P-Attempt#"<<pCount<<",No. kt="<<kt<<"<"<<minSqT<<" or kn="<<kn
        //      <<"<"<<minSqN<<" or E="<<fr4Mom.e()<<"<"<<sCBE<<G4endl;
#endif
        // ***VTN*** (former default)
        //if(kt>=minSqB || sPDG>MINPDG&&kn>minSqN)
        // ***VBQ***
        //if(kn<minSqN && kt>=minSqB)
        // ***VFQ***
        //if(kn<minSqN && kt>=minSqT)
        // ***VQU***
        if (kn < minSqN && ku < minSqT)
        {
          // ***VTN*** (former default)
          //if(kt<minSqB&&sPDG<MINPDG && kt>PMEMktM2 || 
          //   kn<minSqN&&sPDG>MINPDG && kn>PMEMknM2)
          // ***VBQ***
          //if(kt<minSqB && kt>PMEMktM2)
          // ***VFQ***
          //if(kt<minSqT && kt>PMEMktM2)
          // ***VQU***
          if(ku < minSqT && ku > PMEMktM2)
          {
            // ***VQU***
            PMEMktM2=ku;
            // ***VFQ***VBQ***VTN***
            //PMEMktM2=kt;
            // ---------
            PMEMknM2=kn;
            PMEMfr4M=fr4Mom;
            PMEMrQ4M=rQ4Mom;
            PMEMreM2=reTNM2;
            PMEMrMas=rMass;
            PMEMpMas=pMass;
            PMEMsMas=sMass;
            PMEMdMas=dMass;
            PMEMmiSN=minSqN;
            PMEMmiST=minSqT;
            PMEMmiSB=minSqB;
            PMEMrPDG=rPDG;
            PMEMsPDG=sPDG;
            PMEMpPDG=pPDG;
            PMEMpQC =pQC;
            PMEMsQC =sQC;
            PMEMtQC =transQC;
            PMEMcQC =curQ;
            PMEMhsfl=hsflag;
            PMEMnucf=nucflag;
#ifdef debug
            G4cout<<"G4Q::HQ:RemTheBest rPDG="<<rPDG<<",sPDG="<<sPDG<<",kt="<<kt<<G4endl;
#endif
          }
          else if(!pCount)
          {                    // @@ Should not be here
            // ***VQU***
            PMEMktM2=ku;
            // ***VFQ***VBQ***VTN***
            //PMEMktM2=kt;
            // ---------
            PMEMknM2=kn;
            PMEMfr4M=fr4Mom;
            PMEMrQ4M=rQ4Mom;
            PMEMreM2=reTNM2;
            PMEMrMas=rMass;
            PMEMpMas=pMass;
            PMEMsMas=sMass;
            PMEMdMas=dMass;
            PMEMmiSN=minSqN;
            PMEMmiST=minSqT;
            PMEMmiSB=minSqB;
            PMEMrPDG=rPDG;
            PMEMsPDG=sPDG;
            PMEMpPDG=pPDG;
            PMEMpQC =pQC;
            PMEMsQC =sQC;
            PMEMtQC =transQC;
            PMEMcQC =curQ;
            PMEMhsfl=hsflag;
            PMEMnucf=nucflag;
#ifdef debug
            G4cout<<"G4Q::HQ:RemTheFirst rPDG="<<rPDG<<",sPDG="<<sPDG<<",kt="<<kt<<G4endl;
#endif
          }
          else
          {
            fr4Mom=PMEMfr4M; // OK -> Recover the best found values
            rQ4Mom=PMEMrQ4M; // OK
            reTNM2=PMEMreM2; // OK
            rMass =PMEMrMas; // OK
            pMass =PMEMpMas; // OK
            sMass =PMEMsMas; // OK
            dMass =PMEMdMas; // OK
            minSqN=PMEMmiSN; // ?
            minSqT=PMEMmiST; // OK
            minSqB=PMEMmiSB; // OK
            rPDG  =PMEMrPDG; // OK
            sPDG  =PMEMsPDG; // OK
            // ***VQU***
            ku=PMEMktM2;
            // ***VFQ***VBQ***VTN***
            //kt    =PMEMktM2;
            //-------------------
            kn    =PMEMknM2;
            pPDG=PMEMpPDG;   // OK
            pQC=PMEMpQC;     // OK
            sQC=PMEMsQC;     // OK
            transQC=PMEMtQC; // OK
            curQ=PMEMcQC;    // OK
            hsflag=PMEMhsfl; // OK
            nucflag=PMEMnucf;// OK
          }
        }
      }
      pCount++;
    } // End of the WHILE of the parent choice
#ifdef debug
    G4cout<<"G4Q::HQ:>rPDG="<<rPDG<<curQ<<",sPDG="<<sPDG<<",kt="<<kt<<",F="<<fprob
          <<",totQC="<<totQC<<",sQC="<<sQC<<G4endl;
#endif
    if(fprob)                   // Calc PDG of ResidQuasm as an S-hadr
    {
      rPDG=curQ.GetSPDGCode();
      G4double rrr=G4UniformRand();    // TheSameAs for "rqPDG" & prev. "rPDG"
      if(rPDG==111&&sPDG!=111&&rrr>.5) rPDG=221;
      if(rPDG==221&&sPDG!=221&&sPDG!=331&&rrr<.5) rPDG=111;
    }
    //G4double reMass=sqrt(minSqT);    // Min ResidQuasmon Mass after decay
    G4double reMass=sqrt(minSqB);      // Min ResidQuasmon Mass after decay
    if (!rPDG)
    {
      G4ExceptionDescription ed;
      ed << "Unidentifiable residual Hadron: Q=" << curQ << ",r=" << rPDG
         << "+s=" << sPDG << "(sM=" << sMass << ")" << G4endl;
      G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0016", FatalException, ed);
    }
    if(rPDG==221||rPDG==331) reMass=mPi0;
    G4double aMass=0.;      // @@ get rid of the "aMass" it was necessary only for pap
    //G4double aMass=mPi0;
    //if(envPDG>MINPDG&&(sPDG<MINPDG||envPDG!=pPDG))aMass=0.;

    if ( ( ( (sPDG < MINPDG && envPDG > MINPDG && envPDG != NUCPDG) || 
             (sPDG > MINPDG && sPDG!=NUCPDG && envPDG > pPDG)
           ) && iniBN > 0
         ) ||  iniBN > 1 ||  rPDG == 10
       ) aMass=0.;         // No Pi0 cond.(eg in NucE)

#ifdef debug
    G4cout <<"G4Q::HQ:Is hsfl="<<hsflag<<" or fdul="<<fdul<<" or [rM="<<rMass<<"<"<<reMass
           <<" + "<<aMass<<" or rM2="<<reTNM2<<" < miM2="<<tmpTM2<<" and ePDG="<<envPDG
           <<">pPDG="<<pPDG<<"] to fail?"<<G4endl;
#endif
    //        *** This is a condition, when fragmentation can not be continued ***
    if ( hsflag || 
         (sPDG < MINPDG && rMass < reMass+aMass) || 
         (sPDG > MINPDG && envPDG > pPDG && reTNM2 < tmpTM2) || 
         fdul )
    {
      // -->> Decay Q->S+H or Q/C->H1+H2 or suck in or evaporate or slow down or decay etc.
      // =-------=> Decide what to do, if fragmentation in this Candidate is impossible ===
#ifdef debug
      G4cout<<"G4Q::HQ: Yes(No), hsf="<<hsflag<<",sPDG="<<sPDG<<",pM="<<pMass<<",Env="
            <<envPDG<<",QM="<<quasM<<valQ<<", fpr="<<fprob<<G4endl;
#endif
      G4QPDGCode rQPDG=G4QPDGCode(rPDG);
      if(hsflag) rMass=rQPDG.GetMass();          // Get Nuclear Cluster mass
      if(sPDG>MINPDG&&sPDG!=NUCPDG)              // "Quark exchange hadronization" case
      {
        G4QContent tmpEQ=envQC-pQC;              // Quark content for Residual Environment
        G4QNucleus tmpN(tmpEQ);                  // Pseudo nucleus for Residual Environment
        G4double   tmpNM=tmpN.GetMZNS();         // GS Mass of Residual Environment
        G4QContent tmpRQ=valQ+transQC;           // QContent of Residual Quasmon
        //G4QNucleus tmpR(tmpRQ);                  // Nucleus for Residual Quasmon
        //G4double   tmpRM=tmpR.GetMZNS();         // GS Mass of Residual Quasmon
        G4LorentzVector ResEnv4Mom(0.,0.,0.,tmpNM);// 4-Mom for the Residual Environment
        if(rQ4Mom==zeroLV)
        {
#ifdef pdebug
          G4ExceptionDescription ed;
          ed << "Why Fail? (5): NEEDS-EVAP-5,Q=" << q4Mom << valQ << ",QEnv="
             << theEnvironment << G4endl;
          G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0017", FatalException, ed);
#endif
          qEnv=theEnvironment;
          return theQHadrons;
        }
        G4LorentzVector retN4Mom=rQ4Mom+ResEnv4Mom;// 4-Mom for the Total Residual Nucleus
        G4double retNM2=retN4Mom.m2();    // SqMass of the Total Residual Nucleus @@ double
        G4double retNM=sqrt(retNM2);      // Mass of the Total Residual Nucleus @@ double ?
        G4QContent tmpTQ=tmpEQ+tmpRQ;     // QC for TotalResidualNucleus to the Fragment
        G4QNucleus tmpT(tmpTQ);           // Nucleus for the Total Residual Nucleus
        //G4QNucleus tmpT(tmpTQ,retN4Mom); // Nucleus for the Total Residual Nucleus
        G4double   tmpTM=tmpT.GetMZNS();  // MinMass of the Total Residual Nucleus @@double
        if(tmpTM>retNM) tmpT=G4QNucleus(tmpTQ,retN4Mom);
        G4QPDGCode sQPDG(sPDG);
        // tmpNM - residualenvironmentm (M),retNM - mass of TotalNucl [MN=sqrt((E+M)^2-p^2]
        // tmpRM - ResidQuasmongsm (m_GS), rQ4Mom - 4-momentum of ResidQuasmon (E,p,m)
        // potE=[sqrt(E^2*M^2-m^2*M^2+m_GS^2*MN*2)-m^2-E*M]/MN=-U (bindEn should be cutOff)
        //G4double pEc=2*(tmpRM+tmpNM-retNM);      // DoubledBindingEnergy (virial theorem)
        rMass=rQPDG.GetMass();        
        // MKG -- beg
        G4int rB=rQPDG.GetBaryNum();         // Baryon number of residQ
        G4double rCB=theEnvironment.CoulombBarrier(rQPDG.GetCharge(),rB);// CB for residQ
        if(rCB < 0.) rCB=0.;
        G4int sB=sQPDG.GetBaryNum();         // Baryon number of residQ
        G4double sCB=theEnvironment.CoulombBarrier(sQPDG.GetCharge(),sB);// CB of Fragm.
        if(sCB < 0.) sCB=0.;
        // MKG -- end
#ifdef debug
        //G4int bSplit=tmpT.SplitBaryon();     // Possibility to split baryon from TotResN
        //G4double EQ=rQ4Mom.e();              // EnergyOfResidualQuasmon (E)
        //G4double em=tmpNM*EQ;                // ResEnvM * EnergyOfResidualQuasmon (M*E)
        //G4double mM=retNM*tmpRM;             // TotResNuclM*GSMassResidQuasmon (m_GS*MN)
        //G4double pEn=(sqrt(em*em-m2_value*tmpNM*tmpNM+mM*mM)-m2_value-em)/retNM; //Real BindingEnergy
        //G4double pEt=tmpNM*(EQ+tmpNM-retNM)/retNM; // Energy Transfer to nucleus
        //G4double PQ=rQ4Mom.rho();                  // mod3MomentumOfResidualQuasmon
        //G4double pPt=tmpNM*PQ/retNM;               // mod3Momentum Transfer to nucleus
        //G4cout<<"G4Q::HQ:tM="<<totMass<<">RE="<<tmpNM<<"+RQ="<<rMass<<"+F="<<sMass
        //      <<"+rCB="<<rCB<<"+sCB="<<sCB<<"="<<tmpNM+rMass+sMass+rCB+sCB<<G4endl;
        G4cout<<"G4Q::HQ:tM="<<totMass<<",totQC="<<totQC<<",rtQC="<<tmpTQ<<",pQC="<<pQC
              <<",sB="<<sB<<",resB="<<tmpT.GetA()<<G4endl;
#endif
        // MKG
          if(nQuasms==1 && tmpNM+rMass+rCB+sMass+sCB < totMass &&
             (sB==1 || (sB==2 && G4UniformRand()<.2) || (sB==3 && G4UniformRand()<.1)) &&
             (rB==1 || (rB==2 && G4UniformRand()<.2) || (rB==3 && G4UniformRand()<.1)) )
        //if(2>3) //*** Attempt " Decay in resEnv+resQ+Fragment" is closed ***
        {
          G4LorentzVector fr4M = G4LorentzVector(0.,0.,0.,sMass);//GSM of Fragment
          G4LorentzVector re4M = G4LorentzVector(0.,0.,0.,tmpNM);//GSM of ResidualEnviron
          G4LorentzVector rq4M = G4LorentzVector(0.,0.,0.,rMass);//GSM of ResidualQuasmon
#ifdef debug
          G4double cfM=fr4Mom.m();                               // @@ ?
          G4double ctM=tot4M.m();                                // @@ ?
          G4cout<<"G4Q::HQ: *YES*,tM="<<ctM<<"="<<totMass<<",fM="<<cfM<<"="<<sMass<<G4endl;
#endif
          G4double sum=tmpNM+sMass+rMass;
          if(fabs(totMass-sum)<eps)
          {
            re4M=tot4M*(tmpNM/sum);
            rq4M=tot4M*(rMass/sum);
            fr4M=tot4M*(sMass/sum);
          }
          else if(totMass<sum || !G4QHadron(tot4M).DecayIn3(rq4M,re4M,fr4M))
          {
            G4ExceptionDescription ed;
            ed << "DecayIn Frag+ResQ+ResE failed: Decay (" << totMass << ") in Fragm("
               << sMass <<")+ResQ("<< rMass <<")+ResEnv("<< tmpNM <<")="<< sum << G4endl;
            G4Exception("G4Quasmon::HadrQuasmon()", "HAD_CHPS_0018", FatalException, ed);
          }
          G4QHadron* resQH = new G4QHadron(tmpRQ,rq4M); // Create Hadron for ResidQuasm
          FillHadronVector(resQH);               // Fill ResidQuasm Hadron (del.equiv.)
          if(nQuasms==1)                         // Environment as a fragment for nQ=1
          {
            G4QHadron* envH = new G4QHadron(tmpEQ,re4M);// Create Fragment for ResEnviron
            FillHadronVector(envH);              // Fill MovingEnvironment (del.equiv)
            qEnv = vacuum;                       // Distruct Environment
          }
          else
          {
            qEnv=G4QNucleus(tmpEQ,re4M);         // Create Nucleus for MovingResEnv
#ifdef debug
            G4cout<<"**G4Q::HQ:(3)**KeepEnvironmentMoving**, nQ="<<nQuasms<<G4endl;
#endif
          }
          G4QHadron* candH = new G4QHadron(sPDG,fr4M);// Create Hadron for Candidate
          FillHadronVector(candH);               // Fill CandiFragm Hadron (del.equiv.)
          ClearQuasmon();                        // This Quasmon is done
          return theQHadrons;                    // The last decay of the quasmon...
        }
        //else if(nQuasms==1&&tmpTM+sMass<totMass) //Lose p,go out,leave GSResNuc
        // MKG : @@ This does not conserv the baryon number...
        else if(nQuasms==1 && tmpTM+sMass+sCB < totMass) //Lose p,goOut,leaveGSResNuc
        //else if(2>3) // ********** Decay in Fragm + GSResidNucleus is Closed ************
        {
          qEnv = G4QNucleus(tmpTQ,retN4Mom);         // Createa Nucleus for TotalResidNucl
#ifdef debug
          G4cout<<"G4Q::HQ:(2)*KeepEnvironmentMoving*,nQ="<<nQuasms<<",Env="<<qEnv<<G4endl;
#endif
          //G4QHadron* envH = new G4QHadron(tmpTQ,retN4Mom); //@@ Moving Environment !
          //FillHadronVector(envH);                  // Fill MovingEnvironment (del.equiv.)
          //qEnv = vacuum;
#ifdef debug
          G4LorentzVector d4M=tot4M-retN4Mom-fr4Mom;
          G4QContent dQC=totQC-tmpTQ-sQC;
          G4cout<<"G4Q::HQ: rTotM="<<retN4Mom.m()<<" >? GSM="<<tmpTM<<",d4M="<<d4M<<",dQC="
                <<dQC<<G4endl;
#endif
          G4QHadron* candHadr = new G4QHadron(sPDG,fr4Mom);// Createa Hadron for Candidate
          FillHadronVector(candHadr);                // Fill the RadiatedHadron (del.eq.)
#ifdef debug
          G4double frM=fr4Mom.m();
          G4LorentzVector dif2=tot4M-retN4Mom-fr4Mom;
          G4cout<<"G4Q::HQ:sM="<<sMass<<"="<<frM<<", fT="<<fr4Mom.e()-frM<<",dif24M="<<dif2
                <<G4endl;
#endif
          ClearQuasmon();                             // This Quasmon is done
          return theQHadrons;                        // The last decay of the quasmon...
        }
        else if(totBN>1 &&totMass>totM &&totS>=0&&envPDG>MINPDG&&envPDG!=NUCPDG)// EvaPanic
        //else if(2>3) // ********** EvaPanic is Closed ************
        {
#ifdef ppdebug
          //@@ May be recalculate hadronization ??
          G4double fraM=fr4Mom.m();
          G4double kinE=fr4Mom.e()-fraM;
          G4double sumM=tmpTM+fraM;
          G4ExceptionDescription ed;
          ed << "Why Fail?(6): ProductMasses>totalMass: EV-6: TotEVAPORATION:s=" << sPDG
             << ",T=" << kinE << ",RM=" << retN4Mom.m() << "<" << tmpTM << ",tQC="
             << transQC << ",E=" << excE << ",sM=" << sumM << ">tM=" << totMass << ",nQ="
             << nQuasms << G4endl;
          G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0019", FatalException, ed);
#endif
#ifdef debug
          G4cout<<"G4Q::HQ:Q="<<q4Mom<<quasM<<",E="<<theEnvironment<<",P="<<phot4M<<G4endl;
#endif
          qEnv=theEnvironment;
          return theQHadrons;
        }
        else if(totBN==1 && nQuasms==1) // Decay of the baryonic Total Nucleus state
        {
#ifdef debug
          G4cout<<"G4Q::HQ:tB=1,nQ=1,Z="<<totZ<<",S="<<totS<<totQC<<",M="<<totMass<<G4endl;
#endif
          G4double nucM= mProt;
          G4double piM = 0.;
          G4int nucPDG = 2212;
          G4int piPDG  = 22;
          if(abs(totS)==1)
          {
            if(totS==1)                 // Decay of the strange hyperstate
            {
              if(!totZ&&totMass>mLamb+mPi0)
              {
                nucM  = mLamb;
                nucPDG= 3122;
                piM   = mPi0;
                piPDG = 111;
              }
              else if(abs(totZ)==1&&totMass>mLamb+mPi)
              {
                nucM  = mLamb;
                nucPDG= 3122;
                piM   = mPi;
                if(totZ>0) piPDG = 211;
                else       piPDG =-211;
              }
              else
              {
                G4ExceptionDescription ed;
                ed << "Pi + Lambda decay error:Z=" << totZ << ",S=" << totS
                   << totQC << ",tM=" << totMass << G4endl;
                G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0020",
                            FatalException, ed);
              }
            }
            else                      // Decay of the anti-strange hyperstate
            {
              if(!totZ&&totMass>mNeut+mK0)
              {
                nucM  = mNeut;
                nucPDG= 2112;
                piM   = mK0;
                piPDG = 311;
              }
              else if(totZ==2&&totMass>mProt+mK)
              {
                piM   = mK;
                piPDG = 321;
              }
              else if(totZ==1&&totMass>mProt+mK0&&G4UniformRand()>0.5)
              {
                piM   = mK0;
                piPDG = 311;
              }
              else if(totZ==1&&totMass>=mNeut+mK)
              {
                nucM  = mNeut;
                nucPDG= 2112;
                piM   = mK;
                piPDG = 321;
              }
              else
              {
                G4ExceptionDescription ed;
                ed << "K + Nucleon decay error: Z=" << totZ << ",S=" << totS
                   << totQC << ",tM=" << totMass << G4endl;
                G4Exception("G4Quasmon::HadronizeQuasmon", "HAD_CHPS_0021",
                            FatalException, ed);
              }
            }
          }
          else if(totMass>PiNM&&!totS) // Decay in nucleon & pion
          {
            if(!totZ&&totMass>mProt+mPi&&G4UniformRand()<0.5)
            {
              piM   = mPi;
              piPDG = -211;
            }
            else if(!totZ&&totMass>mNeut+mPi0)
            {
              nucM  = mNeut;
              nucPDG= 2112;
              piM   = mPi0;
              piPDG = 111;
            }
            else if(totZ==1&&totMass>mNeut+mPi&&G4UniformRand()<0.5)
            {
              nucM  = mNeut;
              nucPDG= 2112;
              piM   = mPi;
              piPDG = 211;
            }
            else if(totZ==1&&totMass>mProt+mPi0)
            {
              piM   = mPi0;
              piPDG = 111;
            }
            else if(totZ==-1)
            {
              nucM  = mNeut;
              nucPDG= 2112;
              piM   = mPi;
              piPDG = -211;
            }
            else if(totZ==2)
            {
              piM   = mPi;
              piPDG = 211;
            }
            else
            {
              G4ExceptionDescription ed;
              ed << "Pi + Nucleon decay error: Z=" << totZ << ",B=" << totBN
                 << ",E=" << envQC << ",Q=" << valQ << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0022",
                          FatalException, ed);
            }
          }
          else if(!totS)
          {
            if(!totZ)
            {
              nucM=mNeut;
              nucPDG=2112;
            }
            else if(totZ<0||totZ>1)
            {
              G4ExceptionDescription ed;
              ed << "Photon+Nucleon decay error: Z=" << totZ << ",B=" << totBN
                 << ",E=" << envQC <<",Q=" << valQ << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0023",
                          FatalException, ed);
            }
          }
          G4LorentzVector pi4M(0.,0.,0.,piM);       // mass of the kaon/pion/photon
          G4LorentzVector nuc4M(0.,0.,0.,nucM);     // mass of the nucleon
          G4double sum=piM+nucM;
          if(fabs(totMass-sum)<eps)
          {
            pi4M=tot4M*(piM/sum);
            nuc4M=tot4M*(nucM/sum);
          }
          else if(totMass<sum || !G4QHadron(tot4M).DecayIn2(pi4M, nuc4M))
          {
            G4ExceptionDescription ed;
            ed << "Gam/Pi/K+N decay error: T=" << tot4M << totMass
               << "->gam/pi/K(" << piM << ")+N=" << nucPDG << "(" << nucM
               << ")=" << sum << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0024",
                        FatalException, ed);
          }
#ifdef debug
          G4cout<<"G4Q::HQ:T="<<tot4M<<totMass<<"->GPK="<<piPDG<<pi4M<<"+B="<<nucPDG<<nuc4M
                <<G4endl;
#endif
          G4QHadron* piH = new G4QHadron(piPDG,pi4M);// Create Hadron for gamma/Pion
          FillHadronVector(piH);                     // Fill "new piH" (delete equivalent)
          G4QHadron* nucH = new G4QHadron(nucPDG,nuc4M); // Creation Hadron for the nucleon
          FillHadronVector(nucH);                    // Fill "new nucH" (delete equivalent)
          ClearQuasmon();                             // This Quasmon is done          
          qEnv=vacuum;
          return theQHadrons;                        // The last decay of the total nucleus
        }
#ifdef debug
        else G4cout<<"***G4Q::HQ: B="<<totBN<<",tM="<<totMass<<" > M="<<totM<<",S="<<totS
                   <<", envPDG="<<envPDG<<G4endl;
#endif
      }
      G4double dm=quasM-sMass;
#ifdef debug
      G4cout<<"G4Q::HQ:f="<<fprob<<",d="<<dm<<",rPDG="<<rPDG<<",rM="<<rMass<<",M="<<reMass
            <<",sM="<<sMass<<G4endl;
#endif
      if(abs(dm)<.000001)
      {
        if(sPDG==iniPDG)
        {
          G4QHadron* quasH = new G4QHadron(iniPDG,q4Mom);//Create Hadron for Quasmon-Hadron
          FillHadronVector(quasH);                   // Fill "new quasH" (del. equivalent)
          ClearQuasmon();                            // This Quasmon is done 
          qEnv=theEnvironment;                       // Keep initial environment
          return theQHadrons;                        // The last decay of the total nucleus
        }
        else G4cerr<<"---Warning---G4Q::HQ:Q=H,q="<<iniPDG<<",s="<<sPDG<<",d="<<dm<<G4endl;
      }
      G4double rWi=0.;
      if(rPDG!=10) rWi=G4QPDGCode(rPDG).GetWidth();
      if(rPDG!=10&&rMass>dm&&!rWi)   // Try to use the h-resonance width or reduce its spin
      {
        G4double sWi=G4QPDGCode(sPDG).GetWidth();
        G4double sMM=G4QPDGCode(sPDG).GetMass();
        if(sWi)                                      // Hadron is a resonance
        {
          G4double mmm=theWorld->GetQParticle(G4QPDGCode(sPDG))->MinMassOfFragm();
          G4double ddm=quasM-rMass;                  // Minimum mass of the sHadron
          if(fabs(sMM-ddm)<1.5*sWi-.001 && ddm>mmm)
          {
#ifdef debug
            G4double msm=sMass;
#endif
            sMass=GetRandomMass(sPDG,ddm);           // Randomize mass of the Reson-Hadron
            if(fabs(sMass)<.001)
            {
#ifdef debug
              G4cerr<<"***G4Q::HQ:ChangeToM=0, "<<sPDG<<",new="<<ddm<<",old="<<msm<<G4endl;
#endif
              sMass=ddm;
            }
            if(sMass<ddm) sMass=ddm;
#ifdef debug
            G4cout<<"G4Q::HQ: sPDG="<<sPDG<<",sM="<<sMass<<",d="<<ddm<<",isM="<<msm<<",W="
                  <<sWi<<G4endl;
#endif
          }
          //else if(G4int ds1=abs(sPDG)%10>2)        // @@ Make it C-style ?: operator ?
          //{
          //  G4int oPDG=sPDG;
          //  if   (sPDG>0&&sPDG%2==0)   sPDG-=ds1-2;
          //  else if(sPDG>0)            sPDG-=ds1-1;
          //  else if(sPDG<0&&sPDG%2==0) sPDG+=ds1-2;
          //  else if(sPDG<0)            sPDG+=ds1-1;
          //  sMass=G4QPDGCode(sPDG).GetMass();
          //  G4cout<<"**G4Q::HQ:sPDG="<<oPDG<<" changed to "<<sPDG<<",sM="<<sMass<<G4endl;
          //}
        }
      }
      // First decay suppression for the final decay in 2 particles
      G4double rnd=G4UniformRand();
      // Final state pi0/eta/eta' sorting (wave functions)
#ifdef debug
      G4cout<<"G4Q::HQ:BEFrPDGcor,d="<<dm<<",R="<<rnd<<",r="<<rPDG<<",rM="<<rMass<<G4endl;
#endif
      //if(rPDG==111 && sPDG!=111 && dm>548. && rnd<.5 ) rPDG=221;
      //if(rPDG==111 && sPDG!=111 && dm>958. && rnd>.5 ) rPDG=331;
      if(rPDG==111 && sPDG!=111 && dm>548.)
      {
        //if(dm>958. && rnd>.5) rPDG=331;
        if(dm>958.) rPDG=331;
        else rPDG=221;
      }
      if(rPDG==221 && dm>958. && rnd>.5 ) rPDG=331;
      if(rPDG==331 &&(dm<958. || rnd<.5)) rPDG=221;
      //if(rPDG==221 && (sPDG!=221 && sPDG!=331 && rnd>.5 || dm<548.)) rPDG=111;
      if(rPDG==221 && dm<548.) rPDG=111;
      // Final state convertion of pi0/eta/eta' to vector mesons

      if ( ( (rPDG == 111 && sPDG!= 111) || rPDG == 221) && 
             rMass > 544. && dm > 544. && rnd > .5) rPDG=113; //0->rho0

      if ( ( (rPDG == 111 && sPDG != 111) || rPDG == 221) && 
             rMass > 782. && dm > 782. && rnd < .5) rPDG = 223; //0->omega

      if ( rPDG == 331 && rMass > 1020. && dm > 1020. && rnd < .5) rPDG=333;// eta' -> phi0

      if(rPDG== 211 && dm>544. && rnd>.5) rPDG= 213; // M-1.5*W conv. of pi+ to rho+
      if(rPDG==-211 && dm>544. && rnd>.5) rPDG=-213; // M-1.5*W conv. of pi- to rho-
#ifdef debug
      G4cout<<"G4Q::HQ:rCor,Q="<<quasM<<",sM="<<sMass<<",r="<<rPDG<<",rM="<<rMass<<G4endl;
#endif
      if (rPDG < MINPDG && rPDG != 2212 && rPDG != 2112 && rPDG != 3122 && rPDG != 10) 
      {  //=>ResidQ isn't NuclCl
        reMass=GetRandomMass(rPDG,dm);        // Randomize mass of the RResidQuasmon-Hadron
#ifdef debug
        G4cout<<"G4Q::HQ:dm="<<dm<<", ResQM="<<reMass<<" is changed to PDG="<<rPDG<<G4endl;
#endif
        if(reMass==0.)
        {
          if(sPDG==221 || sPDG==331)                 // Change eta-Candidate to pi/gamma
          {
            if     (sPDG==221) dm+=mEta-mPi0;
            else if(sPDG==331) dm+=mEtaP-mPi0;
            if(dm<0)
            {
              dm+=mPi0;
              sPDG=22;
              sMass=0.;
            }
            else
            {
              sPDG=111;
              sMass=mPi0;
            }
            if(dm<mPi0-.00001&&rPDG==111)
            {
              rPDG=22;
              reMass=0.;
            }
            else reMass=GetRandomMass(rPDG,dm);//Rerandomize mass of ResidQuasmon-Resonance
            if(reMass==0.)G4cerr<<"-W-G4Q::HQ:2,M="<<quasM<<",r="<<rPDG<<",d="<<dm<<G4endl;
          }
          else if(rPDG==111)                      // Make a photon out of the Resid Quasmon
          {
            rPDG=22;
            reMass=0.;
          }
          else
          {
            if(CheckGroundState()) ClearQuasmon();// This Quasmon is done
            //if(CheckGroundState(true)) KillQuasmon();// This Quasmon is done
#ifdef pdebug
            G4ExceptionDescription ed;
            ed << "Why Fail? (7): NeedsEvap7:s=" << sPDG << ",Q=" << q4Mom
               << valQ << ",r=" << rPDG << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0025",FatalException,ed);
#endif
            qEnv=theEnvironment;
            return theQHadrons;
          }
        }
      }
      else if(rPDG==NUCPDG)
      {
        if(dm>mPi0)
        {
           rPDG=111;
           reMass=mPi0;
        }
        else
        {
           rPDG=22;
           reMass=0.;
        }
      }
      G4double freeRQM=rQPDG.GetMass();
      G4int    RQB = rQPDG.GetBaryNum();
      G4double fRQW= 3*rQPDG.GetWidth();
      if(fRQW<.001) fRQW=.001;
      G4QPDGCode sQPDG(sPDG);
      G4int sChg=sQPDG.GetCharge();
      G4int sBaryn=sQPDG.GetBaryNum();
      G4double sCB=theEnvironment.CoulombBarrier(sChg,sBaryn);
#ifdef debug
      G4cout<<"G4Q::HQ:h="<<sCB<<",C="<<sChg<<",B="<<sBaryn<<",E="<<theEnvironment<<G4endl;
#endif
      G4int rChg=rQPDG.GetCharge();
      G4int rBaryn=rQPDG.GetBaryNum();
      G4double rCB=theEnvironment.CoulombBarrier(rChg,rBaryn);
#ifdef debug
      G4cout<<"G4Q::HQ:rqCB="<<rCB<<",rqC="<<rChg<<",rqB="<<sBaryn<<",rM="<<rQPDG<<",reM="
            <<reMass<<G4endl;
#endif
      if ( totBN > 1 && totS >= 0 && envPDG > MINPDG && envPDG != NUCPDG &&
           (reMass+sMass > quasM || sCB+rCB+reMass+sMass+envM > totMass ||
             (!RQB && quasM < diPiM)
           )
         )
      //if(2>3)                                      // This Evaporation channel is closed
      {
#ifdef pdebug
        G4ExceptionDescription ed;
        ed << "Why Fail? (8): RQM+SM=" << reMass+sMass << ">QM=" << quasM << ", sCB="
           << sCB << " + rCB=" << rCB << " + rM=" << reMass << " + sMass=" << sMass
           << " + eM=" << envM << " = " << sCB+rCB+reMass+sMass+envM << ">tM=" << totMass
           << "," << reMass+sMass+envM << G4endl;
        G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0026", FatalException, ed);
#endif
        qEnv=theEnvironment;
        return theQHadrons;
      }
      if(rPDG==NUCPDG)                                
      {
        G4ExceptionDescription ed;
        ed << "Residual Particle is Vacuum: rPDG=90000000, MV=" << reMass << G4endl;
        G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0027", FatalException, ed);
      }
      if(rPDG==2212&&sPDG==311&&reMass+sMass>quasM)
      {
        if(mNeut+mK<=quasM+.001)
        {
          reMass=mNeut;
          rPDG  =2112;
          rQPDG=G4QPDGCode(rPDG);
          rChg=rQPDG.GetCharge();
          rBaryn=rQPDG.GetBaryNum();
          rCB=theEnvironment.CoulombBarrier(rChg,rBaryn);
#ifdef debug
          G4cout<<"G4Q::HQ:NCB="<<rCB<<",NC="<<rChg<<",sB="<<sBaryn<<",r="<<rQPDG<<G4endl;
#endif
          freeRQM=mNeut;
          RQB=1;
          fRQW=0.;
          sMass =mK;
          if(mNeut+mK<=quasM) sMass=quasM-mNeut;
          sPDG  =321;
          sQPDG=G4QPDGCode(sPDG);
          sChg=sQPDG.GetCharge();
          sBaryn=sQPDG.GetBaryNum();
          sCB=theEnvironment.CoulombBarrier(sChg,sBaryn);
#ifdef debug
          G4cout<<"G4Q::HQ:KCB="<<sCB<<",KC="<<sChg<<",frB="<<sBaryn<<",E="<<theEnvironment
                <<G4endl;
#endif
          curQ=neutQC;
        }
        else
        {
          G4ExceptionDescription ed;
          ed<<"Can't decay Q in N and K: (NK) QM="<< quasM<<",d="<< quasM-mNeut-mK<<G4endl;
          G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0028", FatalException, ed);
        }
      }
#ifdef debug
      G4cout<<"G4Q::HQ: ****** Before reM="<<reMass<<", rM="<<rMass<<G4endl;
#endif
      G4QPDGCode tmpQPDG(rPDG);
      if(tmpQPDG.GetWidth()<.000001) reMass=tmpQPDG.GetMass(); // Recover const mass
      if(!reMass) reMass=rMass;                         // @@ ?
#ifdef debug
      G4cout<<"G4Q::HQ: Decay in sM="<<sMass<<" + reM="<<reMass<<" (rM="<<rMass<<G4endl;
#endif
      G4LorentzVector r4Mom(0.,0.,0.,reMass);
      G4LorentzVector s4Mom(0.,0.,0.,sMass);// Mass is random since probab. time
      if(sPDG>MINPDG)                       // @@ For the Quark-Exchange hadronization (?)
      {
#ifdef debug
        G4cout<<"G4Q::HQ:Q->RQ+QEX s="<<sPDG<<",pM="<<pMass<<",E="<<theEnvironment<<G4endl;
#endif
        q4Mom+=G4LorentzVector(0.,0.,0.,pMass);
      }
      G4double tmM=q4Mom.m()+.001;;
      G4double sum=reMass+sMass;
      if(fabs(tmM-sum)<eps)
      {
        r4Mom=q4Mom*(reMass/sum);
        s4Mom=q4Mom*(sMass/sum);
      }
      else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
      {
        G4QContent resNQC=totQC-sQC;          // Quark Content of the totNucleus-Fragment
#ifdef debug
        G4cerr<<"---Warning---G4Q::HQ:M="<<tmM<<"=>rPDG="<<rPDG<<"(rM="<<reMass<<")+sPDG="
              <<sPDG<<"(sM="<<sMass<<")="<<sum<<",resNQC="<<resNQC<<G4endl;
#endif
        G4QNucleus resTN(resNQC);   
        G4double resTNM=resTN.GetMZNS();      // Mass of totNucleus-Fragment
        if(sPDG==311 && tmpQPDG.GetCharge()>0)     // Can switch from K0 to K+
        {
          G4QContent crQC=tmpQPDG.GetQuarkContent()-KpQC+K0QC; // new hadrr's QC
          G4QNucleus nNuc(crQC);                   // New neucleus for the hadron/fragment
          G4double nreM=nNuc.GetGSMass();          // Mass of the new isotope
          if(tmM>mK+nreM)
          {
            sMass=mK;
            sPDG=321;
            s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to new hadron mass
            curQ+=K0QC-KpQC;
            reMass=nreM;
            rPDG=nNuc.GetPDG();
            r4Mom=G4LorentzVector(0.,0.,0.,reMass);// Switch to other isotope mass
            sum=reMass+sMass;
            if(fabs(tmM-sum)<eps)
            {
              r4Mom=q4Mom*(reMass/sum);
              s4Mom=q4Mom*(sMass/sum);
            }
            else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
            {
              G4ExceptionDescription ed;
              ed << "Hadron+K+ DecayIn2: (I) KCor M=" << tmM << "=>rPDG=" << rPDG << "(rM="
                 << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum <<G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0029",
                          FatalException, ed);
            }
          }
          else
          {
            G4ExceptionDescription ed;
            ed << "Hadron+K+ DecayIn2:(O) KCor M=" << tmM << "=>rPDG=" << rPDG << "(rM="
               << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0030",FatalException,ed);
          }
        }
        else if(sPDG==321 && tmpQPDG.GetCharge()<=tmpQPDG.GetBaryNum())//SwitchFrom K+toK0
        {
          G4QContent crQC=tmpQPDG.GetQuarkContent()-K0QC+KpQC; // new hadrr's QC
          G4QNucleus nNuc(crQC);                   // New neucleus for the hadron/fragment
          G4double nreM=nNuc.GetGSMass();          // Mass of the new isotope
          if(tmM>mK0+nreM)
          {
            sMass=mK0;
            sPDG=311;
            s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to new hadron mass
            curQ+=KpQC-K0QC;
            reMass=nreM;
            rPDG=nNuc.GetPDG();
            r4Mom=G4LorentzVector(0.,0.,0.,reMass);// Switch to other isotope mass
            sum=reMass+sMass;
            if(fabs(tmM-sum)<eps)
            {
              r4Mom=q4Mom*(reMass/sum);
              s4Mom=q4Mom*(sMass/sum);
            }
            else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
            {
              G4ExceptionDescription ed;
              ed << "Hadron+K0 DecayIn2: (I) K0Cor M=" << tmM << "=>rPDG=" << rPDG
                 << "(rM=" << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")="
                 << sum << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0031",
                          FatalException, ed);
            }
          }
          else
          {
            G4ExceptionDescription ed;
            ed << "Hadron+K0 DecayIn2: (O) K0Cor M=" << tmM << "=>rPDG=" << rPDG << "(rM="
               << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0032",FatalException,ed);
          }
        }
        else if(sPDG==211 && tmpQPDG.GetCharge()<tmpQPDG.GetBaryNum())//SwitchFrom pi+Topi0
        {
          G4QContent crQC=tmpQPDG.GetQuarkContent()-Pi0QC+PiQC; // new hadron's QC
          G4QNucleus nNuc(crQC);                   // New neucleus for the hadron/fragment
          G4double nreM=nNuc.GetGSMass();          // Mass of the new isotope
          if(tmM>mPi0+nreM)
          {
            sMass=mPi0;
            sPDG=111;
            curQ+=PiQC;
            s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to new hadron mass
            reMass=nreM;
            rPDG=nNuc.GetPDG();
            r4Mom=G4LorentzVector(0.,0.,0.,reMass);// Switch to other isotope mass
            sum=reMass+sMass;
            if(fabs(tmM-sum)<eps)
            {
              r4Mom=q4Mom*(reMass/sum);
              s4Mom=q4Mom*(sMass/sum);
            }
            else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
            {
              G4ExceptionDescription ed;
              ed << "Hadron+Pi0 DecayIn2: (I) Pi+/Pi0Cor M=" << tmM << "=>rPDG=" << rPDG
                 << "(rM=" << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum
                 << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0033",
                          FatalException, ed);
            }
          }
          else if(tmM>nreM)
          {
            sMass=0.;
            sPDG=22;
            curQ+=PiQC;
            s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to new hadron mass
            reMass=nreM;
            rPDG=nNuc.GetPDG();
            r4Mom=G4LorentzVector(0.,0.,0.,reMass);// Switch to other isotope mass
            sum=reMass+sMass;
            if(fabs(tmM-sum)<eps)
            {
              r4Mom=q4Mom*(reMass/sum);
              s4Mom=q4Mom*(sMass/sum);
            }
            else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
            {
              G4ExceptionDescription ed;
              ed << "Hadron+Gamma DecayIn2: (I) Pi+/GamCor M=" << tmM << "=>rPDG=" << rPDG
                 << "(rM=" << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum
                 << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0034",
                          FatalException, ed); 
            }
          }
          else
          {
            G4ExceptionDescription ed;              
            ed << "Hadron+Pi0/Gam DecayIn2: (O) Pi+/Pi0Cor M=" << tmM << "=>rPDG=" << rPDG
               <<"(rM="<< reMass <<")+sPDG="<< sPDG <<"(sM="<< sMass <<")="<< sum <<G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0035",FatalException,ed);
          }
        }
        else if(sPDG==-211 && tmpQPDG.GetCharge()>0) // Switch From pi- To pi0 (or gamma)
        {
          G4QContent crQC=tmpQPDG.GetQuarkContent()-Pi0QC+PiMQC; // new hadron's QC
          G4QNucleus nNuc(crQC);                   // New neucleus for the hadron/fragment
          G4double nreM=nNuc.GetGSMass();          // Mass of the new isotope
          if(tmM>mPi0+nreM)
          {
            sMass=mPi0;
            sPDG=111;
            curQ+=PiMQC;
            s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to new hadron mass
            reMass=nreM;
            rPDG=nNuc.GetPDG();
            r4Mom=G4LorentzVector(0.,0.,0.,reMass);// Switch to other isotope mass
            sum=reMass+sMass;
            if(fabs(tmM-sum)<eps)
            {
              r4Mom=q4Mom*(reMass/sum);
              s4Mom=q4Mom*(sMass/sum);
            }
            else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
            {
              G4ExceptionDescription ed;  
              ed << "Hadron+Pi0 DecayIn2: (I) Pi-/Pi0Cor M=" << tmM << "=>rPDG=" << rPDG
                 << "(rM=" << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum
                 << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0036",
                          FatalException, ed);
            }
          }
          else if(tmM>nreM)
          {
            sMass=0.;
            sPDG=22;
            curQ+=PiMQC;
            s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to new hadron mass
            reMass=nreM;
            rPDG=nNuc.GetPDG();
            r4Mom=G4LorentzVector(0.,0.,0.,reMass);// Switch to other isotope mass
            sum=reMass+sMass;
            if(fabs(tmM-sum)<eps)
            {
              r4Mom=q4Mom*(reMass/sum);
              s4Mom=q4Mom*(sMass/sum);
            }
            else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
            {
              G4ExceptionDescription ed;            
              ed << "Hadron+Gamma DecayIn2: (I) Pi-/GamCor M=" << tmM << "=>rPDG=" << rPDG
                 << "(rM=" << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum
                 << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0037",
                          FatalException, ed);
            }
          }
        }
        else if((sPDG==221 || sPDG==331) && tmM>mPi0+reMass)
        {
          sMass=mPi0;
          sPDG=111;
          s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to pi0 mass
          sum=reMass+sMass;
          if(fabs(tmM-sum)<eps)
          {
            r4Mom=q4Mom*(reMass/sum);
            s4Mom=q4Mom*(sMass/sum);
          }
          else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom)) // Gamma is below
          {
            G4ExceptionDescription ed;
            ed <<"Hadron+Pi0 DecayIn2: Eta/Pi0Cor M="<< tmM <<"=>rPDG="<< rPDG << "(rM="
               << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0038",FatalException,ed);
          }
        }
        else if((sPDG==111 || sPDG==221 || sPDG==331) && tmM>reMass)
        {
          sMass=0.;
          sPDG=22;
          s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to gamma
          sum=reMass+sMass;
          if(fabs(tmM-reMass)<eps)
          {
            r4Mom=q4Mom*(reMass/sum);
            s4Mom=q4Mom*(sMass/sum);
          }
          else if(!G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom)) // Kinematics is checked above
          {
            G4ExceptionDescription ed;
            ed << "QHadron+Gamma DecayIn2: PiCor M=" << tmM << "=>rPDG=" << rPDG << "(rM="
               << reMass <<")+sPDG="<< sPDG << "(sM=" << sMass << ")=" << reMass << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0039",FatalException,ed);
          }
        }
        else if(iniBN>0 && iniS>0) // Force Lamb->p+PiM (2/3) or Lamb->n+Pi0 decays @@ tot
        {
          G4QContent tmpSQC=G4QPDGCode(sPDG).GetQuarkContent();//QuarkContent of the hadron
          G4QContent lanQC=tmpQPDG.GetQuarkContent()+tmpSQC+K0QC;// switch from Lambda to n
          G4QNucleus nucM(lanQC-PiMQC);            // New neucleus for the residual for Pi-
          G4double nreM=nucM.GetGSMass();          // Mass of the residual for Pi-
          G4QNucleus nucZ(lanQC-Pi0QC);            // New neucleus for the residual for Pi-
          G4double nreZ=nucZ.GetGSMass();          // Mass of the residual for Pi-
#ifdef debug
          G4cout<<"G4Q::HQ:LsPDG="<<sPDG<<",rPDG="<<rPDG<<",Z="<<nucZ<<",M="<<nucM<<G4endl;
#endif
          if((G4UniformRand()<.33333 || mPi+nreM>tmM) && mPi0+nreZ<tmM) // ----> n+Pi0 case
          {
            sMass=mPi0;
            sPDG=111;
            curQ+=tmpSQC+K0QC;                     // LToN correction for curQC
            s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to new hadron mass
            reMass=nreZ;
            rPDG=nucZ.GetPDG();
            r4Mom=G4LorentzVector(0.,0.,0.,reMass);// Switch to other isotope mass
            sum=reMass+sMass;
            if(fabs(tmM-sum)<eps)
            {
              r4Mom=q4Mom*(reMass/sum);
              s4Mom=q4Mom*(sMass/sum);
            }
            else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
            {
              G4ExceptionDescription ed;
              ed <<"(L->n)+Pi0 DecayIn2: LamPi0 Cor M="<< tmM <<"=>rPDG="<< rPDG << "(rM="
                 << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum <<G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0040",
                          FatalException, ed);
            }
          }
          else if(mPi+nreM<tmM)                                         // ----> p+Pi- case
          {
            sMass=mPi;
            sPDG=-211;
            curQ+=tmpSQC+K0QC-PiMQC;               // LToN correction for curQC (-QC_PIM)
            s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to new hadron mass
            reMass=nreM;
            rPDG=nucM.GetPDG();
            r4Mom=G4LorentzVector(0.,0.,0.,reMass);// Switch to other isotope mass
            sum=reMass+sMass;
            if(fabs(tmM-sum)<eps)
            {
              r4Mom=q4Mom*(reMass/sum);
              s4Mom=q4Mom*(sMass/sum);
            }
            else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
            {
              G4ExceptionDescription ed;
              ed << "(L->n)+Pi- DecayIn2: LamPiM Cor M=" << tmM << "=>rPDG=" << rPDG
                 << "(rM=" << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum
                 << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0041",
                          FatalException, ed);
            }
          }
          else if(nreM<tmM)                                           // ----> N+gamma case
          {
            sMass=0.;
            sPDG=22;
            curQ+=tmpSQC+K0QC;                     // LToN correction for curQC
            s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to new hadron mass
            reMass=nreZ;
            rPDG=nucZ.GetPDG();
            r4Mom=G4LorentzVector(0.,0.,0.,reMass);// Switch to other isotope mass
            sum=reMass+sMass;
            if(fabs(tmM-sum)<eps)
            {
              r4Mom=q4Mom*(reMass/sum);
              s4Mom=q4Mom*(sMass/sum);
            }
            else if(tmM<sum || !G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom))
            {
              G4ExceptionDescription ed;
              ed << "(L->n)+Gamma DecayIn2: LamNGam Cor M=" << tmM << "=>rPDG=" << rPDG
                 << "(rM=" << reMass << ")+sPDG=" << sPDG << "(sM=" << sMass << ")=" << sum
                 << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0042",
                          FatalException, ed);
            }
          }
          else
          {
            G4ExceptionDescription ed;
            ed << "LamTo0N with Pi DecayIn2: LamToN M=" << tmM << totQC << "=>rM="
               << nucM.GetPDG() << "," << nucZ.GetPDG() << "(" << nreM << "," << nreZ
               << ")+PiM/PiZ=" << mPi+nreM << "," << mPi0+nreZ << G4endl;
              G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0043",
                          FatalException, ed);
          }
        }
        else if(tmM>iniQM)
        {
          G4QContent tmpSQC=G4QPDGCode(sPDG).GetQuarkContent();//QuarkContent of the hadron
          sMass=0.;
          sPDG=22;
          s4Mom=G4LorentzVector(0.,0.,0.,sMass); // Switch to gamma
          curQ+=tmpSQC;                          // totQC correction for curQC
          reMass=iniQM;
          rPDG=iniPDG;
          r4Mom=G4LorentzVector(0.,0.,0.,reMass);// Switch to other isotope mass
          sum=reMass+sMass;
          if(fabs(tmM-reMass)<eps)
          {
            r4Mom=q4Mom*(reMass/sum);
            s4Mom=q4Mom*(sMass/sum);
          }
          else if(!G4QHadron(q4Mom).DecayIn2(r4Mom, s4Mom)) // Kinematics is checked above
          {
            G4ExceptionDescription ed;
            ed << "QHadron+Gamma DecayIn2: gam+TQ M=" << tmM << "=>rPDG=" << rPDG << "(rM="
               << reMass <<")+sPDG="<< sPDG << "(sM=" << sMass << ")=" << reMass << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0044",
                        FatalException, ed);
          }
        }
        else if(totMass>resTNM+sMass) // Just decay in sPDG and total residual nucleus
        {
          G4LorentzVector re4M = G4LorentzVector(0.,0.,0.,resTNM); //GSM of ResidTotEnvir
          G4LorentzVector rs4M = G4LorentzVector(0.,0.,0.,sMass);  //GSM of a Hadron
#ifdef debug
          G4cout<<"G4Q::HQ:EMERGENCY,rEM="<<resTN<<resTNM<<",fM="<<sMass<<",tM="<<totMass
                <<",d="<<totMass-resTNM-sMass<<G4endl;
#endif
          sum=resTNM+sMass;
          if(fabs(totMass-sum)<eps)
          {
            re4M=tot4M*(resTNM/sum);
            rs4M=tot4M*(sMass/sum);
          }
          else if(totMass<sum || !G4QHadron(tot4M).DecayIn2(re4M,rs4M))
          {
            G4ExceptionDescription ed;
            ed << "DecayIn2 Frag+ResE failed: HadrQ:Decay T=" << totMass
               << "->R=" << resTNM << "+S=" << sMass << ")=" << sum << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0045",FatalException,ed); 
          }
          else
          {
            //@@CHECK CoulBar (only for ResQuasmon in respect to ResEnv) & evaporate
            G4QHadron* fragH = new G4QHadron(sPDG,rs4M); // Create Hadron for the Fragment
            FillHadronVector(fragH);               // Fill ResidQuasm Hadron (del.equiv.)
            if(nQuasms==1)
            {
              resTN.Set4Momentum(re4M);
              qEnv=resTN;                          // Create Nucleus for MovingResEnv
            }
            else
            {
              G4QHadron* envH = new G4QHadron(resNQC,re4M); //@@ Moving Environment !
              FillHadronVector(envH);              // Fill MovingEnvironment (del.equiv)
              qEnv = vacuum;
            }
            ClearQuasmon();                         // This Quasmon is done
            return theQHadrons;                    // The last decay of the quasmon...
          }
        }
        else if(totMass>totM)         // Just decay in minimal total nucleus and gamma
        {
          G4LorentzVector re4M = G4LorentzVector(0.,0.,0.,totM); // GSM of ResidTotEnvir
          G4LorentzVector rs4M = G4LorentzVector(0.,0.,0.,0.);   // GSM of a Photon
#ifdef debug
          G4cout<<"G4Q::HQ:EMERGENSY,minM="<<totM<<" < totM="<<totMass<<G4endl;
#endif
          if(fabs(totMass-totM)<eps) re4M=tot4M*(resTNM/sum);
          else if(!G4QHadron(tot4M).DecayIn2(re4M,rs4M))
          {
            G4ExceptionDescription ed;
            ed<<"DecayIn2 gam+TotN failed:HadrQ:Decay,T="<<totMass<<"->g+M="<<totM<<G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0046",
                        FatalException, ed);
 
          }
          else
          {
            G4QHadron* fragH = new G4QHadron(22,rs4M); // Create Hadron for the Gamma
            FillHadronVector(fragH);                   // Fill ResidQuasm Hadron (del.eq.)
            if(nQuasms==1)
            {
              totN.Set4Momentum(re4M);
              qEnv=totN;// Create Nucleus for MovingResEnv
            }
            else
            {
              G4QHadron* envH = new G4QHadron(totPDG,re4M); //@@ Moving Environment !
              FillHadronVector(envH);              // Fill MovingEnvironment (del.equiv)
              qEnv = vacuum;
            }
            ClearQuasmon();                         // This Quasmon is done
            return theQHadrons;                    // The last decay of the quasmon...
          }
        }
        else
        {
          G4cerr<<"***G4Q::HQ:M="<<tmM<<"=>rPDG="<<rPDG<<"(rM="<<reMass<<")+sPDG="
                <<sPDG<<"(sM="<<sMass<<")="<<sum<<",QM="<<iniQM<<G4endl;
          if(fabs(tmM-sum)<1.) // Just to avoid exception (Must be treated !)
          //if(2>3)            // ------> Catch the under mass shell event
          {
            r4Mom=q4Mom*(reMass/sum);
            s4Mom=q4Mom*(sMass/sum);
          }
          // else throw G4QException("***G4Quasmon::HadronizeQuasmon:QHadr+SHadr DecayIn2");
          else G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0047",
                           FatalException, "QHadr+SHadr DecayIn2");
        }
      }
      G4double sKE=s4Mom.e()-sMass;
#ifdef rdebug
      G4cout<<"G4Q::HQ:=2.3=>QHVect s4M="<<s4Mom<<",sPDG="<<sPDG<<", r4M/M="<<r4Mom<<reMass
            <<",fR="<<freeRQM<<",fW="<<fRQW<<",PDG="<<rPDG<<",r="<<rCB<<",s="<<sCB<<G4endl;
#endif
      //if(sKE<sCB||rKE<rCB)                  // => "KinEn is below CB, try once more" case
      if(sKE<sCB)                             // => "KinEn is below CB, try once more" case
      {
#ifdef pdebug
        G4cout<<"****G4Q::HQ:E-9: sKE="<<sKE<<"<sCB="<<sCB<<G4endl;
        // throw G4QException("G4Quasmon::HadronizeQuasmon: Why Fail? (9)"); //@@ TMP
        G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0048",
                    FatalException, "Why Fail? (9)");
#endif
        if(sPDG>MINPDG) q4Mom-=G4LorentzVector(0.,0.,0.,pMass);
        qEnv=theEnvironment;
        return theQHadrons;
      }
      else if(abs(reMass-freeRQM)<fRQW||envPDG==NUCPDG)//=>"ResidQ is a GSHadron/Frag" case
      {
        G4QHadron* curHadr1 = new G4QHadron(rPDG,r4Mom);// Create RealHadron for the ResidQ
        FillHadronVector(curHadr1);                  // Fill "new curHadr1" (del. eq.)
        G4QHadron* curHadr2 = new G4QHadron(sPDG,s4Mom);// Creation Hadron for theCandidate
        FillHadronVector(curHadr2);                  // Fill "new curHadr2" (del. eq.)
#ifdef rdebug
        G4cout<<"G4Q::HQ:DecayQuasmon "<<q4Mom<<" in 4M="<<r4Mom+s4Mom<<" RQ="<<rPDG<<r4Mom
              <<" + Fragment="<<sPDG<<s4Mom<<", Env="<<theEnvironment<<G4endl;
#endif
        if(sPDG>MINPDG) theEnvironment.Reduce(pPDG);// Update NuclearEnv after Q->RQ+QEXF
        ClearQuasmon();                             // This Quasmon is done
        qEnv=theEnvironment;                        // Update the QEnvironment
        return theQHadrons;                         // This is theLastDecay of the quasmon
      }
      else                                           // => "Virtual Residual Quasmon" case
      {
        G4LorentzVector resTotN4Mom=r4Mom+G4LorentzVector(0.,0.,0.,envM);
        G4QContent resTotNQC=envQC+curQ;             // QCof possible residual nucleus
        G4QNucleus resTotN(resTotNQC);               // Pseudo nucleus for TotResidualNucl
        G4double   resTotNM=resTotN.GetMZNS();       // Mass of the Total Residual Nucleus
        if(resTotN4Mom.m()<resTotNM)                 // Needs total evaporation
        {
          //if(totBN>1&&totMass>totM&&totS>=0)         //@@ ??
#ifdef pdebug
          G4ExceptionDescription ed;
          ed<<"Why Fail?(10):NEEDS-EVAP-10,M="<<resTotN4Mom.m()<<"<miM="<<resTotNM<<G4endl;
          G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0049", FatalException, ed);
#endif
          if(sPDG>MINPDG) q4Mom-=G4LorentzVector(0.,0.,0.,pMass);
          qEnv=theEnvironment;
          return theQHadrons;
        }
        else                                         // Only theTotResidNucl can evaporate
        {
          G4QHadron* curHadr2 = new G4QHadron(sPDG,s4Mom);// Create Hadron for theOutHadron
          FillHadronVector(curHadr2);                // Fill "new curHadr2" (del.equiv.)
          q4Mom = r4Mom;
          if(sPDG>MINPDG)
          {
            theEnvironment.Reduce(pPDG);             // Update NuclEnviron after Q->RQ+QEXF
            valQ  += transQC;                        // Update the Quark Content of Quasmon
          }
          else valQ  = curQ;                         // Update the Quark Content of Quasmon
#ifdef rdebug
          G4cout<<"OK***>G4Q::HQ:S="<<sPDG<<s4Mom<<",Env="<<theEnvironment<<",Q="<<q4Mom
                <<valQ<<curQ<<G4endl;
#endif
          status=1;                                  // Something was successfuly done
          phot4M=zeroLV;
          piF=false;
          gaF=false;
          if(CheckGroundState()) ClearQuasmon();  // This Quasmon is done
          //if(CheckGroundState(true)) KillQuasmon();  // This Quasmon is done
#ifdef rdebug
          G4cout<<"***>G4Q::HQ:After,S="<<sPDG<<s4Mom<<",Env="<<theEnvironment<<",Q="
                <<q4Mom<<valQ<<curQ<<G4endl;
#endif
          qEnv=theEnvironment;
          return theQHadrons;
        }
      }
    }
#ifdef rdebug
    else G4cout<<"G4Q::HQ:NO-OK,h="<<hsflag<<",d="<<fdul<<",M="<<rMass<<"<"<<reMass<<",M2="
               <<reTNM2<<"<I="<<tmpTM2<<",sP="<<sPDG<<",eP="<<envPDG<<",pP="<<pPDG<<G4endl;
#endif
    if(!fskip)                                       // Continue search for fragmentation
    {
      // =--= From this point for nuclear fragments the procedure is just filling =--=
#ifdef debug
      G4int ePDG=theEnvironment.GetPDG();
      G4double frKin=fr4Mom.e()-sMass;
      G4cout<<"G4Q::HQ:>>"<<sPDG<<fr4Mom<<fr4Mom.m()<<"="<<sMass<<",T="<<frKin<<",E="<<ePDG
            <<G4endl;
#endif
      //if(sPDG<MINPDG&&(ePDG==NUCPDG||nQuasms==1)) //==>>"Hadron candidate in Vacuum" case
      //if(sPDG<MINPDG&&nQuasms==1) // ==>> "Hadron candidate with the only Quasmon" case
      if(sPDG<MINPDG)                         // Hadronic decay is always in vacuum @@??
      {
        G4int SQ=totQC.GetStrangeness();
#ifdef debug
        G4cout<<"G4Q::HQ: sPDG="<<sPDG<<", sM="<<sMass<<", SQ="<<SQ<<G4endl;
#endif
        if(!sPDG&&SQ<0&&nQuasms==1) // decay Of Tot(Q+Env) in K+/aK0 & residual
        //if(!sPDG&&SQ<0)           // decay in K+/aK0 & residual
        {
          sPDG=321;
          sMass=mK;
          G4QContent resKPQC=totQC-G4QContent(0,1,0,0,0,1);// Residual Quark Content for K+
          G4QNucleus rKPN(resKPQC);                  // Pseudo nucleus for the Resid System
          G4double rKPM = rKPN.GetMZNS();            // min mass of the Residual System
          G4int  rKPPDG = rKPN.GetPDG();             // PDG of Residual
          G4QContent resK0QC=totQC-G4QContent(1,0,0,0,0,1);// Residual Quark Content for K0
          G4QNucleus rK0N(resK0QC);                  // Pseudo nucleus for the Resid System
          G4int  rK0PDG = rK0N.GetPDG();             // PDG of Residual
          G4double rK0M = rK0N.GetMZNS();            // min mass of the Residual System
          if ( (rKPM+mK > totMass && rK0M+mK0 > totMass) || 
               rKPPDG == NUCPDG || 
               rK0PDG == NUCPDG )
          {
#ifdef pdebug
            G4ExceptionDescription ed;
            ed << "Why PANIC? (2): ***PANIC#2***tM=" << totMass << "<KM=" << mK << ","
               << mK0 << ",rM=" << rKPM << "," << rK0M << ",d=" << mK+rKPM-totMass << ","
               << mK0+rK0M-totMass << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0050",FatalException,ed);
#endif
            status =-1;                              // Panic exit
            qEnv=theEnvironment;                     // Update the QEnvironment
            return theQHadrons;
          }
          if(rKPM + mK > rK0M + mK0)
          {
            rPDG  = rK0PDG;                          // PDG of the Residual System to K0
            rMass = rK0M;
            sPDG  = 311;
            sMass = mK0;
          }
          else
          {
            rPDG  = rKPPDG;                          // PDG of the Residual System to K+
            rMass = rKPM;
            sPDG  = 321;
            sMass = mK;
          }
          G4double ctM=tot4M.m();
          G4LorentzVector r4Mom(0.,0.,0.,rMass);
          G4LorentzVector s4Mom(0.,0.,0.,sMass);     // Mass is random since probab. time
          G4double sum=rMass+sMass;
          if(fabs(ctM-sum)<eps)
          {
            r4Mom=tot4M*(rMass/sum);
            s4Mom=tot4M*(sMass/sum);
          }
          else if(ctM<sum || !G4QHadron(tot4M).DecayIn2(r4Mom, s4Mom))
          {
            G4ExceptionDescription ed;
            ed << "HadrQuasm:K+ResNuc DecayIn2 didn't succeed: tM=" << ctM
               << totQC << " => rPDG=" << rPDG << "(rM=" << rMass << ") + sPDG="
               << sPDG << "(sM=" << sMass << ")=" << sum << G4endl;
            G4Exception("G4Quasmon::HadronizeQuasmon()","HAD_CHPS_0051",FatalException,ed);
          }
#ifdef debug
          G4cout<<"G4Q::HQ:===2.4===>HadrVec s="<<sPDG<<s4Mom<<",r="<<rPDG<<r4Mom<<G4endl;
#endif
          //@@CHECK CoulBar and may be evaporate instead
          G4QHadron* curHadr1 = new G4QHadron(rPDG,r4Mom);// Create RealHadron for ResidEnv
          FillHadronVector(curHadr1);                // Fill "new curHadr1" (del.equiv.)
          G4QHadron* curHadr2 = new G4QHadron(sPDG,s4Mom);// Creation Hadron for Candidate
          FillHadronVector(curHadr2);                // Fill "new curHadr2" (del.equiv.)
          ClearQuasmon();                            // This Quasmon is done
          qEnv=vacuum;
          return theQHadrons;                        // This is theLastDecay of the Quasmon
        }
        G4bool ffin=false;                           // Flag of FinalDecayInGamma+Residual
        if(quasM<rMass+sMass&&(sPDG==221||sPDG==331))// Change eta-Candidate or any to pi
        {
          sPDG = 111;
          sMass=mPi0;
        }
        else if(!sPDG)
        {
          if     (iniS<0&&iniQChg+iniQChg>=iniBN)    // Try to decay in K+
          {
            sPDG = 321;
            sMass= mK;
            G4QNucleus totQN(valQ+KpQC);             // Nucleus Residual after Kp sub.
            rPDG = totQN.GetPDG();
            rMass= totQN.GetMZNS();
          }
          else if(iniS<0)                            // Try to decay in K0
          {
            sPDG = 311;
            sMass= mK0;
            G4QNucleus totQN(valQ+K0QC);             // Nucleus Residual after K0 sub.
            rPDG = totQN.GetPDG();
            rMass= totQN.GetMZNS();
          }
          else if(iniQChg>iniBN-iniS)                // Try to decay in Pi+
          {
            sPDG = 211;
            sMass= mPi;
            G4QNucleus totQN(valQ-PiQC);             // Nucleus Residual after Pi+ sub.
            rPDG = totQN.GetPDG();
            rMass= totQN.GetMZNS();
          }
          else if(iniQChg<0)                         // Try to decay in Pi-
          {
            sPDG = -211;
            sMass= mPi;
            G4QNucleus totQN(valQ+PiQC);             // Nucleus Residual after Pi- sub.
            rPDG = totQN.GetPDG();
            rMass= totQN.GetMZNS();
          }
          else if(quasM>iniQM+mPi0)                  // Try to decay in Pi0
          {
            sPDG = 111;
            sMass= mPi0;
            rPDG = iniPDG;
            rMass= iniQM;
          }
          else                                       // Decay in gamma as a final decision
          {
            sPDG = 22;
            sMass= 0.;
            rPDG = iniPDG;
            rMass= iniQM;
          }
          ffin = true;
        }
#ifdef debug
        G4cout<<"G4Q::HQ:MQ="<<q4Mom.m()<<"->sPDG="<<sPDG<<"(M="<<sMass<<") + rPDG="<<rPDG
              <<"(M="<<rMass<<")"<<",S="<<rMass+sMass<<G4endl;
#endif
        if(q4Mom.m()+.003<rMass+sMass)
        {
#ifdef debug
          G4cerr<<"G4Q::HQ:***PANIC#3***tM="<<q4Mom.m()<<"<rM="<<rMass<<",sM="<<sMass
                <<",d="<<rMass+sMass-q4Mom.m()<<G4endl;
#endif
#ifdef pdebug
        //  throw G4QException("G4Quasmon::HadronizeQuasmon: Why PANIC? (3)"); //@@ TMP
          G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0052",
                      FatalException, "Why PANIC? (3)");
#endif
          status =-1;                                // Panic exit
          qEnv=theEnvironment;                       // Update the QEnvironment
          return theQHadrons;
        }
        G4double cqM=q4Mom.m();
        G4LorentzVector resQ4Mom(0.,0.,0.,rMass);    // 4-mom of residual Quasmon in CMS
        G4LorentzVector s4Mom(0.,0.,0.,sMass);       // Mass is random since probab. level
        G4double sum=rMass+sMass;
        if(fabs(cqM-sum)<eps)
        {
          resQ4Mom=q4Mom*(rMass/sum);
          s4Mom=q4Mom*(sMass/sum);
        }
        else if(cqM<sum || !G4QHadron(q4Mom).DecayIn2(resQ4Mom, s4Mom))
        {
          // G4cerr<<"***G4Quasmon::HadronizeQuasmon: MQ="<<cqM<<"-> rPDG="<<rPDG<<", (M="
          //       <<rMass<<") + sPDG="<<sPDG<<"(M="<<sMass<<")="<<sum<<G4endl;
          // throw G4QException("G4Quasmon::HadronizeQuas:Quasm+Hadr DecayIn2 error");
          G4ExceptionDescription ed;
          ed << "Quasm+Hadr DecayIn2 error: MQ=" << cqM << "-> rPDG=" << rPDG
             << ", (M=" << rMass << ") + sPDG=" << sPDG << "(M=" << sMass
             << ")=" << sum << G4endl;
          G4Exception("G4Quasmon::HadronizeQuasmon()", "HAD_CHPS_0053",
                      FatalException, ed);
        }
#ifdef debug
        G4cout<<"G4Q::HQ:Decay of Quasmon="<<q4Mom<<"->s="<<sPDG<<s4Mom<<"+R="<<resQ4Mom
              <<",f="<<ffin<<G4endl;
#endif
        G4QHadron* candHadr = new G4QHadron(sPDG,s4Mom);// Creation Hadron for Candidate
        if(ffin)
        {
          //@@CHECK CoulBar and may be evaporate instead
          theQHadrons.push_back(candHadr);           // Fill the emergency PHOTON (del.eq.)
          G4QHadron* candHRes = new G4QHadron(rPDG,resQ4Mom);// Creation Hadron for QResid
          FillHadronVector(candHRes);                // Fill "new candHRes" (del.equiv.)
          ClearQuasmon();                            // This Quasmon is done
          qEnv=theEnvironment;
          return theQHadrons;
        }
        else
        {
          G4QContent outQC = G4QPDGCode(sPDG).GetQuarkContent();
          G4int outChg     = outQC.GetCharge();
          G4double outProb = 1.;
          if(theEnvironment.GetPDG()>NUCPDG)
          {
            G4int outBar   = outQC.GetBaryonNumber();
            G4double outCB = theEnvironment.CoulombBarrier(outChg,outBar);//ChrgIsNeglected
            // Now the CoulBar reflection should be taken into account
            G4double outT  = s4Mom.e()-s4Mom.m(); 
            outProb = theEnvironment.CoulBarPenProb(outCB,outT,outChg,outBar);
          }
          G4double rnd=G4UniformRand();
#ifdef debug
          G4cout<<"G4Q::HQ: for "<<sPDG<<", rnd="<<rnd<<" < outP="<<outProb<<" ?"<<G4endl;
#endif
          if(rnd<outProb)
          {
            FillHadronVector(candHadr);              // Fill "new candHadr" (del.equiv.)
            check+= s4Mom;                           // @@ Just for checking
            ccheck+=outChg;                          // @@ Just for checking
            q4Mom = resQ4Mom;                        // Update ResidQuasmonLorentzVector
            valQ  = curQ;                            // Update the Quark Content of Quasmon
            status= 1;                               // Something was successfuly done
            phot4M=zeroLV;
            piF=false;
            gaF=false;
          }
          else
          {
            status=3;                                // Stopped by CB (over barrier STOP)
            delete candHadr;                         // As a result DoNothing
          }
        }
      }
      else                                           // ===>"HadronInNuclMedia or NuclCand"
      {
        // Now the CoulBar reflection should be taken into account
        G4QContent outQC = G4QPDGCode(sPDG).GetQuarkContent();
        G4int outBar     = outQC.GetBaryonNumber();
        G4int outChg     = outQC.GetCharge();
        G4double outCB   = theEnvironment.CoulombBarrier(outChg,outBar);
        // Now theCoulombPotential should be taken into account //@@ How to do this ??
        if(nucflag) rQ4Mom+=G4LorentzVector(dMass);  // Make a correction of ResidQuasmon4M
        G4QHadron tmpRQH(valQ+transQC,rQ4Mom);       // Tmp Hadron for the Residual Quasmon
        // Now theCoulBar reflection should be taken into account
        G4double outT    = fr4Mom.e()-fr4Mom.m(); 
        G4double outProb = theEnvironment.CoulBarPenProb(outCB,outT,outChg,outBar);
        if(G4UniformRand()<outProb)
        {
          theEnvironment.Reduce(pPDG);               // Update NuclearEnviron after Q->RQ+F
          G4LorentzVector sumL=theEnvironment.Get4Momentum()+q4Mom; //@@ Check Print Only
          check += fr4Mom;                           //@@ Just for checking
          ccheck+=G4QPDGCode(sPDG).GetCharge();      //@@ Just for checking
          // --- @@ --- Potential recovery of the secondary --- Bad experience
          //G4double bindE=sMass-pMass;
          //G4double fE=fr4Mom.e();
          //G4double nfE=fE+bindE;
          //G4double frM2=sMass*sMass;                 // MinSuaredMass of OutgoingFragment
          //G4double rpf=sqrt((nfE*nfE-frM2)/(fE*fE-frM2))-1.;
          //G4LorentzVector bind4M(rpf*fr4Mom.vect(),bindE);       
          //G4LorentzVector ren4M=tot4M-fr4Mom-bind4M;
          //G4double rnM2= ren4M.m2();                 // ResidNucleusMass after separation
          //G4QContent renQC=theEnvironment.GetQCZNS()+valQ;
          //G4QNucleus renTot(renQC);                  // PseudoNucleus for TotResidualNucl
          //G4double   renTotM=renTot.GetMZNS();       // GSMass of Total Residual Nucleus
          //if(rnM2>renTotM*renTotM)
          //{
          //  fr4Mom+=bind4M;
          //  rQ4Mom-=bind4M;
          //}
          // --- @@ --- End of Potential recovery of the secondary
          q4Mom  = rQ4Mom;                           // Update the 4Mom of the Quasmon
          if(sPDG>MINPDG) valQ  += transQC;          // Update the Quark Content of Quasmon
          G4QHadron* candHadr = new G4QHadron(sPDG,fr4Mom);// Createa Hadron for Candidate
          FillHadronVector(candHadr);                // Fill the RadiatedHadron(del.equiv.)
#ifdef debug
          G4cout<<"G4Q::HQ:QuarkExchHadronizThroughCB Q="<<valQ<<",trQC="<<transQC<<G4endl;
#endif   
          sumL-=theEnvironment.Get4Momentum()+q4Mom+fr4Mom;
#ifdef debug
          G4cout<<"G4Q::HQ:status=1, ------>> NuclearMatter SUBCHECK ---->>"<<sumL<<G4endl;
#endif   
          status=1;                                  // Something was successfuly done
          phot4M=zeroLV;
          piF=false;
          gaF=false;
        }
        else
        {
#ifdef debug
          G4cout<<"G4Q::HQ:CBIsn'tPEN,P="<<outProb<<",T="<<outT<<",M="<<fr4Mom.m()<<G4endl;
#endif
          // @@ To enable fission one should put "suck in Q" here @@
          //if(envA<20&&G4UniformRand()>envA*envA/400) // ?? M.K. ??
          //{
            status=3;
            if(gaF)
            {
              phot4M=zeroLV;
              gaF=false;
            }
          //}
        }
      }
    } // End of skip
    // === Check of boundary to escape not existing state of residual nucleus ===
    if(CheckGroundState())
    //if(CheckGroundState(true))
    {
      ClearQuasmon();                           // This Quasmon is done
      qEnv=theEnvironment;
      return theQHadrons;      
    }
    G4LorentzVector sumLor=theEnvironment.Get4Momentum()+q4Mom+check;
#ifdef debug
    G4int eZ   = theEnvironment.GetZ();
    G4int sumC = eZ+valQ.GetCharge()+ccheck;
    G4int curPDG=valQ.GetSPDGCode();
    G4cout<<"G4Q::HQ:Z="<<eZ<<valQ<<"***>FinalCHECK***>>4M="<<sumLor<<",Ch="<<sumC<<G4endl;
    if(!curPDG) G4cout<<"***G4Q::HQ: Quasmon-Tripolino QC="<<valQ<<G4endl;
    G4cout<<"G4Q::HQ:=------=> ResidualQ 4M="<<q4Mom<<", QC="<<valQ<<G4endl;
#endif
  } // End of the main while loop
#ifdef chdebug
  G4int ecSum=theEnvironment.GetZ()+valQ.GetCharge(); // To compare with initial charge
  G4int nHe=theQHadrons.size();
  if(nHe) for(int ih=0; ih<nHe; ih++) ecSum+=theQHadrons[ih]->GetCharge();
  if(ecSum!=cSum)
  {
    G4cerr<<"***G4Q::HQ:C"<<cSum<<",c="<<ecSum<<",E="<<theEnvironment<<",Q="<<valQ<<G4endl;
    G4cerr<<":G4Q::HQ:*END*,oE="<<oldEnv<<"oQ="<<oldCQC<<",oN="<<oldNH<<",N="<<nHe<<G4endl;
    if(nHe) for(G4int h=0; h<nHe; h++)
    {
      G4QHadron* cH = theQHadrons[h];
      G4cerr<<"::G4Q::HQ:#h"<<h<<",C="<<cH->GetCharge()<<",P="<<cH->GetPDGCode()<<G4endl;
    }
  }
#endif
#ifdef debug
  G4cout<<"G4Q::HQ: Q="<<q4Mom<<valQ<<",E="<<theEnvironment<<", status="<<status<<G4endl;
#endif
  qEnv=theEnvironment;                               // Update the QEnvironment
  return theQHadrons;
} // End of "HadronizeQuasmon"

// Decay the Quasmon if it is a Hadron or a Chipolino and fill theHadronVector (out & in!)
G4QHadronVector* G4Quasmon::DecayQuasmon() // Public wrapper for FillHadronVector(this)
{
  G4QHadron* thisQuasmon = new G4QHadron(valQ,q4Mom);  // create a Hadron for this Quasmon
  FillHadronVector(thisQuasmon);                       // Fill it as a hadron
  G4QHadronVector* theFragments = new G4QHadronVector; // user is responsible to delete!
  G4int nHadrs=theQHadrons.size();
#ifdef debug
  G4cout<<"G4Q::DecayQuasmon:After decay (FillHadronVector byItself) nH="<<nHadrs<<G4endl;
#endif
  if(nHadrs) for (int hadron=0; hadron<nHadrs; hadron++)
  {
    G4QHadron* curHadr = new G4QHadron(theQHadrons[hadron]);
    theFragments->push_back(curHadr);                  // (user must delete)
  }
#ifdef pdebug
  else G4cerr<<"*******G4Quasmon::DecayQuasmon: *** Nothing is in the output ***"<<G4endl;
#endif
  valQ=G4QContent(0,0,0,0,0,0);                        // Wipe the Quasmon out
  q4Mom=G4LorentzVector(0.,0.,0.,0.);                  // ... with its 4-momentum
  return theFragments;
} // End of "DecayQuasmon"

// Test for Decay, Decay, Filling of hadron vector
void G4Quasmon::FillHadronVector(G4QHadron* qH)
{
  // SHORT-RANGE CORRELATIONS
  // =----------------------=
  // dN/kdk=C/(A+k^2)^2, where A=-1/2ar. {NN=pp,nn,np}
  // Randomization: p_NN^2=A_NN/(1/rndm-1), E_NN=sqrt(m_NN^2+p_NN^2)
  // A_pp=888.3
  // A_nn=410.1
  // A_pn=297.5
  // Breite-Wigner representation:
  // m_pp=-0.9450 MeV; G_pp=0
  // m_nn=-0.4336 MeV; G_nn=0
  // m_pn=-0.3139 MeV; G_pn=0
  // ----------------------------------------------------------------
  static const G4LorentzVector zeroLV(0.,0.,0.,0.);
  static const G4double mAlph = G4QPDGCode(2112).GetNuclMass(2,2,0);
  static const G4QContent neutQC(2,1,0,0,0,0);
  static const G4QContent protQC(1,2,0,0,0,0);
  static const G4QContent sigmQC(2,0,1,0,0,0);
  static const G4QContent lambQC(1,1,1,0,0,0);
  static const G4QContent sigpQC(0,2,1,0,0,0);
  static const G4QContent PiQC(0,1,0,1,0,0);
  static const G4QContent K0QC(1,0,0,0,0,1);
  static const G4QContent KpQC(0,1,0,0,0,1);
  static const G4double mNeut= G4QPDGCode(2112).GetMass();
  static const G4double mProt= G4QPDGCode(2212).GetMass();
  static const G4double mSigM= G4QPDGCode(3112).GetMass();
  static const G4double mLamb= G4QPDGCode(3122).GetMass();
  static const G4double mSigP= G4QPDGCode(3222).GetMass();
  static const G4double mPi  = G4QPDGCode(211).GetMass();
  static const G4double mPi0 = G4QPDGCode(111).GetMass();
  static const G4double mK   = G4QPDGCode(321).GetMass();
  static const G4double mK0  = G4QPDGCode(311).GetMass();

  status=1;                                    // Something isGoingToBeFilled by Quasmon
  phot4M=zeroLV;
  G4int thePDG      = qH->GetPDGCode();        // Get PDG code of the Hadron to switch
  G4LorentzVector t = qH->Get4Momentum();      // 4-Mom of Chipolino
#ifdef psdebug
  if(thePDG==113 && fabs(t.m()-770.)<.001)
  {
    G4cerr<<"G4Q::FillHadronVector: PDG="<<thePDG<<",M="<<t.m()<<G4endl;
    // throw G4QException("G4Quasmon::FillHadronVector: Zero rho");
    G4Exception("G4Quasmon::FillHadronVector()", "HAD_CHPS_0000",
                FatalException, "Zero rho");
  }
#endif
#ifdef pdebug
  G4cout<<"G4Q::FillHadronVector:Hadron's PDG="<<thePDG<<",4Mom="<<t<<",m="<<t.m()<<G4endl;
#endif
  if(thePDG>80000000 && (thePDG<90000000 || thePDG%1000>500 || thePDG%1000000>500000)
  && thePDG!=90002999 && thePDG!=89999003 && thePDG!=90003998 && thePDG!=89998004
  && thePDG!=90003999 && thePDG!=89999004 && thePDG!=90004998 && thePDG!=89998005)
  { // Translation from CHIPS encoding to PDG encoding @@ change to NuclToHadr
    if     (thePDG==90999999) thePDG=-311;  // anti-K0 === Meson OCTET
    else if(thePDG==90999000) thePDG=-321;  // K-
    else if(thePDG==89000001) thePDG=311;   // K0
    else if(thePDG==89001000) thePDG=321;   // K+
    else if(thePDG==90000999) thePDG=211;   // pi+
    else if(thePDG==89999001) thePDG=-211;  // pi-
    else if(thePDG==89999999) thePDG=-2112; // anti-neutr=>ant-OCTET reduced to SEPTUM L/S0
    else if(thePDG==89999000) thePDG=-2212; // anti-proton
    else if(thePDG==89000000) thePDG=-3122; // anti-lambda
    else if(thePDG==88999002) thePDG=-3222; // anti-SIGMA+
    else if(thePDG==89000999) thePDG=-3222; // anti-SIGMA-
    else if(thePDG==88000001) thePDG=-3322; // anti-KSI0
    else if(thePDG==88001000) thePDG=-3312; // anti-KSI-
    else if(thePDG==89999002) thePDG=1114;  // Delta-(resonance) === bary-DECUPLET/OCTET
    else if(thePDG==90001999) thePDG=2224;  // Delta++(res)(Delta0&Delta+ a covered by n&p)
    else if(thePDG==91000000) thePDG=3122;  // Lambda
    else if(thePDG==90999001) thePDG=3112;  // Sigma-
    else if(thePDG==91000999) thePDG=3222;  // Sigma+ (Sigma0 iz covered by Lambda)
    else if(thePDG==91999000) thePDG=3312;  // Ksi-
    else if(thePDG==91999999) thePDG=3322;  // Ksi0
    else if(thePDG==92998999) thePDG=3112;  // Omega-(resonance)
#ifdef pdebug
    else G4cerr<<"*G4Quasmon::FillQHV:PDG="<<thePDG<<",M="<<qH->Get4Momentum().m()<<G4endl;
#endif
    qH->SetQPDG(G4QPDGCode(thePDG));
  }
  if (thePDG==10)// Chipolino decays (@@always - Chipolino is not kept in HadV (*Example*))
  {
    G4double rM = t.m();                     // Mass of Chipolino
    G4QContent chipQC = qH->GetQC();         // QC of Chipolino
    G4QContent h1QC = chipQC.SplitChipo(rM); // Extract QC of oneOfTheHadrons of Chipolino
    G4QContent h2QC = chipQC - h1QC;         // Define QC of the second Hadron
    G4int h1PDG = h1QC.GetSPDGCode();        // PDGCode of the First Hadron
    G4int h2PDG = h2QC.GetSPDGCode();        // PDGCode of the First Hadron
    if(!h1PDG || !h2PDG)
    {
      G4cerr<<"***FillHV:h1QC="<<h1QC<<"(PDG="<<h1PDG<<"),h2QC="<<h2QC<<"(PDG="<<h2PDG<<")"
            <<G4endl;
      G4Exception("G4Quasmon::FillHadronVector()", "HAD_CHPS_0001", FatalException,
                  "Chipolino can't be defragmented");
    }
    G4QHadron* fHadr = new G4QHadron(h1PDG); // the First Hadron is created
    G4QHadron* sHadr = new G4QHadron(h2PDG); // the Second Hadron is created
    G4LorentzVector f4Mom = fHadr->Get4Momentum();
    G4LorentzVector s4Mom = sHadr->Get4Momentum();
    if(!qH->DecayIn2(f4Mom,s4Mom))
    {
      delete fHadr;                          // Delete "new fHadr"
      delete sHadr;                          // Delete "new sHadr"
      G4cerr<<"***G4Q::FillHadrV:ChipQC"<<chipQC<<":PDG1="<<h1PDG<<",PDG2="<<h2PDG<<G4endl;
      theQHadrons.push_back(qH);             // No decay (delete equivalent)
    }
    else
    {
      delete qH;
      fHadr->Set4Momentum(f4Mom);            // Put the randomized 4Mom to 1-st Hadron
      FillHadronVector(fHadr);               // Fill 1st Hadron (delete equivalent)
      sHadr->Set4Momentum(s4Mom);            // Put the randomized 4Mom to 2-nd Hadron
      FillHadronVector(sHadr);               // Fill 2nd Hadron (delete equivalent)
    }
  }
  else if(thePDG>80000000&&thePDG!=90000000) //==Decay-Evaporation of theBarionicFragment==
  {
    G4double fragMas=t.m();                  // Real Mass of the nuclear fragment
    //G4double fragMas=qH->GetMass();          // GrStMass of the nuclear fragment (wrong?)
    G4QNucleus qNuc(t,thePDG);               // Make a Nucleus out of the Hadron
    // @@ Probably, when nucleus is initialized, the mass is not initialized ? Was OK! Why?
    //G4double GSMass =qNuc.GetGSMass();       // GrState Mass of the nuclear fragment (?)
    G4double GSMass = G4QPDGCode(thePDG).GetMass(); // More robust definition
    G4QContent totQC=qNuc.GetQCZNS();        // Total Quark Content of Residual Nucleus
    G4int    nN     =qNuc.GetN();            // A#of neutrons in the Nucleus
    G4int    nZ     =qNuc.GetZ();            // A#of protons in the Nucleus
    G4int    nS     =qNuc.GetS();            // A#of protons in the Nucleus
    G4int    bA     =qNuc.GetA();            // A#of baryons in the Nucleus
#ifdef pdebug
    G4cout<<"G4Quasm::FillHadrVect:Nucl="<<qNuc<<",nPDG="<<thePDG<<",GSM="<<GSMass<<G4endl;
#endif
    if((nN<0 || nZ<0 || nS<0) && bA>0)       // => "Anti-strangeness or ISOBAR" case
    {
      G4double m1=mPi;                       // Prototypes for the nZ<0 case
      G4int  PDG1=-211;
      G4QNucleus  newNpm(totQC+PiQC);
      G4int newS=newNpm.GetStrangeness();
      if(newS>0) newNpm=G4QNucleus(totQC+PiQC+newS*K0QC);
      G4int  PDG2=newNpm.GetPDG();
      G4double m2_value=newNpm.GetMZNS();
      if(nS<0)
      {
        m1         =mK;         
        PDG1       =321;
        G4QNucleus  newNp(totQC-KpQC);
        PDG2       =newNp.GetPDG();
        m2_value   =newNp.GetMZNS();
        G4QNucleus  newN0(totQC-K0QC);
        G4double m3_value=newN0.GetMZNS();
        if (m3_value+mK0<m2_value+mK)        // => "aK0+ResA is better" case
        {
          m1  =mK0;
          PDG1=311;
          m2_value  =m3_value;
          PDG2=newN0.GetPDG();
        }
      }
      else if(nS>0&&nZ+nN>0)
      {
        if(nN<0)
        {
          m1         =mSigP;         
          PDG1       =3222;
          G4QNucleus  newNp(totQC-sigpQC);
          PDG2       =newNp.GetPDG();
          m2_value   =newNp.GetMZNS();
        }
        else
        {
          m1         =mSigM;         
          PDG1       =3112;
          G4QNucleus  newNp(totQC-sigmQC);
          PDG2       =newNp.GetPDG();
          m2_value   =newNp.GetMZNS();
        }
      }
      else if(nN<0)
      {
        PDG1       =211;
        G4QNucleus  newNpp(totQC-PiQC);
        PDG2       =newNpp.GetPDG();
        m2_value   =newNpp.GetMZNS();
      }
      if(fragMas>m1+m2_value)                  // => "can decay" case
      {
        G4LorentzVector fq4M(0.,0.,0.,m1);
        G4LorentzVector qe4M(0.,0.,0.,m2_value);
        if(!qH->DecayIn2(fq4M,qe4M))
        {
          G4ExceptionDescription ed;
          ed << "Mes+ResA DecayIn2 did not succeed: QM=" << t.m() << "-> Mes=" << PDG1
             << "(M=" << m1 << ") + ResA=" << PDG2 << "(M=" << m2_value << ")" << G4endl;
          G4Exception("G4Quasmon::FillHadronVector()","HAD_CHPS_0002", FatalException, ed);
        }
        delete qH;
        G4QHadron* H1 = new G4QHadron(PDG1,fq4M);
        theQHadrons.push_back(H1);           // (delete equivalent)
        G4QHadron* H2 = new G4QHadron(PDG2,qe4M);
        FillHadronVector(H2);                // (delete equivalent)
      }
      else if(fabs(m1+m2_value-fragMas)<0.01)      // Split the 4-momentum
      {
        G4double r1=m1/fragMas;
        G4double r2=1.-r1;
        //qH->SetNFragments(2);                // Put a#of Fragments=2
        //theQHadrons.push_back(qH);
        // Instead
        delete qH;
        //
        G4QHadron* H1 = new G4QHadron(PDG1,r1*t);
        theQHadrons.push_back(H1);             // (delete equivalent)
        G4QHadron* H2 = new G4QHadron(PDG2,r2*t);
        FillHadronVector(H2);                  // (delete equivalent)
      }
      else
      {
#ifdef debug
        G4cerr<<"-Warning-G4Q::FillHVec:PDG="<<thePDG<<"("<<t.m()<<","<<fragMas<<") < Mes="
              <<PDG1<<"("<<m1<<") + ResA="<<PDG2<<"("<<m2_value<<"), d="<<fragMas-m1-m2_value<<G4endl;
        //throw G4QException("G4Quasm::FillHadrVec: mass of decaying hadron is too small");
#endif
        theQHadrons.push_back(qH); // FillAsIs to correct later in G4QEnvironment (Warning)
      }
    }
    else if(abs(fragMas-GSMass)<.1)            // the Nucleus is too close the Ground State
    {
#ifdef pdebug
      G4cout<<"G4Quasm::FillHadrVect: Ground state"<<G4endl;
#endif
      G4double nResM  =1000000.;               // Prototype of residualMass for the neutron
      G4int    nResPDG=0;                      // Prototype of PDGCode for the neutron
      if(nN>0&&bA>1)                           // It's nucleus and there is the neutron
      {
        G4QContent resQC=totQC-neutQC;
        G4QNucleus resN(resQC);                // Pseudo nucleus for the Residual Nucleus
        nResPDG=resN.GetPDG();                 // PDG of the Residual Nucleus
        if     (nResPDG==90000001) nResM=mNeut;
        else if(nResPDG==90001000) nResM=mProt;
        else if(nResPDG==91000000) nResM=mLamb;
        else nResM=resN.GetMZNS();             // min mass of the Residual Nucleus
      }
      G4double pResM  =1000000.;               // Prototype of residualMass for the proton
      G4int    pResPDG=0;                      // Prototype of PDGCode of the proton
      if(nZ>0&&bA>1)                           // It's nucleus and there is theroton
      {
        G4QContent resQC=totQC-protQC;
        G4QNucleus resN(resQC);                // Pseudo nucleus for the Residual Nucleus
        pResPDG=resN.GetPDG();                 // PDG of the Residual Nucleus
        if     (pResPDG==90000001) pResM=mNeut;
        else if(pResPDG==90001000) pResM=mProt;
        else if(pResPDG==91000000) pResM=mLamb;
        else pResM  =resN.GetMZNS();           // min mass of the Residual Nucleus
      }
      G4double lResM  =1000000.;               // Prototype of residualMass for the Lambda
      G4int    lResPDG=0;                      // Prototype of PDGCode of the Lambda
      if(nS>0&&bA>1)                           // It's nucleus and there is the Lambda
      {
        G4QContent resQC=totQC-lambQC;
        G4QNucleus resN(resQC);                // Pseudo nucleus for the Residual Nucleus
        lResPDG=resN.GetPDG();                 // PDG of the Residual Nucleus
        if     (lResPDG==90000001) lResM=mNeut;
        else if(lResPDG==90001000) lResM=mProt;
        else if(lResPDG==91000000) lResM=mLamb;
        else lResM  =resN.GetMZNS();           // min mass of the Residual Nucleus
      }
#ifdef debug
      G4cout<<"G4Quasm::FillHadrVec:rP="<<pResPDG<<",rN="<<nResPDG<<",rL="<<lResPDG<<",nN="
            <<nN<<",nZ="<<nZ<<",nL="<<nS<<",totM="<<fragMas<<",n="<<fragMas-nResM-mNeut
            <<",p="<<fragMas-pResM-mProt<<",l="<<fragMas-lResM-mLamb<<G4endl;
#endif
      if ( thePDG == 90004004 ||
           (bA > 1 && ( (nN > 0 && fragMas > nResM+mNeut) || 
                        (nZ > 0 && fragMas > pResM+mProt) || 
                        (nS > 0 && fragMas > lResM+mLamb) ) ) )
      {
        G4int barPDG = 90002002;
        G4int resPDG = 90002002;
        G4double barM= mAlph;
        G4double resM= mAlph;

        if (fragMas > nResM+mNeut) {  // Can radiate a neutron (priority 1)
          barPDG = 90000001;
          resPDG = nResPDG;
          barM= mNeut;
          resM= nResM;
        }
        else if(fragMas>pResM+mProt)  // Can radiate a proton (priority 2)
        {
          barPDG=90001000;
          resPDG=pResPDG;
          barM  =mProt;
          resM  =pResM;
        }
        else if(fragMas>lResM+mLamb)  // Can radiate a Lambda (priority 3)
        {
          barPDG=91000000;
          resPDG=lResPDG;
          barM  =mLamb;
          resM  =lResM;
        }
        else if(thePDG!=90004004 && fragMas>GSMass)// If it's not Be8 decay in gamma
        {
          barPDG=22;
          resPDG=thePDG;
          barM  =0.;
          resM  =pResM;
        }
        else if(thePDG!=90004004)
        {
          G4ExceptionDescription ed;
          ed << "Below GSM but cann't decay: PDG=" << thePDG << ",M=" << fragMas
             << "<GSM=" << GSMass << G4endl;
          G4Exception("G4Quasmon::FillHadronVector()","HAD_CHPS_0003", FatalException, ed); 
        }
        G4LorentzVector a4Mom(0.,0.,0.,barM);
        G4LorentzVector b4Mom(0.,0.,0.,resM);
        if(!qH->DecayIn2(a4Mom,b4Mom))
        {
          theQHadrons.push_back(qH);            // No decay (delete equivalent)
          G4cerr<<"---Warning---G4Q::FillHadronVector: Be8 decay did not succeed"<<G4endl;
        }
        else
        {
          //qH->SetNFragments(2);               // Fill a#of fragments to decaying Hadron
          //theQHadrons.push_back(qH);            // Fill hadron with nf=2 (del. eq.)
          // Instead
          delete qH;
          //
          G4QHadron* HadrB = new G4QHadron(barPDG,a4Mom);
          FillHadronVector(HadrB);             // Fill 1st Hadron (delete equivalent)
          G4QHadron* HadrR = new G4QHadron(resPDG,b4Mom);
          FillHadronVector(HadrR);             // Fill 2nd Hadron (delete equivalent)
        }
      }
      else
      {
#ifdef debug
        G4cout<<"G4Quasm::FillHadrVect: Leave as it is"<<G4endl;
#endif
        theQHadrons.push_back(qH);             // No decay  (delete equivalent)
      }
    }
    else if (fragMas < GSMass)                 // Approximate equality was already checked
    {
      G4cerr<<"***G4Quasmon::FillHV:M="<<fragMas<<">GSM="<<GSMass<<"(PDG="<<thePDG<<"),d="
            <<fragMas-GSMass<<", NZS="<<nN<<","<<nZ<<","<<nS<<G4endl;
      //throw G4QException("*G4Quasmon::FillHadronVector:Mass is below theGroundStateVal");
      G4cout<<"****>>G4Quasm::FillHadrVect: Leave as it is Instead of Exception"<<G4endl;
      theQHadrons.push_back(qH);               // Fill As Is  (delete equivalent)
    }
    else if (bA==1 && fragMas>GSMass)
    {
      G4int gamPDG=22;
      G4double gamM=0.;
      if(fragMas>mPi0+GSMass)
      {
        gamPDG=111;
        gamM=mPi0;
      }
      G4LorentzVector a4Mom(0.,0.,0.,gamM);
      G4LorentzVector b4Mom(0.,0.,0.,GSMass);
      if(!qH->DecayIn2(a4Mom,b4Mom))
      {
        theQHadrons.push_back(qH);         // No decay (delete equivalent)
        G4cerr<<"---Warning---G4Q::FillHadrVect:N*->gamma/pi0+N decay error"<<G4endl;
      }
      else
      {
        G4QHadron* HadrB = new G4QHadron(gamPDG,a4Mom);
        FillHadronVector(HadrB);           // Fill gamma/Pi0 Hadron (delete equivalent)
        qH->Set4Momentum(b4Mom);           // Put the new 4-mom in the residual GS fragment
        theQHadrons.push_back(qH);         // Fill corrected baryon in the HadronVector
      }
    }
    else                                   // ===> Evaporation of excited system
    {
#ifdef ppdebug
      G4cout<<"G4Quasm::FillHadrVect:Evaporate "<<thePDG<<",tM="<<fragMas<<" > GS="<<GSMass
            <<qNuc.Get4Momentum()<<", m="<<qNuc.Get4Momentum().m()<<G4endl;
#endif
      G4QHadron* bHadron = new G4QHadron;
      G4QHadron* rHadron = new G4QHadron;
      if(!qNuc.EvaporateBaryon(bHadron,rHadron))
      {
        G4cerr<<"---Warning---G4Q::FillHV:Evaporate PDG="<<thePDG<<",M="<<fragMas<<G4endl;
        delete bHadron;
        delete rHadron;
        theQHadrons.push_back(qH);         // Fill hadron in the HadronVector as it is
      }
      else
      {
#ifdef debug
        G4cout<<"G4Q::FlHV:Done,b="<<bHadron->GetQPDG()<<",r="<<rHadron->GetQPDG()<<G4endl;
#endif
        delete qH;
        if(bHadron->GetPDGCode() < -1111)
        {
          G4QHadronVector* tmpQHadVec=DecayQHadron(bHadron); // (delete equivalent)
          G4int tmpS=tmpQHadVec->size();
          theQHadrons.resize(tmpS+theQHadrons.size());       // Resize theQHadrons length
          copy( tmpQHadVec->begin(), tmpQHadVec->end(), theQHadrons.end()-tmpS);
          tmpQHadVec->clear();
          delete tmpQHadVec;  // Who calls DecayQHadron is responsible for clear & delete
        }
        else FillHadronVector(bHadron);          // Fill Evapor. Baryon (delete equivalent)
        if(rHadron->GetPDGCode() < -1111)
        {
          G4QHadronVector* tmpQHadVec=DecayQHadron(rHadron); // (delete equivalent)
          G4int tmpS=tmpQHadVec->size();
          theQHadrons.resize(tmpS+theQHadrons.size());       // Resize theQHadrons length
          copy( tmpQHadVec->begin(), tmpQHadVec->end(), theQHadrons.end()-tmpS);
          tmpQHadVec->clear();
          delete tmpQHadVec;  // Who calls DecayQHadron is responsible for clear & delete
        }
        else FillHadronVector(rHadron);          // Fill Residual Nucl. (delete equivalent)
      }
    }
  }
  else                                 // Try to decay the QHadron (delete equivalent)
  {
#ifdef pdebug
    G4cout<<"G4Q::FillHV: ---DECAY--- QH="<<qH->GetPDGCode()<<qH->Get4Momentum()<<G4endl;
#endif
    G4QHadronVector* tmpQHadVec=DecayQHadron(qH); // (delete equivalent for qH or Products)
#ifdef pdebug
    G4cout<<"G4Q::FillHV: ---DECAY IS DONE--- with nH="<<tmpQHadVec->size()<<G4endl;
#endif
    G4int tmpS=tmpQHadVec->size();
    theQHadrons.resize(tmpS+theQHadrons.size()); // Resize theQHadrons length
    copy( tmpQHadVec->begin(), tmpQHadVec->end(), theQHadrons.end()-tmpS);
#ifdef pdebug
    G4cout<<"G4Q::FillHV: -->Products are added to QHV, nQHV="<<theQHadrons.size()<<G4endl;
#endif
    tmpQHadVec->clear();
    delete tmpQHadVec;  // That who calls DecayQHadron is responsible for clear & delete
#ifdef pdebug
    G4cout<<"G4Q::FillHV: TemporaryQHV of DecayProducts is deleted"<<G4endl;
#endif
  }
} // End of "FillHadronVector"

// Calculate a momentum of quark-parton greater then minimum value kMin
// It is called once with mC2=2*minK*M_Q or =mPio2 or =mP2 (a minimum CouloredResidualMass)
//G4double G4Quasmon::GetQPartonMomentum(G4double mR2, G4double mC2)
G4double G4Quasmon::GetQPartonMomentum(G4double kMax, G4double mC2)
{
  //gives k>kMin QParton Momentum for the current Quasmon
#ifdef debug
  //G4cout<<"G4Quasmon::GetQPartonMom:**called**mR="<<sqrt(mR2)<<",mC="<<sqrt(mC2)<<G4endl;
  G4cout<<"G4Quas::GetQPartonMomentum:***called*** kMax="<<kMax<<",mC="<<sqrt(mC2)<<G4endl;
#endif
  G4double qMass = q4Mom.m();                // Mass of the Quasmon (M_Q)
  G4double kLim  = qMass/2.;                 // Kinematikal limit for "k"
  G4double twM   = qMass+qMass;              // two masses of Quasmon
  G4double kMin  = mC2/twM;                  // mC2=2*kMin*M_Q
  //if(mR2) // (HYistorical) Previously the mR2 was an input parameter...
  //{
  //  G4double qM2   = qMass*qMass;          // Squared Mass of Quasmon
  //  G4double frM   = twM+twM;              // Four Masses of Quasmon (4*M_Q)
  //  G4double fM2m2 = frM*qMass*mC2;        // 4*M_Q**2*mC2=0.
  //  G4double Mmum  = qM2+mC2-mR2;          // QM**2-mR2
  //  G4double Mmum2 = Mmum*Mmum;            // (QM**2-mR2)**2
  //  if(Mmum2<fM2m2)throw G4QException("G4Quasmon::QPartMom:mR&mC are bigger then mQ");
  //  G4double sqM   = sqrt(Mmum2-fM2m2);    // QM**2-mR2
  //  kMin  = (Mmum-sqM)/frM;                // kMin=0.
  //  kMax  = (Mmum+sqM)/frM;                // kMax=2*(QM**2-mR2)/4QM
  //}
  if (kLim<kMax) kMax  = kLim;                // Limit the k-simulatiom by maxK=kMax
  if (kMin<0 || kMax<0 || qMass<=0. || nOfQ<2)
  {
    G4ExceptionDescription ed;
    ed << "Can not generate quark-parton: kMax=" << kMax << ", kMin=" << kMin
       << ", kLim=" << kLim << ", MQ=" << qMass << ", n=" << nOfQ << G4endl;
    G4Exception("G4Quasmon::GetQPartonMomentum()", "HAD_CHPS_0000", FatalException, ed);   
  }
#ifdef debug
  G4cout<<"G4Q::GetQPM: kLim="<<kLim<<",kMin="<<kMin<<",kMax="<<kMax<<",nQ="<<nOfQ<<G4endl;
#endif
  if(kMin>kMax||nOfQ==2) return kMax;
  G4int n=nOfQ-2;             // At this point n>0
  G4double fn=n;
  G4int dn=n;
  G4double vRndm = G4UniformRand();
  // *** Equation to be solved is R=(1-x)**n*(1+n*x)=n*(n+1)*INT_x^1[z*(1-z)**(n-1)*dz]
  // This equation doesn't take into account the reduction of the hadronization probability
  if (kMin>0.)               // ==> There is a minimum cut for the QuarkPartonMomentum 
  {
    G4double xMin=kMin/kLim; // Minimal value for "x"
    if (kMax>=kLim) vRndm = vRndm*pow((1.-xMin),n)*(1.+n*xMin);   // "xMin - 1." Range 
    else
    {
      G4double xMax=kMax/kLim;
      G4double vRmin = pow((1.-xMin),n)*(1.+n*xMin);
      G4double vRmax = pow((1.-xMax),n)*(1.+n*xMax);
      vRndm = vRmax + vRndm*(vRmin-vRmax); // Randomization in the "xMin - xMax" Range
    }
  }
  else if (kMax<kLim)
  {
    G4double xMax=kMax/kLim; // Maximum value for "x"
    G4double vRmax = pow((1.-xMax),n)*(1.+n*xMax);
    vRndm = vRmax + vRndm*(1.-vRmax);
  }
  if (vRndm<=0. || vRndm>1.)
  {
    //G4cout<<"-Warning-G4Quasmon::GetQPM: R="<<vRndm<<",kMi="<<kMin<<",kMa="<<kMax
    //      <<",kLi="<<kLim<<G4endl;
    if(vRndm<=0.) vRndm=1.e-9;
    else if(vRndm>1.) vRndm=1.;
  }
  if (n==1) return kLim*sqrt(1.-vRndm); // Direct solution for nOfQ==3
  else                                  // Needs iterations
  {
    G4double x  = 1.-pow(vRndm*(1+n*vRndm)/(fn+1.),1./fn);// First Guess for the Solution
    G4double ox = x;                    // The old (previous) guess is the same
    G4int    it = 0;                    // The number of iteration made
    G4double d  = 1.;                   // Prototype of the Residual Difference
    G4double df = 1./static_cast<double>(nOfQ); // 1/N for the reverse operations
    G4double f  = df*(static_cast<int>(nOfQ*nOfQ*n*x/5.)+(nOfQ/2)); // OptimalStepFactor
    G4double xMin=.0001;
    G4double xMax=.9999;
    if(kLim>0)
    {
      xMin=kMin/kLim;
      xMax=kMax/kLim;
    }
    if(f>27.)
    {
#ifdef debug
      G4cout<<"G4Q::GetQPMom: f="<<f<<" is changed to 99"<<G4endl;
#endif
      f  = 27.;
    }
    if(x<1.e-27) x=1.e-27;
    else if(x>.999999999) x=.999999999;
    G4double r  = 1.-x;
    G4double p  = r;
    if (n>2) p  = pow(r,n-1);  // (1-x)**(n-1)
    G4double nx = n*x;
    G4double c  = p*r*(1.+nx); // vRndm=(1-x)**n*(1+n*x) is the equation too be solved
    G4double od = c - vRndm;   // the old Residual Difference
#ifdef debug
    G4cout<<"G4Q::GetQPMom:--->> First x="<<x<<", n="<<n<<", f="<<f<<", d/R(first)="
            <<od/vRndm<<G4endl;
#endif
    G4int nitMax=dn+dn;       // Maximum number of iterations is defined by the power (n)
    if(nitMax>100)nitMax=100; // But it is limited by 100
    while( abs(d/vRndm) > 0.001 && it <= nitMax) // Solve the equation by Newton method
    {
      x  = x + f*od/(r*nx*(fn+1.)); // Calculate the new x value
      if(x<1.e-27) x=1.e-27;
      else if(x>.999999999) x=.999999999;
      r  = 1.-x;
      if (n>2) p  = pow(r,n-1);
      else     p  = r;
      nx = n*x;
      c  = p*r*(1.+nx);
      d  = c - vRndm;
      if ((od>0&&d<0)||(od<0&&d>0))   // ==> Overplay
      {
        if (f>1.0001) f=1.+(f-1.)/2.; // Modify the OptimalStepFactor for the overplay
        if (f<0.9999) f=1.+(1.-f)*2;
        x = (x + ox)/2.;              // Make an intermediate change of "x"
        if(x<1.e-27) x=1.e-27;
        else if(x>.999999999) x=.999999999;
        r  = 1.-x;
        if (n>2) p  = pow(r,n-1);
        else     p  = r;
        nx = n*x;
        c  = p*r*(1.+nx);
        d  = c - vRndm;
      }
      else
      {
        if (f>1.0001&&f<27.) f=1.+(f-1.)*2; // Make a regular correction of OptStepFactor
        if (f<0.99999999999) f=1.+(1.-f)/2.;
        if (f>=27.) f=27.;
      }
#ifdef debug
      G4cout<<"G4Q::GetQPMom: Iter#"<<it<<": (c="<<c<<" - R="<<vRndm<<")/R ="<<d/vRndm
            <<", x="<<x<<", f="<<f<<G4endl;
#endif
      if(x>xMax) x=xMax;
      if(x<xMin) x=xMin;
      if(fabs(d)>fabs(od) && n>99 && x!=xMin && x!=xMax)
      {
        x=ox;
        break;
      }
      od = d;
      ox = x;
      it++;
    }
#ifdef debug
    if(it>nitMax) G4cout<<"G4Q::GetQPMom: a#of iterations > nitMax="<<nitMax<<G4endl;
#endif
    if(x>xMax) x=xMax;
    if(x<xMin) x=xMin;
    G4double kCand=kLim*x;
    if(kCand>=kMax)kCand=kMax-.001;
    if(kCand<=kMin)kCand=kMin+.001;
    return kCand;
  }
  // ********** Possible Performance Improvement (corrupt physics!) **********
  // This is a simplified algorithm, which takes an empirical reduction 1/k of HadrProbab
  // As a result the equation to be solved is just R=(1-x)**n=n*INT_x^1[(1-z)**(n-1)*dz]
  //if (kMin>0.)               // ==> There is a minimum cut for the QuarkPartonMomentum 
  //{
  //  G4double xMin=kMin/kLim;            // Minimal value for "x"
  //  if (kMax>=kLim) vRndm = vRndm*pow((1.-xMin),n);   // Shrink to the "xMin - 1." Range 
  //  else
  //  {
  //    G4double xMax=kMax/kLim;          // Maximum value for "x"
  //    G4double vRmin = pow((1.-xMin),n); 
  //    G4double vRmax = pow((1.-xMax),n);
  //    vRndm = vRmax + vRndm*(vRmin-vRmax); // Randomization in the "xMin - xMax" Range
  //  }
  //}
  //else if (kMax<kLim)                   // ==> at this point kMin<=0 -> kMin=0
  //{
  //  G4double xMax=kMax/kLim;            // Maximum value for "x"
  //  G4double vRmax = pow((1.-xMax),n)*(1.+n*xMax);
  //  vRndm = vRmax + vRndm*(1.-vRmax);  // Shrink to the "0 - xMax" Range 
  //}
  //if      (n==1) return kLim*(1.-vRndm);            // Direct solution for nOfQ==3
  //else if (n==2) return kLim*(1.-sqrt(vRndm));      // Direct solution for nOfQ==4
  //else           return kLim*(1.-pow(vRndm,1./fn)); // Direct solution for nOfQ>4
} // End of "GetQPartonMomentum"

// For the given quasmon mass calculate a number of quark-partons in the system
G4int G4Quasmon::CalculateNumberOfQPartons(G4double qMass)
{
  static const G4double mK0  = G4QPDGCode(311).GetMass();
  // @@ Temporary here. To have 3 quarks in Nucleon Temperature should be < M_N/4 (234 MeV)
  // M^2=4*n*(n-1)*T^2 => n = M/2T + 1/2 + T/4M + o(T^3/16M^3)
  // @@ Genius (better than 10**(-3) even for n=2!) but useless
  //G4double qMOver2T = qMass/(Temperature+Temperature);
  //G4double est = qMOver2T+1.+0.125/qMOver2T;
  // @@ Longer but exact
  G4double qMOverT = qMass/Temperature;
  G4int valc = valQ.GetTot();
  // .................................
  // --- Exponent, Double Split, Poisson 1 ----------------
  // --- Uncomment up to here =-----------=^^^^^^^^^
  // Exponent ------
  //else nOfQ=mq-2*mean*log(G4UniformRand());
  // Poisson 1 ------
  // Double Split ------
  //else
  //{
  //  G4int imean = static_cast<int>(mean);
  //  G4double dm = mean - imean;
  //  if(G4UniformRand()>dm) nOfQ=mq+imean+imean;
  //  else nOfQ=mq+imean+imean+2;
  //}
  // .........
  // Poisson 2 =-----------=
  //if(valc%2==0)nOfQ = 2*RandomPoisson((1.+sqrt(1.+qMOverT*qMOverT))/4.);// abs(b) is even
  //else   nOfQ = 1+2*RandomPoisson((1.+sqrt(1.+qMOverT*qMOverT))/4.-0.5);// abs(b) is odd
  // Poisson 3 =-----------=
  nOfQ = RandomPoisson((1.+sqrt(1.+qMOverT*qMOverT))/2.);
  G4int     ev = valc%2;
  if      (!ev && nOfQ<2) nOfQ=2; // #of valence quarks is even
  else if ( ev && nOfQ<3) nOfQ=3; // #of valence quarks is odd
  //
#ifdef debug
  G4cout<<"G4Q::Calc#ofQP:QM="<<q4Mom<<qMass<<",T="<<Temperature<<",QC="<<valQ<<",n="<<nOfQ
         <<G4endl;
#endif
  G4int absb = abs(valQ.GetBaryonNumber());
  G4int tabn = 0;
  if(absb)tabn=3*absb;      // Minimal QC for baryonic system fragmentation
  else    tabn=4;           // Minimal QC for mesonic system fragmentation (@@ ?)
  if (nOfQ<tabn) nOfQ=tabn;
  G4int nSeaPairs = (nOfQ-valc)/2;
  G4int stran = abs(valQ.GetS());
  G4int astra = abs(valQ.GetAS());
  if(astra>stran) stran=astra;
  G4int nMaxStrangeSea=static_cast<int>((qMass-stran*mK0)/(mK0+mK0));//KK is min for s-sea
  if (absb) nMaxStrangeSea=static_cast<int>((qMass-absb)/672.); //LambdaK is min for s-sea
#ifdef debug
  G4cout<<"G4Q::Calc#ofQP:"<<valQ<<",INtot="<<valc<<",nOfQ="<<nOfQ<<",SeaPairs="<<nSeaPairs
        <<G4endl;
#endif
  if (nSeaPairs)            // Add/subtract sea pairs to/from initial quark content
  {
#ifdef debug
    G4int morDec=0;
#endif
    if(nSeaPairs>0)valQ.IncQAQ(nSeaPairs,SSin2Gluons);
#ifdef debug
    else    morDec=valQ.DecQAQ(-nSeaPairs);
    if(morDec) G4cout<<"G4Q::Calc#ofQP: "<<morDec<<" pairs can be reduced more"<<G4endl;
#endif
    G4int sSea=valQ.GetS(); // Content of strange quarks
    G4int asSea=valQ.GetAS();
    if(asSea<sSea) sSea=asSea;
    if(sSea>nMaxStrangeSea) // @@@@@@@ Too many strange sea ??????
    {
#ifdef debug
      G4cout<<"G4Q::Calc#ofQP:**Reduce** S="<<sSea<<",aS="<<asSea<<",maxS="<<nMaxStrangeSea
            <<G4endl;
#endif
      sSea-=nMaxStrangeSea; // Strange sea excess
      valQ.DecS(sSea);      // Reduce strange sea to adoptable limit
      valQ.DecAS(sSea);
      valQ.IncQAQ(sSea,0.); // Add notstrange sea ????????
    }
  }
  // @@ Chocolate rule --- Temporary (?)
  //G4int nmin = valc+valc-2; // Chocolate
  //G4int nmin = valc+absb;   // String Junction
  //if(nOfQ<nmin) nOfQ=nmin;
  // --- End of Temporary
#ifdef debug
  G4cout<<"G4Quasmon::Calc#ofQP: *** RESULT IN*** nQ="<<nOfQ<<", FinalQC="<<valQ<<G4endl;
#endif
  return nOfQ;
} // End of "CalculateNumberOfQPartons"

// Modify Candidate masses in nuclear matter and set possibilities
void G4Quasmon::ModifyInMatterCandidates()
{
  G4double envM = theEnvironment.GetMass();    // Mass of the Current Environment
  G4QContent envQC=theEnvironment.GetQCZNS();  // QuarkContent of theCurrentNuclearEnviron.
  G4int eP = theEnvironment.GetZ();            // A#of protons in the Current Environment
  G4int eN = theEnvironment.GetN();            // A#of neutrons in the Current Environment
  G4int eL = theEnvironment.GetS();            // A#of lambdas in the Current Environment
  G4QContent totQC=theEnvironment.GetQC()+valQ;// Total Quark Comtent of the system
  G4int tP = totQC.GetP();                     // A#of protons in the Current Environment
  G4int tN = totQC.GetN();                     // A#of neutrons in the Current Environment
  G4int tL = totQC.GetL();                     // A#of lambdas in the Current Environment
  G4double totM=G4QNucleus(totQC).GetMZNS();   // Mass of total system
  for (unsigned ind=0; ind<theQCandidates.size(); ind++)
  {
    G4QCandidate* curCand=theQCandidates[ind]; // Pointer to the Candidate
    G4int  cPDG = curCand->GetPDGCode();       // PDGC of the Candidate
    G4bool poss = curCand->GetPossibility();   // Possibility for the Candidate
    G4QContent tmpTQ=totQC-curCand->GetQC();
    G4QNucleus tmpT(tmpTQ);                    // Nucleus for TotResidNucleus for Fragment
    G4double   tmpTM=tmpT.GetMZNS();           // GSMass of TotalResidNucleus for Fragment
    G4QPDGCode cQPDG(cPDG);                    // QPDG for the candidate
    G4double   frM=cQPDG.GetMass();            // Vacuum mass of the candidate
    if(cPDG>80000000&&cPDG!=90000000)          // Modify Fragments toTakeIntoAccount CurNuc
    {
      if(totMass<tmpTM+frM)
      {
#ifdef sdebug
        G4cout<<"G4Q::ModInMatCand:C="<<cPDG<<tmpT<<tmpTM<<"+"<<frM<<"="<<tmpTM+frM<<">tM="
              <<totMass<<G4endl;
#endif
        curCand->SetPossibility(false);
      }
      G4QNucleus cNuc(cPDG);                   // Fake nucleus for the Candidate
      G4int cP = cNuc.GetZ();                  // A#of protons in the Current Environment
      G4int cN = cNuc.GetN();                  // A#of neutrons in the Current Environment
      G4int cL = cNuc.GetS();                  // A#of lambdas in the Current Environment
      //G4QPDGCode cQPDG(cPDG);                  // QPDG of the Current Cluster
#ifdef debug
      if(cPDG==90001000) G4cout<<"G4Q::MIM:->>cPDG=90001000<<-,possibility="<<poss<<G4endl;
#endif
      if(eP>=cP&&eN>=cN&&eL>=cL&&poss)         // Cluster exists & possible
      {
        G4double clME = 0.;                    // Prototype of the BoundClMass in Environ
        G4double clMN = 0.;                    // Prototype of the BoundClMass in TotNucl
        G4double renvM = 0;                    // Prototype of the residual Environ mass
        if(cP==eP&&cN==eN&&cL==eL)clME=cQPDG.GetMass();// The only notBoundCluster of Envir
        else                                   // Bound Cluster in the Environment
        {
          renvM = cQPDG.GetNuclMass(eP-cP,eN-cN,eL-cL); // Mass of residual for Environment
          clME  = envM-renvM;
        }
        if(cP==tP&&cN==tN&&cL==tL)clMN=cQPDG.GetMass(); // The only NotBoundCluster of TotN
        else                                   // Bound Cluster in Total Nucleus
        {
          renvM = cQPDG.GetNuclMass(tP-cP,tN-cN,tL-cL); // TotalResidualNucleus Mass
          clMN   = totM-renvM;
        }
        curCand->SetParPossibility(true);
        curCand->SetEBMass(clME);
        curCand->SetNBMass(clMN);
#ifdef sdebug
        G4int envPDGC = theEnvironment.GetPDGCode();   // PDG Code of Current Environment
        G4cout<<"G4Q:ModInMatCand:C="<<cPDG<<cNuc<<clME<<","<<clMN<<",E="<<envPDGC<<",M="
              <<renvM<<G4endl;
#endif
      }
      else curCand->SetParPossibility(false);
    } // @@ Modification of hadron masses in nuclear matter are not implemented yet
  }
} // End of "ModifyInMatterCandidates"

// Randomize the Resonance masses and calculate probabilities of hadronization for them
void G4Quasmon::CalculateHadronizationProbabilities
  (G4double E, G4double kVal, G4LorentzVector k4M,G4bool piF, G4bool gaF, G4bool )
  //(G4double E, G4double kVal, G4LorentzVector k4M,G4bool piF, G4bool gaF, G4bool first)
{                                                                  //       ^
  static const G4double mPi0 = G4QPDGCode(111).GetMass();          //       |
  G4double kLS=E;                             //                            |
  kLS=k4M.e();                                // Temporary trick to avoid worning
  G4int    vap = nOfQ-3;                      // Vacuum power
  //G4double kLSi= kLS;                         // Initial (without photon) kLS
  //if(addPhoton) kLSi=kLS-addPhoton;           // @@ probabilities for k+gam can be wrong
  G4double mQ2 = q4Mom.m2();                  // Squared Mass of the Quasmon
  G4double eQ  = q4Mom.e();                   // LS Energy of the Quasmon
  G4double mQ  = sqrt(mQ2);                   // Mass of the decaying Quasmon
  G4double dk  = kVal + kVal;                 // Double momentu of quark-parton in QCM
  G4double rQ2 = mQ2-dk*mQ;                   // Min Residual Colored Quasmon Squared Mass
  G4double mQk = mQ-dk;                       // For acceleration
  G4double var = theEnvironment.GetProbability();// Vacuum to medium ratio
  G4double vaf = 0;                           //@@ !! Vacuum factor
  if(vap>0)vaf = var*mQk/kVal/vap;            //@@
  //if(vap>0)vaf = mQk/kVal/vap;                //@@ VacuumFactor(instead of in G4QNucleus)
  G4double accumulatedProbability = 0.;
  G4double secondAccumProbability = 0.;
  G4int qBar =valQ.GetBaryonNumber();         // BaryNum of Quasmon
  G4int nofU = valQ.GetU()- valQ.GetAU();     // A#of u-quarks
  G4int dofU = nofU+nofU;
  G4int nofD = valQ.GetD()- valQ.GetAD();     // A#of d-quarks
  G4int dofD = nofD+nofD;
  G4int qChg = valQ.GetCharge();
  G4int qIso = qBar-qChg-qChg;                // Charge of Quasmon
  G4int maxC = theQCandidates.size();         // A#of candidates
  G4double totZ = theEnvironment.GetZ() + valQ.GetCharge();       // Z of the Nucleus
  G4double envM = theEnvironment.GetMass();   // Mass of the Current Environment
  G4int envPDGC = theEnvironment.GetPDGCode();// PDG Code of Current Environment
  G4int envN    = theEnvironment.GetN();      // N of current Nuclear Environment
  G4int envZ    = theEnvironment.GetZ();      // Z of current Nuclear Environment
  G4int envA    = theEnvironment.GetA();      // A of current Nuclear Environment
  G4QContent envQC=theEnvironment.GetQCZNS(); // QuarkContent of the CurrentNuclearEnviron.
#ifdef debug
  G4int absb = abs(qBar);                     // Abs BaryNum of Quasmon
  G4int maxB = theEnvironment.GetMaxClust();  // Maximum BaryNum for clusters
  G4cout<<"G4Q::CalcHadronizationProbab:Q="<<mQ<<valQ<<",v="<<vaf<<",r="<<var<<",mC="<<maxB
        <<",vap="<<vap<<",k="<<kVal<<G4endl;
#endif
  // =------------= Calculate probabilities for candidates
  unsigned nHC=theQCandidates.size();
#ifdef debug
  G4cout<<"G4Q::CHP: *** nHC="<<nHC<<G4endl;
#endif
  if(nHC) for (unsigned index=0; index<nHC; index++)
  {
    G4QCandidate* curCand=theQCandidates[index];
    G4int cPDG = curCand->GetPDGCode();
    G4int aPDG = abs(cPDG);
    curCand->ClearParClustVector();           // Clear ParentClusterVector for the Fragment
    G4double probability = 0.;
    G4double secondProbab = 0.;
    if ( (aPDG > 80000000 && envA > 0) || aPDG < 80000000)
    {
      G4int resPDG=0;
      G4double comb=0.;                       // Combinatorial factor for quark exchange
      G4QContent candQC = curCand->GetQC();
      G4QContent tmpTQ=envQC+valQ-candQC;     // QC of TotalResidualNucleus for the Cluster
      G4QNucleus tmpT(tmpTQ);                 // Nucleus of TotalResidNucleus for Fragment
      G4double   tmpTM=tmpT.GetMZNS();        // GSM of Total ResidualNucleus for Fragment
      G4QPDGCode cQPDG(cPDG);                 // QPDG for the candidate
      G4double   frM=cQPDG.GetMass();         // Vacuum mass of the candidate
      G4int cU=candQC.GetU()-candQC.GetAU();
      G4int cD=candQC.GetD()-candQC.GetAD();
      G4int dUD=abs(cU-cD);
      G4bool pos=curCand->GetPossibility()&&totMass>tmpTM+frM;
      //G4bool pos=curCand->GetPossibility();
#ifdef pdebug
      G4bool pPrint= (abs(cPDG)%10 <3 && cPDG <80000000) || (cPDG >80000000 && frM <5000.);
      //G4bool pPrint = abs(cPDG)%10<3 && cPDG<80000000 ||cPDG==90001000||cPDG==90000001||
      //  cPDG==90000002||cPDG==90001001||cPDG==90001002||cPDG==90002001||cPDG==90002002;
      //G4bool pPrint = cPDG==2212 || cPDG==2112 ||cPDG==90001000||cPDG==90000001;
      //G4bool pPrint = false;
      //G4bool pPrint = true;
      if(pPrint) G4cout<<"G4Q::CHP:==****==>> c="<<cPDG<<",dUD="<<dUD<<",pos="<<pos<<",eA="
                       <<envA<<",tM="<<totMass<<" > tmpTM+frM="<<tmpTM+frM<<G4endl;
#endif
      //if(pos&&(cPDG<80000000||(cPDG>80000000&&cPDG!=90000000&&dUD<1)))// 1 ** never try
      if(pos&&(cPDG<80000000||(cPDG>80000000&&cPDG!=90000000&&dUD<2)))//2 ***The best***
      //if(pos&&(cPDG<80000000||(cPDG>80000000&&cPDG!=90000000&&dUD<3))) // 3 *** good ***
      //if(pos&&(cPDG<80000000||(cPDG>80000000&&cPDG!=90000000&&dUD<4)))//4 almost the same
      //if(pos&&(cPDG<80000000||(cPDG>80000000&&cPDG!=90000000))) // no restrictions
      {
        G4QContent curQ = valQ;                 // Make current copy of theQuasmonQuarkCont
        G4int baryn= candQC.GetBaryonNumber();  // Baryon number of the Candidate
        G4int cC   = candQC.GetCharge();        // Charge of the Candidate
        G4double CB=0.;
        if(envA) CB=theEnvironment.CoulombBarrier(cC,baryn);
        //G4int cNQ= candQC.GetTot()-1-baryn;     // A#of quarks/diquarksInTheCandidate - 2
        G4int cNQ= candQC.GetTot()-2;           // #of quark-partonsInTheCandidate - 2 (OK)
        //G4int cNQ= candQC.GetTot()+baryn-2;   // A#of q-partons+b_Sj-2 (string junction)
        //G4int cNQ= candQC.GetTot()+3*baryn-4; // A#of q-partons+b+2*(b-1)-2 (choc q-link)
        G4double resM=0.;                       // Prototype for minMass of residual hadron
#ifdef debug
        if(pPrint)G4cout<<"G4Q::CHP:B="<<baryn<<",C="<<cC<<",CB="<<CB<<",#q="<<cNQ<<G4endl;
#endif
        if(cPDG>80000000&&cPDG!=90000000&&baryn<=envA)//==>Nuclear Fragment (QUarkEXchange)
        {
          G4int      parentCounter=0;           // Parent counter counter
          G4double   pcomb=0.;                  // Summed probability of parent clusters
          G4double   frM2=frM*frM;              // Squared mass of the nuclear fragment
          G4double   qMax=frM+CB-kLS;           // ParClustM-qmax value (k-q>frM-prM+CB)
          //G4double   qMax=frM-kLS;            // ParClustM-qmax value(k-q>frM-prM+<noCB>)
          G4int iQmin=0;                        // IncomingToCluster quarks are d=0,u=1,s=2
          G4int iQmax=3;                        // 3 is bigger than s-quark (2, iq<3)
          G4int oQmin=0;                        // Returning from cluster quarks: d=0,u=1
          G4int oQmax=2;                        // 2 is bigger than u-quark (1, oq<2) @@ 3?
          if     (dofU<=nofD) iQmax=1;          // Too many Dquarks (in-Uquark is forbiden)
          else if(dofD<=nofU) iQmin=1;          // Too many Uquarks (in-Dquark is forbiden)
          // @@ This is how netrons are increased for the pion capture at rest case @@
          if(piF)                               // force Pi- transfer its charge to a quark
          {
            iQmin=0;
            iQmax=1;
          }
#ifdef debug
          if(pPrint)G4cout<<"G4Q::CHP:***!!!***>>F="<<cPDG<<",mF="<<frM<<",iq:"<<iQmin<<","
                         <<iQmax<<",kLS="<<kLS<<",kQCM="<<kVal<<",eA="<<envA<<G4endl;
#endif
          if(iQmax>iQmin) for(int iq=iQmin; iq<iQmax; iq++) // Entering (fromQuasmon) quark
          {
            G4double qFact=1.;
            //if(iq==1&&addPhoton>0.) qFact=4.; // @@ taftology
            if(iq==1&&gaF)
            {
              qFact=4.;
#ifdef debug
              if(pPrint) G4cout<<"G4Q::CHP:photon cap(gaF) is enhanced for Uquark"<<G4endl;
#endif
            }
            G4double nqInQ=0.;                 // A#of quarks of this sort in a Quasmon
            if     (!iq)   nqInQ=valQ.GetD();
            else if(iq==1) nqInQ=valQ.GetU();
            else if(iq==2) nqInQ=valQ.GetS();
            comb=0.;                           // Local summ for the i-quark of the Quasmon
#ifdef sdebug
            G4cout<<"G4Q::CHP:i="<<iq<<",cU="<<cU<<",cD="<<cD<<",omi="<<oQmin<<",oma="
                  <<oQmax<<G4endl;
#endif
            if(oQmax>oQmin) for(int oq=oQmin; oq<oQmax; oq++) // Exiting (to Quasmon) quark
            {
              G4int shift= cQPDG.GetRelCrossIndex(iq, oq);
              G4QContent ioQC=cQPDG.GetExQContent(iq, oq);
              G4QContent resQC=valQ+ioQC;         // Quark Content of the residual Quasmon
#ifdef sdebug
              G4cout<<"G4Q::CHP:iq="<<iq<<",oq="<<oq<<",QC="<<ioQC<<",rQC="<<resQC<<G4endl;
#endif
              G4QPDGCode resQPDG(resQC);          // QPDG of the residual Quasmon
              resPDG=resQPDG.GetPDGCode();        // PDG Code of the residual Quasmon
              G4int resQ=resQPDG.GetQCode();      // Q Code of the residual Quasmon
#ifdef pdebug
              if(pPrint) G4cout<<"G4Q::CHP:i="<<iq<<",o="<<oq<<ioQC<<",s="<<shift
                               <<",cQPDG="<<cQPDG<<", residQC="<<resQC<<resQPDG<<G4endl;
#endif
              G4int resD=resQC.GetD()-resQC.GetAD();
              G4int resU=resQC.GetU()-resQC.GetAU();
              G4int resS=resQC.GetS()-resQC.GetAS();
              G4int resA=resQC.GetBaryonNumber();
              G4bool rI=resA>0 && resU>=0 && resD>=0 &&
                       (resU+resS>resD+resD||resD+resS>resU+resU);
              //if(resQ>-2&&resPDG&&resPDG!=10&&!rI)// The Residual Quasmon is possible
              //if(resQ>-2&&resPDG&&resPDG!=10&&!rI&&!piF) // *** Never try this
              //if(resQ>-2&&resPDG&&resPDG!=10&&!rI&&(!piF||cPDG==90000001))
              //G4cout<<"G4Q::CHP:PiF="<<piF<<G4endl;
              // The best:
              //if(resQ>-2 &&resPDG && resPDG!=10 && !rI && (!piF||piF && cPDG!=90001000 ))
              if (resQ > -2 && resPDG && resPDG != 10 && !rI && 
                   (!piF || ( piF && (cPDG != 90001000 || G4UniformRand() < .333333) && 
                              cPDG != 90002001 && cPDG != 90002002
                            )
                   )
                 )
              //cPDG!=90001000||G4UniformRand()<.333333))
              //(cPDG!=90001000||G4UniformRand()<.5)&&cPDG!=90002001&&cPDG!=90002002))
              //cPDG!=90001000&&cPDG!=90002001&&cPDG!=90002002))
              //-----------------------------------------------------------------
              //if(resQ>-2 && resPDG && resPDG!=10 && !rI && (!piF||piF&&baryn>1))
              //if(resQ>-2 && resPDG && resPDG!=10 && !rI) // baryons are too energetic
              //if(resQ>-2&&resPDG&&resPDG!=10&&!rI&&(!piF||baryn==1)) // bad
              {
                G4int is=index+shift;
                if(shift!=7&&is<maxC)             // This quark exchange is possible
                {
                  G4QCandidate* parCand=theQCandidates[is];//Pointer to ParentClusterOfCand
                  G4QContent parQC = parCand->GetQC();     // QuarkCont of theParentCluster
                  G4int barot = parQC.GetBaryonNumber();   // Bary Number of Parent Cluster
                  G4int charge= parQC.GetCharge();         // Charge of the Parent Cluster
                  G4int possib=parCand->GetParPossibility();
#ifdef pdebug
                  if(pPrint) G4cout<<"G4Q::CHP:parentPossibility="<<possib<<",pZ="<<charge
                                   <<" <= envZ="<<envZ<<", pN="<<barot-charge<<" <= envN="
                                   <<envN<<", cPDG="<<cPDG<<G4endl;
#endif
                  if(possib && charge<=envZ && barot-charge<=envN)
                  {
                    //G4QContent rQQC = valQ+ioQC;  // Quark Content of Residual Quasmon
                    G4int isos  = barot-charge-charge; // Isospin of the Parent Cluster
                    // MKG -- beg
                          //#ifdef debug
                    G4double pUD= 1.;
                    if(barot>2) pUD= pow(2.,abs(isos)-1);
                          //#endif
                    // MKG -- end
                    if(barot!=baryn) G4cerr<<"--Warning--G4Q::CHP:c="<<candQC<<",p="<<parQC
                                           <<",s="<<shift<<",i="<<index<<",s="<<is<<G4endl;
                    G4int    dI=qIso-isos;      // IsotopicShiftDifference for ParC & Quasm
                    G4int    dC=cC-charge;      // ChargeDifference for outFragm & ParentCl
                    G4int    dS=dI+dC;          // Isotop Symmetry Compensation Parameter
#ifdef pdebug
                    if(pPrint)G4cout<<"G4Q::CHP: dS="<<dS<<", dI="<<dI<<", dC="<<dC<<", I="
                                    <<qIso<<",i="<<isos<<", C="<<cC<<",c="<<charge<<G4endl;
#endif
                    //********* ISOTOPIC  FOCUSING  *******************
                    // =--= Old (First Publication) Complicated rule =--=
                    //if(
                    //  //zZ<3 &&
                    //  //(
                    //  abs(dI)<1 ||
                    //  (barot==1 && (
                    //     abs(dI)<2&&abs(cC-charge)<2 ||
                    //     (dI>=2&&cC<charge)   || (dI<=-2&&cC>charge)
                    //     //dI==2&&cC<=charge || dI==-2&&cC>=charge ||
                    //     //dI>2&&cC<charge   || dI<-2&&cC>charge
                    //   )) || 
                    //   (barot>1&&barot<3
                    //     && (
                    //     abs(dI)<2&&abs(cC-charge)<2 ||
                    //     //dI>=2&&cC<charge   || dI<=-2&&cC>charge
                    //     dI<=2&&cC<=charge || dI==-2&&cC>=charge ||
                    //     dI>2&&cC<charge   || dI<-2&&cC>charge
                    //   )) ||
                    //   (barot>2&&barot<4
                    //    && (
                    //     abs(dI)<2&&abs(cC-charge)<2 ||
                    //     //dI>=2&&cC<charge   || dI<=-2&&cC>charge
                    //     dI<=2&&cC<=charge || dI==-3&&cC>=charge ||
                    //     dI>2&&cC<charge   || dI<-3&&cC>charge
                    //   )) ||
                    //   (barot>3
                    //    && (
                    //     abs(dI)<2&&abs(cC-charge)<2 ||
                    //     dI>=2&&cC<charge   || dI<=-2&&cC>charge
                    //     //dI<=2&&cC<=charge || dI==-3&&cC>=charge ||
                    //     //dI>2&&cC<charge   || dI<-3&&cC>charge
                    //    )
                    //   )
                    //  )
                    // =--= Just a coridor =--=
                    //if(abs(dS)<3||(qIso>0&&dC<0||qIso<0&&dC>0)&&baryn==1)//StrForB=1(old)
                    //if(abs(dS)<4||(qIso>0&&dC<0||qIso<0&&dC>0)&&baryn==1)//StrongFor1(<4)
                    //if(baryn>1||abs(dS)<4||(qIso>0&&dC<0||qIso<0&&dC>0)&&baryn==1)//SIFF1
                    //if(!piF&&abs(dS)<4 || piF&&abs(dS)<3) // UniversalIsoFocusing
                    //if(!piF&&first&&abs(dS)<4 || (!piF&&!first||piF)&&abs(dS)<3)//ExpIsoF
                    // *** Recent correction (****
                    //if ( (!piF && first && baryn < 3) || 
                    //     (!piF && !first) || 
                    if ( (!piF && baryn < 5 ) || 
                         ( piF && abs(dS) < 3) ) // Isotope Focusing for AtRest Reactions
                    //if(!qIso&&!dC||qIso>0&&dC<0||qIso<0&&dC>0)//MediumIsoFocusingForAll
                    //if(abs(dS)<3) // Universal IsotopeFocusing(<3) (Best for pi-capture)
                    //if(abs(dS)<4) // Never try this (**)
                    //if(3>2)       //****>> ***NO*** Isotope Focusing ***
                    {
                      G4double pPP=parCand->GetPreProbability(); // Probab of ParentCluster
                      //G4double pPP=parCand->GetDenseProbability();//Probab of ParentClust
                      G4int    parPDG=parCand->GetPDGCode(); // PDGCode of theParentClucter
                      G4double boundM=parCand->GetEBMass();//EnvironBoundMass ofParentClust
                      G4double nucBM =parCand->GetNBMass();//TotNuclBoundMass ofParentClust
#ifdef debug
                      if(pPrint) G4cout<<"G4Q::CHP:c="<<cPDG<<",p="<<parPDG<<",bM="<<boundM
                                       <<",i="<<is<<",adr="<<parCand<<",pPP="<<pPP<<G4endl;
#endif
                      // Kinematical analysis of decay possibility
                      G4double   minM  =0.;              // Prototype of minM of ResidQuasm
                      if (resPDG==10)minM=G4QChipolino(resQC).GetMass();//ResidQuasmonChipo
                      else if(resPDG)minM=G4QPDGCode(resPDG).GetMass();//ResidQuasmonHadron
                      G4double bNM2=nucBM*nucBM;
                      G4double nDelta=0.;
                      if(nucBM)nDelta=(frM2-bNM2)/(nucBM+nucBM);    // Safety check
#ifdef pdebug
                      G4int    iniPDG =valQ.GetSPDGCode();
                      G4double iniQM = G4QPDGCode(iniPDG).GetMass();//Not boundedQuasmonGSM
                      G4double freeE = (mQ-iniQM)*iniQM;
                      G4double kCut=boundM/2.+freeE/(iniQM+boundM);
                      if(pPrint)G4cout<<"G4Q::CHP:r="<<resPDG<<",M="<<minM<<",k="<<kLS<<"<"
                                      <<kCut<<",E="<<E<<">"<<nDelta<<",p="<<parPDG<<G4endl;
#endif
                      if(resPDG && minM>0.) // Kinematical analysis of hadronization
                      {
#ifdef debug
                        if(pPrint) G4cout<<"G4Q::CHP:fM="<<frM<<",bM="<<boundM<<",rM="
                                         <<tmpTM<<",tM="<<totMass<<G4endl;
#endif
                        G4double pmk=rMo*boundM/kLS;
                        //G4double pmk=rMo*nucBM/kLS;
                        G4double bM2=boundM*boundM;
                        G4double eDelta=(frM2-bM2)/(boundM+boundM);
                        G4double ked =kLS-eDelta;
                        G4double dked=ked+ked;
                        G4double kd =kLS-nDelta; //For TotalNucleus (includingQuasmon)
                        G4double dkd=kd+kd;
                        //G4double dkdC=dkd-CB-CB;
                        G4double dkLS=kLS+kLS;
                        //G4double Em=(E-eDelta)*(1.-frM/totMass);
                        //G4double Em=(E-nDelta)*(1.-frM/totMass);
                        G4double Em=(E-nDelta-CB)*(1.-frM/totMass);
                        // *** START LIMITS ***
                        G4double ne=1.-dked/(boundM+dkLS);// qmin=DEFOULT=bM*(k-de)/(bM+2k)
                        G4double kf=1.;
                        if(ne>0.&&ne<1.)kf=pow(ne,cNQ);
#ifdef debug
                        if(pPrint)G4cout<<"G4Q::CHP:<qi_DEF>="<<ne<<",k="<<kf<<",dk="<<dked
                                        <<",dkLS="<<dkLS<<",M="<<boundM<<",C="<<CB<<G4endl;
#endif
                        // == Prepare for the residual nucleus restriction ==
                        // *** LIM ***
                        G4QContent rtQC=valQ+ioQC;    // Total Residual Quark Content
                        if(envA-barot>bEn) rtQC+=bEnQC;
                        else       rtQC+=envQC-parQC; // Total Residual Quark Content
                        G4QNucleus rtN(rtQC);         // Create PseudoNucleus for totResid.
                        G4double rtM=rtN.GetGSMass(); // MinMass of residQ+(Env-ParC) syst.
                        G4double rtEP=rEP;            // E+Mom of tRealTotColouredResidSyst
                        // *** LIM ***
                        if(envA-barot>bEn) rtEP+=mbEn;
                        else               rtEP+=envM-boundM;
                        G4double rtE=rtEP-rMo;        // Energy of RealTotColouredResidSyst
#ifdef debug
                        G4QContent tmpEQ=envQC-parQC;//QuarkContent for ResidualEnvironment
                        if(pPrint) G4cout<<"G4Q::CHP:RN="<<tmpEQ<<"="<<envM-boundM<<"=eM="
                                         <<envM<<"-bM="<<boundM<<",E="<<rtE<<",eQC="<<envQC
                                         <<",pQC="<<parQC<<G4endl;
#endif
                        G4double mintM2=rtM*rtM+.1;   //Mass of MinTotColouredResidualSyst.
                        G4double rtQ2=rtE*rtE-rMo*rMo;//SquaredMinMass of ResidQ+(Env-ParC)
                        // ***VBQ***
                        G4double minBM=minM;
                        //if(envM>boundM)
                        if ( (envA-barot <= bEn && envM > boundM) || envA-barot > bEn)
                        //if(2>3)        // *** Recent correction ***
                        {
                          minBM=rtM;
                          // *** LIM ***
                          if(envA-barot > bEn) minBM-=mbEn;
                          else         minBM-=envM-boundM; // MinResidualBoundedQuasmonMass
                        }
                        G4double minBM2=minBM*minBM+.1;
                        G4double minM2=minM*minM+.1;
#ifdef debug
                        G4double ph=kf;                     // Just for printing
                        if(pPrint) G4cout<<"G4Q::CHP:M2="<<minM2<<",R="<<rQ2<<",m="<<mintM2
                                         <<",RN2="<<rtQ2<<",q="<<(minM2-rQ2)/rEP/2<<",qN="
                                         <<(mintM2-rtQ2)/rtEP/2<<G4endl;
#endif
                        G4double newh=1.;
                        // == (@@) Historical additional cuts for q_min ===
                        //G4double nc=1.-(dkLS-E-E)/boundM;   // q_min=k-E
                        G4double nc=1.-(dkLS-E-E+CB+CB)/boundM;   // q_min=k-E+CB
                        G4double newl=0.;
#ifdef debug
                        if(pPrint) G4cout<<"G4Q::CHP:qi_k-E="<<nc<<",k="<<kLS<<",E="<<E
                                         <<",M="<<boundM<<G4endl;
#endif
                        if(nc > 0. && nc < 1. && nc < ne)
                        {
                          ne=nc;
                          newh=pow(nc,cNQ);
                          if(newh < kf) kf=newh;
                        }
                        else if(nc <= 0.) kf=0.;

                        G4double nk=1.-(dkd-Em-Em)/boundM;  // q_min=(k-delta)-E*(M-m)/M
#ifdef debug
                        if(pPrint) G4cout<<"G4Q::CHP:qi_R="<<nk<<",kd="<<kd<<",E="<<Em
                                       <<",M="<<totMass<<G4endl;
#endif
                        if(nk > 0. && nk < 1. && nk < ne)
                        {
                          ne=nk;
                          newh=pow(nk,cNQ);
                          if(newh<kf) kf=newh;
                        }
                        else if(nk <= 0.) kf=0.;

                        //G4double mex=frM+Em;
                        //G4double sr=sqrt(mex*mex-frM2);//qmin=k-sqrt((m+E*(M-m)/M)^2-m^2)
                        //G4double np=1.-(dkLS-sr-sr)/boundM;
#ifdef debug
                        //if(pPrint)G4cout<<"G4Q::CHP:qi_k-sr="<<np<<",sr="<<sr<<",m="<<mex
                        //                <<",M="<<frM<<G4endl;
#endif
                        //if(np > 0. && np < 1. && np < ne)
                        //{
                        //  ne=np;
                        //  newh=pow(np,cNQ);
                        //  if(newh<kf) kf=newh;
                        //}
                        //else if(np <= 0.) kf=0.;

                        //G4double mix=boundM+E;
                        //G4double mix=nucBM+E;
                        G4double mix=boundM+E-CB;
                        G4double st=0.;
                        if(mix > frM) st=sqrt(mix*mix-frM2);
                        G4double nq=1.-(dkLS-st-st)/boundM;//qi=k-sq((m+E*(M-m)/M)^2-m^2)
#ifdef debug
                        if(pPrint) G4cout<<"G4Q::CHP:qi_k-st="<<nq<<",st="<<st<<",m="
                                         <<mix<<",M="<<frM<<G4endl;
#endif
                        if(nq > 0. && nq < 1. && nq < ne)
                        //if(2>3)  // Does not make any difference
                        {
                          ne=nq;
                          newh=pow(nq,cNQ);
                          if(newh < kf) kf=newh;
                        }
                        else if(nq<=0.)kf=0.;
                        // == This is the Best for ResidualNucleus Cut (@@ can be improved)
                        G4LorentzVector rq4M=q4Mom-k4M;
                        G4ThreeVector k3V=k4M.vect().unit();
                        G4ThreeVector rq3V=rq4M.vect().unit();
                        G4bool atrest=(eQ-mQ)/mQ<.001||k3V.dot(rq3V)<-.999;//QAtRest(Pi/Ga)
                        //G4bool atrest=(eQ-mQ)/mQ<.001; // Q at rest (only PiCap)
                        // ***VTN*** CHECK IsNecessety toRecover theColTotRes to MinMassTot
                        if(mintM2>rtQ2) //==> Check of ResidualTotalNucleus ** Always **
                        //if(2>3)  // Negligable difference
                        {
                          G4double nz=0.;
                          if(atrest) nz=1.-(mintM2-rtQ2+pmk*dked)/(boundM*(rtEP+pmk));
                          else       nz=1.-(mintM2-rtQ2)/(boundM*rtEP);
                          //if(atrest) nz=1.-(mintM2-rtQ2+pmk*dkd)/(nucBM*(rtEP+pmk));
                          //else       nz=1.-(mintM2-rtQ2)/(nucBM*rtEP);
#ifdef debug
                          if(pPrint) G4cout<<"G4Q::CHP:q="<<nz<<",a="<<atrest<<",M2="
                                           <<mintM2<<">"<<rtQ2<<G4endl;
#endif
                          if(nz > 0. && nz < 1. && nz < ne)
                          {
                            ne=nz;
                            newh=pow(nz,cNQ);
                            if(newh < kf) kf=newh;
                          }
                          else if(nz <= 0.) kf=0.;
                        }
                        // *** VBQ *** CHECK Residual Quazmon (Never use: reduces PS)
                        //if(minBM2>rQ2&&!piF&&!gaF&&baryn>3) // ==>Check ResidVirtualQuasm
                        //if(minBM2>rQ2&&!piF&&!gaF&&baryn>2) // ==>Check ResidVirtualQuasm
                        //if(minBM2>rQ2&&!piF&&!gaF) // ==> Check of ResidualVirtualQuasmon
                        //if(minBM2>rQ2&&baryn>2)//==>Check of ResidualVirtualQuasmon**OK**
                        //if(minBM2>rQ2&&baryn>1)//==>Check ResidualVirtualQuasm **Better**
                        //if(minBM2>rQ2&&piF&&(cPDG==90000001||cPDG==90002002))//CheckRVirQ
                        //if(minBM2>rQ2&&piF&&(cPDG==90000001||baryn>3))//CheckResidVirtQua
                        //if(minBM2>rQ2&&(piF&&cPDG==90000001||baryn>2))//CheckResidVirtQua
                        //if(minBM2>rQ2&&baryn>2) // ==> Check of Residual Virtual Quasmon
                        //if(minBM2>rQ2&&!piF&&baryn>2&&cPDG!=90001002)//ResidVirtQuasmon
                        //if(minBM2>rQ2&&!piF&&baryn>2)//==>Check of ResidualVirtualQuasmon
                        //if(minBM2>rQ2&&!piF&&baryn>3)//==>Check of ResidualVirtualQuasmon
                        //if(minBM2>rQ2&&!piF&&baryn>1)//==>Check of ResidualVirtualQuasmon
                        //if(minBM2>rQ2&&!piF&&!gaF)// ==> Check of ResidualVirtualQuasmon
                        //if(minBM2>rQ2&&!piF)// ==> Check of ResidualVirtualQuasmon ALWAYS
                        //if(minBM2>rQ2&&piF&&baryn>3)//==>Check of ResidualVirtualQuasmon
                        //if(minBM2>rQ2&&piF&&(baryn==1||baryn>2))//==>Check ResidVirtQ
                        //if(minBM2>rQ2&&(!piF||piF&&(cPDG!=90000001||G4UniformRand()<.5)))
                        //if(minBM2>rQ2&&(!piF||piF&&(cPDG!=90000001)))
                        //if(minBM2>rQ2&&(!piF&&baryn>4 || piF && cPDG!=90000001 &&
                        if (minBM2 > rQ2 && 
                             (!piF || 
                              (piF && cPDG!=90000001 && cPDG!=90001001 && cPDG!=90001002)
                             )
                           )      
                        //if(minBM2>rQ2) // ==> Check of Residual (Virtual?) Quasmon
                        //if(2>3)
                        {
                          G4double nz=0.;
                          if(atrest) nz=1.-(minBM2-rQ2+pmk*dked)/(boundM*(rEP+pmk));
                          else       nz=1.-(minBM2-rQ2)/(boundM*rEP);
                          //if(atrest) nz=1.-(minBM2-rQ2+pmk*dkd)/(nucBM*(rEP+pmk));
                          //else       nz=1.-(minBM2-rQ2)/(nucBM*rEP);
#ifdef debug    
                          if(pPrint) G4cout<<"G4Q::CHP:q="<<nz<<",a="<<atrest<<",QM2="
                                           <<minM2<<">"<<rQ2<<G4endl;
#endif      
                          if(nz>0.&&nz<1.&&nz<ne)
                          {
                            ne=nz;
                            newh=pow(nz,cNQ);
                            if(newh<kf) kf=newh;
                          }
                          else if(nz<=0.)kf=0.;
                        }
                        //if(minM2>rQ2&&baryn>3)       // ==> Check of Residual Quasmon
                        //if(minM2>rQ2&&!piF&&!gaF&&baryn>3)// ==> Check of ResidualQuasmon
                        //if(minM2>rQ2&&!piF&&baryn>1)      // ==> Check of ResidualQuasmon
                        //if(minM2>rQ2&&!piF&&baryn>2)      // ==> Check of ResidualQuasmon
                        //if(minM2>rQ2&&!piF&&baryn>2&&cPDG!=90001002)//=>CheckResidQuasmon
                        //if(minM2>rQ2&&!piF&&baryn>3) // ==> Check Residual Quasmon **OK**
                        //if(minM2>rQ2&&!piF&&!gaF)       // ==> Check of Residual Quasmon
                        //if(minM2>rQ2&&!piF)       // ==> Check of Residual Quasmon
                        //if(minM2>rQ2&&piF)       // ==> Check of Residual Quasmon
                        //if(minM2>rQ2&&baryn>1) // ==> Check Residual Quasmon **Better**
                        //if(minM2>rQ2&&(baryn>1||!piF))//==>CheckResidualQuasmon**Better**
                        //if(minM2>rQ2&&baryn>1&&cPDG!=90002002) //==> CheckResidualQuasmon
                        //if(minM2>rQ2&&!piF) // ==> Check of Residual Quasmon
                        //if(minM2>rQ2&&baryn>3) //=>CheckResidQuasmon *** The Best ***
                        //if(minM2>rQ2 && (!piF || piF &&
                        //if(minM2>rQ2 && (!piF&&baryn>3 || piF &&
                        if ( minM2 > rQ2 && 
                             ( (!piF && baryn > 4) || 
                               //MKG//(piF && (cPDG != 90000001 || G4UniformRand() > .3333)
                               (piF && cPDG != 90000001
                                    && cPDG != 90001001)
                             )
                           )
                        //cPDG!=90001001) )
                        //if(minM2>rQ2)            // ==> Check of Residual Quasmon
                        //if(2>3)
                        {
                          G4double nz=0.;
                          if(atrest) nz=1.-(minM2-rQ2+pmk*dked)/(boundM*(rEP+pmk));
                          else       nz=1.-(minM2-rQ2)/(boundM*rEP);
                          //if(atrest) nz=1.-(minM2-rQ2+pmk*dkd)/(nucBM*(rEP+pmk));
                          //else       nz=1.-(minM2-rQ2)/(nucBM*rEP);
#ifdef debug
                          if(pPrint) G4cout<<"G4Q::CHP:q="<<nz<<",a="<<atrest<<",QM2="
                                           <<minM2<<">"<<rQ2<<G4endl;
#endif
                          if(nz>0.&&nz<1.&&nz<ne)
                          {
                            ne=nz;
                            newh=pow(nz,cNQ);
                            if(newh<kf) kf=newh;
                          }
                          else if(nz<=0.)kf=0.;
                        }
                        if(kf<0.)kf=0.;
                        if(kf>1.)kf=1.;
                        G4double high = kf;                 // after this kf can be changed
#ifdef debug
                        if(pPrint) G4cout<<"G4Q::CHP:"<<kf<<",minM2="<<minM2<<",rQ2="<<rQ2
                                         <<G4endl;
#endif
                        G4double lz=1.-dked/boundM;           // q_max=DEFAULT=k-delta
                        // Use 3 below carefully and together with "ne" above and "nucflag"
                        //G4double lz=1.-dkd/nucBM;             // q_max=DEFAULT=k-delta
                        //G4double lz=1.-dkedC/boundM;          // q_max=DEFAULT=k-delta+CB
                        //G4double lz=1.-dkdC/nucBM;            // q_max=DEFAULT=k-delta+CB
                        G4double low=0.;
                        if(lz>0.&&lz<1.)low=pow(lz,cNQ);
                        else if(lz>=1.)low=1.;
#ifdef debug
                        G4double pl=low;                      // Just for printing
                        if(pPrint) G4cout<<"G4Q::CHP:<qa_DEF>="<<lz<<", eDel="<<eDelta
                                         <<",nDel="<<nDelta<<G4endl;
#endif
                        // == (@@) Historical additional cuts for q_max ===
                        //G4double tms=kLS+nDelta+Em;
                        G4double tms=kLS+eDelta+Em;        // The same don't change ***
                        G4double le=1.-(tms+tms)/boundM;     // q_max=k+delta+E*(M-m)/M
#ifdef debug
                        if(pPrint) G4cout<<"G4Q::CHP:qa_t="<<le<<",k="<<kLS<<",E="<<Em
                                         <<",bM="<<boundM<<G4endl;
#endif
                        if(le>0.&&le<1.&&le>lz)
                        {
                          lz=le;
                          newl=pow(le,cNQ);
                          if(newl>low) low=newl;
                        }
                        else if(le>=1.)low=1.;
                        // === End of historical cuts

                        //G4double lk=1.-(dkLS+E+E)/boundM;    // q_max=k+E
                        G4double lk=1.-(dkLS+E+E-CB-CB)/boundM;//qmax=k+E-CB(surfaceCond)
#ifdef debug
                        if(pPrint) G4cout<<"G4Q::CHP:qa_k+E="<<lk<<",k="<<kLS<<",E="<<E
                                         <<",M="<<boundM<<G4endl;
#endif
                        if(lk>0.&&lk<1.&&lk>lz)
                        {
                          lz=lk;
                          newl=pow(lk,cNQ);
                          if(newl>low) low=newl;
                        }
                        else if(lk>=1.)low=1.;
                        // === End of the k+E cut

                        // === Instead one can try this ===
                        //G4double lq=1.-(dkLS+st+st)/boundM;//qm=k+sqrt((E*(M-m)/M)^2-m^2)
#ifdef debug
                        //if(pPrint)G4cout<<"G4Q::CHP:qa_k+st="<<lq<<",st="<<st<<",m="<<mix
                        //                <<",M="<<frM<<G4endl;
#endif
                        //if(lq>0.&&lq<1.&&lq>lz)
                        //{
                        //  lz=lq;
                        //  newl=pow(lq,cNQ);
                        //  if(newl>low) low=newl;
                        //}
                        //else if(lq>=1.)low=1.;

                        // === The same as previous but "sr" instead of "st" ===
                        G4double lp=1.-(dkLS+sr+sr)/boundM;//qm=k+sqrt((E*(M-m)/M)^2-m^2)
#ifdef debug
                        if(pPrint) G4cout<<"G4Q::CHP:qa_k+sr="<<lp<<",sr="<<sr
                                         <<",M="<<frM<<G4endl;
#endif
                        if(lp>0.&&lp<1.&&lp>lz)
                        {
                          lz=lp;
                          newl=pow(lp,cNQ);
                          if(newl>low) low=newl;
                        }
                        else if(lp>=1.)low=1.;
                        // ............................................................
                        //It's SpecificCoulombBarrierLimit forChargedParticles(canBeSkiped)
                        if(totZ > cC)                         // ==> Check CoulombBarrier
                        //if(2>3)
                        {
                          G4double qmaCB=boundM-qMax;
                          //G4double qmaCB=nucBM-qMax;
                          G4double nz=1.-(qmaCB+qmaCB)/boundM;//q=Mb-Mf-CB+kLS,qM=Mf+CB-kLS
#ifdef debug
                          if(pPrint) G4cout<<"G4Q::CHP:<qa_CB>="<<nz<<",m="<<qmaCB<<",CB="
                                           <<CB<<G4endl;
#endif
                          if(nz>0.&&nz>lz)
                          {
                            newl=pow(nz,cNQ);
                            if(newl>low) low=newl;
                          }
                          else if(nz>1.) low=10.;
                        }
                        // ***** End of restrictions *****
                        kf-=low;
#ifdef debug
                        if(pPrint) G4cout<<"G4Q::CHP:>>"<<cPDG<<",l="<<low<<",h="<<high
                                         <<",ol="<<pl<<",oh="<<ph<<",nl="<<newl<<",nh="
                                         <<newh<<",kf="<<kf<<",d="<<eDelta<<G4endl;
#endif
                        G4double probab=0.;
                        if(kf>0)
                        {
                          kf*=boundM/kLS/cNQ;    // Final value of kinematical (i,o) factor
                          G4int noc=cQPDG.GetNumOfComb(iq, oq);
                          // MKG
                          probab=qFact*kf*nqInQ*pPP*noc/pUD; // With wing suppresion
                          //probab=baryn*qFact*kf*nqInQ*pPP*noc/pUD;//WingSuppresion&*BaryN
                          // qFact - squared charge for photons & u-quark, for others =1
                          // kf    - the phase space integral
                          // nqInQ - a#of i-quarks in the Quasmon
                          // pPP   - probability to find (a#of) the Parent Cluster
                          // noc   - a#of o-quarks in the Parent Cluster
                          // pUD   - suppression for NuclearClusters fare from Z=N Mirror
                          G4QContent rQQC = valQ+ioQC;// Quark Content of Residual Quasmon
                          G4int BarRQC=rQQC.GetBaryonNumber(); // Res Quasmon BaryonNumber
                          G4int StrRQC=rQQC.GetStrangeness();  // Res Quasmon Strangeness
                          if(BarRQC==2 && !StrRQC)             // --> DiBaryon Correction 
                          {
                            G4int ChgRQC=rQQC.GetCharge();     // Res Quasmon Charge
                            if(ChgRQC==1) probab/=2;           // Only one S
                            else          probab*=2;           // One S + three P
                          }
#ifdef debug
                          if(pPrint)G4cout<<"G4Q::CHP:prob="<<probab<<",qF="<<qFact<<",iq="
                                          <<iq<<",oq="<<oq<<",Pho4M="<<phot4M<<",pUD="<<pUD
                                          <<",pPP="<<pPP<<G4endl;
#endif
                          if(probab<0.) probab=0.;
                        }
                        pcomb += probab;           // Update integratedProbab forParntClust
                        G4QParentCluster* curParC = new G4QParentCluster(parPDG,pcomb);
                        curParC->SetTransQC(ioQC); // Keep QuarkContent of theExchangeMeson
                        curParC->SetLow(low);      // Keep the Low limit of randomization
                        curParC->SetHigh(high);    // Keep the High limit of randomization
                        curParC->SetEBMass(boundM);// Keep EnvironBoundedMass forFutureCalc
                        curParC->SetNBMass(nucBM); // Keep totNuclBoundedMass forFutureCalc
                        curParC->SetEBind(eDelta); // Keep EnvBindingEnerergy forFutureCalc
                        curParC->SetNBind(nDelta); // Keep NucBindingEnerergy forFutureCalc
                        curParC->SetNQPart2(cNQ);  // Keep #of quark-partons in theFragment
#ifdef sdebug
                        G4cout<<"G4Q::CalcHP: FillParentClaster="<<*curParC<<G4endl;
#endif
                        curCand->FillPClustVec(curParC);//FillParentClust to ParClVec(d.e.)
                        comb += probab;
#ifdef pdebug
                        if(pPrint) G4cout<<"G4Q::CHP:in="<<index<<",cPDG="<<cPDG<<",pc"<<parentCounter
                                         <<parQC<<",Env="<<theEnvironment<<",comb="<<comb
                                         <<",posib="<<parCand->GetParPossibility()<<G4endl;
#endif
                        parentCounter++;
                      }                       // -->> End of the Minimum mass cut
                    }                         // -->> End of the isotope focusing
#ifdef sdebug
                    else G4cout<<"***G4Q::CHP:dI="<<dI<<",cC="<<cC<<G4endl;
#endif
                  }                           // -->> End of tje final state possibility
                }                             // -->> End of if of QuarkExchangePossibility
              }                               // +++> End of if of existinr residual Q Code
              probability+=comb;              // Collect the probability for the fragment
#ifdef pdebug
              if(pPrint) G4cout<<"G4Q::CHPr: probab="<<probability<<"("<<comb<<"),iq="<<iq
                               <<",oq="<<oq<<G4endl;
#endif
            }                                 // ...> End of Quark Exchange "oq" Test LOOP
          }                                   // ...> End of Quark Exchange "iq" Test LOOP
        }                                     // ---> End of Nuclear Case of fragmentation
        else if(cPDG<80000000)                // ===> Hadron case (QUark FUsion mechanism)
        {
          // Calculation of the existing hadrons
          G4int curnh=theQHadrons.size();
          G4int npip=0;
          G4int npin=0;
          G4int npiz=0;
          for (G4int ind=0; ind<curnh; ind++)
          {
            G4int curhPDG=theQHadrons[ind]->GetPDGCode(); // PDG Code of the hadron
            if (curhPDG== 111) npiz++;
            if (curhPDG== 211) npip++;
            if (curhPDG==-211) npin++;
          }
          // End of the hadron counting
          comb = valQ.NOfCombinations(candQC);
          if(!comb)
          {
            if ( (aPDG==111)|(aPDG==211) ) comb=1.;     // Permit pions @@ ?
            else if ( (aPDG==311)|(aPDG==321) ) comb=SSin2Gluons;  // Permit kaons @@ ?
          }
          if(cPDG== 211&&npip>0) comb*=(npip+1); // Bose multyplication for pi+
          if(cPDG==-211&&npip>0) comb*=(npin+1); // Bose multyplication for pi-
          if(cPDG==111||cPDG==221||cPDG==331||cPDG==113||cPDG==223||cPDG==333||cPDG==115||
             cPDG==225||cPDG==335||cPDG==117||cPDG==227||cPDG==337||cPDG==110||cPDG==220||
             cPDG==330)                          // @@ Can it be shorter if?
          {
            G4QContent tQCd(1,0,0,1,0,0);
            G4QContent tQCu(0,1,0,0,1,0);
            G4QContent tQCs(0,0,1,0,0,1);
            G4double cmd=valQ.NOfCombinations(tQCd);
            G4double cmu=valQ.NOfCombinations(tQCu);
            G4double cms=valQ.NOfCombinations(tQCs);
            if(cPDG!=333&&cPDG!=335&&cPDG!=337) comb=(cmd+cmu)/2.;
            //if(cPDG==331||cPDG==221) comb =(comb + cms)/2.; //eta,eta'
            if(cPDG==331||cPDG==221) comb =(comb + cms)/4.; //eta,eta'(factor2 suppression)
            if(cPDG==113) comb*=4.; //@@
            if(cPDG==223) comb*=2.; //@@
            if(cPDG==111&&npiz>0) comb*=(npiz+1); // Bose multyplication
#ifdef debug
            if(abs(cPDG)<3) G4cout<<"G4Q::CHP:comb="<<comb<<",cmd="<<cmd<<",cmuu="<<cmu
                                  <<",cms="<<cms<<G4endl;
#endif
          }
          curQ -= candQC;                    // This is a quark content of residual quasmon
          resPDG = curQ.GetSPDGCode();       // PDG of theLowest residualQuas hadronicState
          G4QContent resTQC = curQ+envQC;    // Total nuclear Residual Quark Content
          G4double resTM=G4QPDGCode(resTQC.GetSPDGCode()).GetMass();
#ifdef debug
          G4bool priCon = aPDG < 10000 && aPDG%10 < 3;
          if(priCon) G4cout<<"G4Q::CHP:***>>cPDG="<<cPDG<<",cQC="<<candQC<<",comb="<<comb
                           <<",curQC="<<curQ<<",mQ="<<mQ<<",ab="<<absb<<G4endl;
#endif
          if(resPDG==221 || resPDG==331)
          {
            resPDG=111;// pi0 minimum residual instead of eta
            resTM=mPi0;
          }
#ifdef debug
          if(priCon) G4cout<<"G4Q::CHP:cPDG="<<cPDG<<",c="<<comb<<",rPDG/QC="<<resPDG<<curQ
                           <<",tM="<<totMass<<">"<<frM-CB+resTM<<"=fM="<<frM<<"+rM="<<resTM
                           <<"-CB="<<CB<<G4endl;
#endif
          if (comb && resPDG && totMass > frM-CB+resTM &&
             ((resPDG > 80000000 && resPDG != 90000000) || resPDG<10000) )
          {
#ifdef debug
            if(priCon) G4cout<<"G4Q::CHP:ind="<<index<<",qQC="<<valQ<<mQ<<",cPDG="<<cPDG
                             <<",rPDG="<<resPDG<<curQ<<G4endl;
#endif
            if(resPDG!=10)resM=G4QPDGCode(resPDG).GetMass();// PDG mass for the residHadron
            else resM=G4QChipolino(curQ).GetMass(); // Chipolino mass for theResidualHadron
            G4int resQCode=G4QPDGCode(curQ).GetQCode();
#ifdef debug
            if(priCon) G4cout<<"G4Q::CHP:rM/QC="<<resM<<curQ<<",E="<<envPDGC<<",rQC="
                             <<resQCode<<G4endl;
#endif
            //if(envPDGC>80000000 && envPDGC!=90000000 && resM>0. && aPDG>1000 && // @@??
            if(envPDGC>80000000 && envPDGC!=90000000 && resM>0. &&
               resPDG!=10 && resPDG!=1114 && resPDG!=2224)//=>Take Into Account Environment
            { 
              G4QContent rtQC=curQ+envQC;           // Total Residual Quark Content
              G4QNucleus rtN(rtQC);                 // Create a pseudo-nucleus for residual
              G4double rtM =rtN.GetMZNS();          // Min Mass of total residual Nucleus
              G4double bnRQ=rtM-envM;               // Bound mass of residual Quasmon
#ifdef debug
              if(priCon) G4cout<<"G4Q::CHP: **Rec**,RQMass="<<bnRQ<<",envM="<<envM<<",rtM="
                               <<rtM<<G4endl;
#endif
              // ***VBQ***
              if(bnRQ<resM) resM=bnRQ;
            }
#ifdef debug
            if(aPDG<10000&&aPDG%10<3)
            //if(aPDG<10000&&aPDG%10<5)
            G4cout<<"G4Q::CHP: resM="<<resM<<", resQCode="<<resQCode<<G4endl;
#endif
            if(resM>0. && resQCode>-2)
            {
              G4double limM=mQ-resM;
              G4double rndM=GetRandomMass(cPDG,limM);// Candidate's Mass randomization
#ifdef debug
              G4double cMass=G4QPDGCode(cPDG).GetMass();
              if(aPDG<10000&&aPDG%10<3)
              //if(aPDG<10000&&aPDG%10<5)
              G4cout<<"G4Q::CHP:rndM="<<rndM<<",limM="<<limM<<" > cM="<<cMass<<" ,rM+fM="
                    <<resM+rndM<<" < mQ="<<mQ<<G4endl;
#endif
              // --- Kinematical Factors ---
              if(rndM>0. && resM+rndM<mQ)
              {
                curCand->SetEBMass(rndM);   // Set RandomizedEnvBoundMass of the Candidate
                curCand->SetNBMass(rndM);   // Set RandomizedNotBoundMass of the Candidate
                G4double mH2 = rndM*rndM;   // Squared mass of the candidate (Mu2)
                G4double rHk = mH2/dk;
                G4double zMax = 1.-rHk/mQ;  // z_max
                G4double mR2 = resM*resM;   // SquaredBoundedMass of the ResidualQuasmon
                G4double zMin=0.;
                //@@ One can use zMin=0 and later return to residM, as it is for qBar==0
                //zMin= mR2/mQ/(mQ-dk);       // z_min for Quasmon-Baryon @@ ?? @@
                if(qBar) zMin= mR2/mQ/(mQ-dk);       // z_min for Quasmon-Baryon @@ ?? @@
                G4double possibility=zMax-zMin;
#ifdef debug
                if(priCon) G4cout<<"G4Q::CHP:M="<<rndM<<",ps="<<possibility<<",zMax="<<zMax
                                 <<",rHk="<<rHk<<",mQ="<<mQ<<",dk="<<dk<<",zMin="<<zMin
                                 <<",mR2="<<mR2<<",rM="<<resM<<"; "<<mQ*(mQ-dk)<<G4endl;
#endif
                if (resPDG==10)                      // Chipolino case - check minimum
                {
                  G4double rM2 = mQk*(mQ-rHk);
                  if(rM2<resM*resM) possibility = 0.;
                }
                if (possibility>0. && vap>0 && zMax>zMin)
                {
                  probability = vaf*(pow(zMax, vap)-pow(zMin, vap));
#ifdef debug
                  if(priCon) G4cout<<"G4Q::CHP:#"<<index<<",mH2="<<mH2<<",nQ="<<nOfQ<<",p="
                                   <<probability<<",vf="<<vaf<<",vp="<<vap<<",zMax="<<zMax
                                   <<",zMin="<<zMin<<G4endl;
#endif
                
                  //if(qBar > 1 && baryn > 0)     //---> HighBaryonNumber ("nuclear") case
                  //{
                  //  //G4QContent rtQC=curQ+envQC; // Total Residual Quark Content @@ ??
                  //  //G4QNucleus rtN(rtQC);       // Create pseudo-nucleus for residual
                  //  /////G4double rtM =rtN.GetMZNS();// MinMass of total residual Nucleus
                  //  /////////G4double bnRQ=rtM-envM; // Bound mass of residual Quasmon
                  //}
                  //else                        //---> LowBaryonNumber case (tuned on p-ap)
                  //{
                    if(cPDG==110||cPDG==220||cPDG==330) probability*=comb; // f0 has spin 0
                    else probability*=comb*(abs(cPDG)%10); // Spin of resonance
                    G4int BarRQC=curQ.GetBaryonNumber();   // Res Quasmon BaryonNumber
                    G4int StrRQC=curQ.GetStrangeness();    // Res Quasmon Strangeness
                    if(BarRQC==2 && !StrRQC)               // --> DiBaryon Correction 
                    {
                      G4int ChgRQC=curQ.GetCharge();       // Res Quasmon Charge
                      if(ChgRQC==1) probability/=2;        // Only one S
                      else          probability*=2;        // One S + three P
                    }
                  //}
                }
              }
              else
              {
#ifdef debug
                if(priCon) G4cout<<"G4Q::CHP:cM=0[cPDG"<<cPDG<<"],mQ/QC="<<mQ<<valQ<<",rM="
                                 <<resM<<curQ<<G4endl;
#endif
              }
            }
            else
            {
#ifdef debug
              if(priCon) G4cout<<"***G4Q::CHP: M=0, #"<<index<<valQ<<",cPDH="<<cPDG<<"+rP="
                               <<resPDG<<curQ<<G4endl;
#endif
            }
          }
          else
          {
            probability=0.;
#ifdef debug
            if(priCon) G4cout<<"G4Q::CHP:"<<index<<valQ<<",PDG="<<cPDG<<"+r="<<resPDG<<curQ
                             <<":c=0(!) || tM="<<totMass<<"<"<<frM-CB+resTM<<" = fM="<<frM
                             <<"+rTM="<<resTM<<"-CB="<<CB<< G4endl;
#endif
          } // ---> End of the possibility IF
          //if(cPDG==111) secondProbab = 1.;
        }   // ---> End of Hadronic Case of fragmentation
        else probability=0.;
#ifdef debug
        G4int aPDG = abs(cPDG);
        if((cPDG>90000000 && baryn<5) || (aPDG<10000 && aPDG%10<3))
          G4cout<<"G4Q::CHP:^^cPDG="<<cPDG<<",p="<<pos<<",rPDG="<<resPDG<<curQ<<resM<<",p="
                <<probability<<",a="<<accumulatedProbability<<",sp="<<secondProbab<<G4endl;
#endif
      }                                                 // ===> End of possibility check
    }                                                   // ==> End of cluster skip for eA=0
    curCand->SetRelProbability(probability);
    accumulatedProbability += probability;
    curCand->SetIntegProbability(accumulatedProbability);
    curCand->SetSecondRelProb(secondProbab);
    secondAccumProbability += secondProbab;
    curCand->SetSecondIntProb(secondAccumProbability);
  }                                                   // ***> End of LOOP over candidates}
} // End of "CalculateHadronizationProbabilities"

// Check that it's possible to decay theTotalResidualNucleus in Quasmon+Environ & correct
G4bool G4Quasmon::CheckGroundState(G4bool corFlag) // Correction is forbidden by default
{
  static const G4QContent neutQC(2,1,0,0,0,0);
  static const G4QContent protQC(1,2,0,0,0,0);
  static const G4QContent lambQC(1,1,1,0,0,0);
  static const G4QContent deutQC(3,3,0,0,0,0);
  static const G4QContent alphQC(6,6,0,0,0,0);
  static const G4double mNeut= G4QPDGCode(2112).GetMass();
  static const G4double mProt= G4QPDGCode(2212).GetMass();
  static const G4double mLamb= G4QPDGCode(3122).GetMass();
  static const G4double mDeut= G4QPDGCode(2112).GetNuclMass(1,1,0);
  static const G4double mAlph= G4QPDGCode(2112).GetNuclMass(2,2,0);
  static const G4QNucleus vacuum= G4QNucleus(G4LorentzVector(0.,0.,0.,0.),90000000);
  G4int    resQPDG=valQ.GetSPDGCode();   // Quasmon PDG reachable in a member function
  G4double resQMa=G4QPDGCode(resQPDG).GetMass(); // GS Mass of the Residual Quasmon
  G4double resEMa=0.;                    // GS Mass of the Empty Residual Environment
  G4int   bsCond=0;                      // BaryonSeparetionCondition for Quasmon in vacuum
  G4LorentzVector enva4M=G4LorentzVector(0.,0.,0.,0.);
  G4LorentzVector reTLV=q4Mom;           // Prototyoe of the 4-Mom of the Residual Nucleus
  G4double resSMa=resQMa;                // Prototype of MinSplitMass of ResidualNucleus
#ifdef debug
  G4cout<<"G4Q::CheckGS: EnvPDG="<<theEnvironment.GetPDG()<<",Quasmon="<<resQPDG<<G4endl;
#endif
  if(theEnvironment.GetPDG()!=90000000)  // "Existing Environment" case
  {
    resEMa=theEnvironment.GetMZNS();     // GSMass of the Residual Environment
#ifdef debug
    G4cout<<"G4Q::CheckGS: Environment Mass="<<resEMa<<G4endl;
#endif
    enva4M=G4LorentzVector(0.,0.,0.,resEMa); // 4-Mom of the Residual Environment
    reTLV+=enva4M;                       // 4-Mom of Residual Nucleus
    resSMa+=resEMa;                      // Minimal Split Mass of Residual Nucleus
  }
  else                                   //Calculate BaryonSeparetionCondition for vacQuasm
  {
    G4QNucleus tmpQN(valQ,reTLV);        // TemporaryNucleus for the VacuumQuasmon
    //G4QNucleus tmpQN(valQ);              // TemporaryNucleus for the VacuumQuasmon
    bsCond = tmpQN.SplitBaryon();        // Possibility to split Fragment from the VacuumQ
#ifdef debug
    G4cout<<"G4Q::CheckGS: No environment, theOnlyQ="<<tmpQN<<",bsCond="<<bsCond<<G4endl;
#endif
    if(bsCond)                           // Decay rignht away in Fragment & residual
    {
      G4QContent fragmQC=protQC;
      G4double fragmM=mProt;
      if(bsCond==2112)
      {
        fragmQC=neutQC;
        fragmM=mNeut;
      }
      else if(bsCond==3122)
      {
        fragmQC=lambQC;
        fragmM=mLamb;
      }
      else if(bsCond==90001001)
      {
        fragmQC=deutQC;
        fragmM=mDeut;
      }
      else if(bsCond==90002002)
      {
        fragmQC=alphQC;
        fragmM=mAlph;
      }
      G4QContent rsQC=valQ-fragmQC;
      G4QNucleus rsQN(rsQC);              // TemporaryNucleus for the ResidualVacuumQuasmon
      G4double rsMass=rsQN.GetGSMass();   // Mass of the residualVacuum Quasmon
      G4LorentzVector quas4M = G4LorentzVector(0.,0.,0.,rsMass); // GSMass of theResidQuasm
      G4QHadron* quasH = new G4QHadron(rsQC, quas4M);
      G4LorentzVector frag4M = G4LorentzVector(0.,0.,0.,fragmM); // GSMass of theSplitFragm
      G4QHadron* fragH = new G4QHadron(fragmQC, frag4M);
      if(G4QHadron(reTLV).DecayIn2(frag4M,quas4M))
      {
        quasH->Set4Momentum(quas4M);
        FillHadronVector(quasH);          // Fill ResidQuasmHadron (delete equivalent)
        fragH->Set4Momentum(frag4M);
        FillHadronVector(fragH);          // Fill ResidQuasmHadron (delete equivalent)
        return true;
      }
      else
      {
        delete quasH;
        delete fragH;
      }
    }
  }
  G4QContent envaQC = theEnvironment.GetQCZNS(); // Quark Content of the Environment
  G4double resTMa=reTLV.m();              // CM Mass of the ResidualNucleus (Quasm+Environ)
  //if(resTMa>resSMa && (resEMa || bsCond)) return true;// Why not ?? @@ (see G4E the same)
  G4int nOfOUT = theQHadrons.size();      // Total #of QHadrons at this point
#ifdef debug
  G4cout<<"G4Q::CheckGS: (totM="<<resTMa<<" < rQM+rEM="<<resSMa<<" || rEM="<<resEMa
        <<"=0 && "<<bsCond<<"=0) && n="<<nOfOUT<<" >0"<<G4endl;
#endif
  if ( (resTMa < resSMa || (!resEMa && !bsCond) ) && nOfOUT > 0 && corFlag) 
  {   // *** CORRECTION ***

    G4QHadron*  theLast = theQHadrons[nOfOUT-1];
    if(!(theLast->GetNFragments()) && theLast->GetPDGCode()!=22)//NotDecayedHadron & NotGam
    {
      G4LorentzVector hadr4M=theLast->Get4Momentum();
      G4double  hadrMa=hadr4M.m();        // Mass of the Last hadron (==GSMass)
      G4LorentzVector tmpTLV=reTLV+hadr4M;// Tot (ResidNucl+LastHadron) 4-Mom
#ifdef debug
      G4cout<<"G4Q::CheckGS:YES,T="<<tmpTLV<<tmpTLV.m()<<">rM+hM="<<resSMa+hadrMa<<G4endl;
#endif
      if(tmpTLV.m()>resSMa+hadrMa)        // resMa contains 2 Hadrons: resQ and Environ
      {
        if(resEMa)                        // => "Non vacuum Environment exists" case
        {
          G4LorentzVector quas4M = G4LorentzVector(0.,0.,0.,resQMa); // GS Mass of Quasmon
          if(!G4QHadron(tmpTLV).DecayIn3(hadr4M,quas4M,enva4M))
          {
            G4cerr<<"---Warning---G4Q::CheckGS:DecIn Fragm+ResQ+ResEnv Error"<<G4endl;
            return false;
          }
          else
          {
            //@@CHECK CoulBar (only for ResQuasm in respect to ResEnv) & evaporate instead?
            //theEnvironment = G4QNucleus(envaQC,enva4M);
            G4QHadron* envH = new G4QHadron(envaQC,enva4M); //@@ Moving Environment !
            FillHadronVector(envH);               // Fill Moving Environment (del.equiv.)
            theEnvironment = vacuum;
            G4QHadron* quasH = new G4QHadron(valQ, quas4M);
            //quasH->Set4Momentum(quas4M);        // @@
            FillHadronVector(quasH);              // Fill ResidQuasm Hadron (del.equiv.)
            theLast->Set4Momentum(hadr4M);
          }
        }
        else                                      //=>"The Env is vacuum" case (DecayIn2)
        {
          G4LorentzVector quas4M = G4LorentzVector(0.,0.,0.,resQMa); // GS Mass of Quasmon
          G4QHadron* quasH = new G4QHadron(valQ, quas4M);
          if(!G4QHadron(tmpTLV).DecayIn2(hadr4M,quas4M))
          {
            delete quasH;                         // Delete "new Quasmon Hadron"
            G4cerr<<"---Warning---G4Q::CheckGS: Decay in Fragm+ResQ Error"<<G4endl;
            return false;
          }
          else
          {
            //@@CHECK CoulBar (only for ResQuasm in respect to ResEnv) & evaporate instead
            theLast->Set4Momentum(hadr4M);
            quasH->Set4Momentum(quas4M);
            FillHadronVector(quasH);              // Fill ResidQuasmHadron (del.equivalent)
          }
        }
      }
      else                                        // "CORRECTION" !!!!
      {
        if(nOfOUT>1 && corFlag)
        {
          G4QHadron*  thePrev = theQHadrons[nOfOUT-2];// Get pointer to prev-before-lastHad
          if(thePrev->GetNFragments()||thePrev->GetPDGCode()==22)return false;//DecH or Gam
          G4LorentzVector prev4M=thePrev->Get4Momentum(); // 4M of thePreviousButLastHadron
          G4double  prevMa=prev4M.m();                    // PreviousHadronMass (==HadrGSM)
          tmpTLV+=prev4M;                                 // IncrementTotal4M of TotResNucl
          G4QContent totQC=valQ+envaQC;                   // QCont of theResidNucl=ResQ+Env
          G4int      totPDG=totQC.GetSPDGCode();          // PDG Code of TotResidualNucleus
          G4double   totQMa=G4QPDGCode(totPDG).GetMass(); // GS Mass of the ResidualNucleus
          G4double   totNMa=tmpTLV.m();                   // RealMass of TotResidualNucleus
#ifdef debug
          G4cout<<"G4Q::CheckGS:NO, M="<<tmpTLV<<totNMa<<">"<<totQMa+hadrMa+prevMa<<G4endl;
#endif
          if(totNMa>totQMa+hadrMa+prevMa)
          {
            G4LorentzVector nuc4M = G4LorentzVector(0.,0.,0.,totQMa); // ResNuclAtRest 4Mom
            if(!G4QHadron(tmpTLV).DecayIn3(hadr4M,prev4M,nuc4M))
            {
              G4cerr<<"---Warning---G4Q::CheckGS:DecIn3 ResN+Last+Prev Error"<<G4endl;
              return false;
            }
            else
            {
              //theEnvironment = G4QNucleus(totQC, nuc4M);
              G4QHadron* envH = new G4QHadron(totQC,nuc4M); //@@ Moving Environment !
              FillHadronVector(envH);                  // Fill Moving Environment (del.eq.)
              theEnvironment = vacuum;                 //@@ Instead of Moving Environment !
              theLast->Set4Momentum(hadr4M);
              thePrev->Set4Momentum(prev4M);
#ifdef debug
           G4cout<<"G4Q::CheckGS: Yes, Check D4M="<<tmpTLV-hadr4M-prev4M-nuc4M<<G4endl;
#endif
            }
          }
          else                                         // Decay in one hadron, absorb other
          {
            G4QContent tmpLNQ=totQC+thePrev->GetQC();
            G4int    resLPDG =tmpLNQ.GetSPDGCode();
            G4double resLastM=G4QPDGCode(resLPDG).GetMass();//GSM of ResidNucl for theLastH
            G4QContent tmpPNQ=totQC+theLast->GetQC();
            G4int    resPPDG =tmpPNQ.GetSPDGCode();
            G4double resPrevM=G4QPDGCode(resPPDG).GetMass();//GSM of ResidNucl for thePrevH
#ifdef debug
            G4cout<<"G4Quasm::CheckGS: NO, tM="<<totNMa<<" > rp+l="<<resLastM+hadrMa
                  <<" || > rl+p="<<resPrevM+prevMa<<G4endl;
#endif
            if      (totNMa>resLastM+hadrMa)       // "Just exclude the Prev" case
            {
              theQHadrons.pop_back();              // theLast* is excluded from OUTPUT HV
              theQHadrons.pop_back();              // thePrev* is excluded from OUTPUT HV
              theQHadrons.push_back(theLast);      // theLast substitutes thePrev in OUTPUT
              delete  thePrev;                     // thePrev QHadron is destructed
              thePrev=theLast;
              resPPDG=resLPDG;
              resPrevM=resLastM;
              prev4M  = hadr4M;
            }
            else if (totNMa>resPrevM+prevMa)              // "Just exclude the Last" case
            {
              theQHadrons.pop_back();
              delete theLast;
            }
            else return false;
            G4LorentzVector nuc4M = G4LorentzVector(0.,0.,0.,resPrevM);//ResNucl4m to PrevH
            if(!G4QHadron(tmpTLV).DecayIn2(prev4M,nuc4M))
            {
              G4cerr<<"---Warning---G4Q::CheckGS:DecIn2 (ResN+Last)+Prev Error"<<G4endl;
              return false;
            }
            else
            {
              //theEnvironment = G4QNucleus(nuc4M, resPPDG);
              G4QHadron* envH = new G4QHadron(resPPDG,nuc4M); //@@ Moving Environment !
              FillHadronVector(envH);              // Fill Moving Environment (del.equiv.)
              theEnvironment = vacuum;
              thePrev->Set4Momentum(prev4M);
#ifdef debug
              G4cout<<"G4Q::CheckGS:Yes, Check D4M="<<tmpTLV-prev4M-nuc4M<<G4endl;
#endif
            }
          }
        }
        else return false;
      }
    }
    else return false;
  }
  else return false;
  return true;
} // End of "CheckGroundState"

// Decay the QHadron with the existing PDG Code (not Chipolino) for external & internal use
G4QHadronVector* G4Quasmon::DecayQHadron(G4QHadron* qH) // Don't fill Internal QHadrons
{
  G4QHadronVector* theFragments = new G4QHadronVector;  // user is responsible to delete!
  G4QPDGCode theQPDG  = qH->GetQPDG();
  G4int      thePDG   = theQPDG.GetPDGCode();    // Get the PDG code of decaying hadron
  G4int        pap = 0;                          // --- particle
  if(thePDG<0) pap = 1;                          // --- anti-particle
  G4LorentzVector t = qH->Get4Momentum();        // Get 4-momentum of decaying hadron
  G4double m_value = t.m();                      // Get the mass value of decaying Hadron
  // --- Randomize a channel of decay
  G4QDecayChanVector decV = theWorld->GetQParticle(theQPDG)->GetDecayVector();
  G4int nChan = decV.size();
#ifdef debug
  G4cout<<"G4Quasm::DecQHadron: PDG="<<thePDG<<",m="<<m_value<<",("<<nChan<<" channels)"<<G4endl;
#endif
  if(nChan)
  {
    G4int i=0;
    if(nChan>1)
    {
      G4double rnd = G4UniformRand();            // Random value to select a Decay Channel
      for(i=0; i<nChan; i++)
      {
        G4QDecayChan* dC = decV[i];              // The i-th Decay Channel
#ifdef debug
        G4cout<<"G4Quasmon::DecaQHadr:i="<<i<<",r="<<rnd<<"<dl="<<dC->GetDecayChanLimit()
              <<", mm="<<dC->GetMinMass()<<G4endl;
#endif
        if(rnd<dC->GetDecayChanLimit() && m_value>dC->GetMinMass()) break;
      }
      if(i>nChan-1) i=nChan-1;
    }
    G4QPDGCodeVector cV=decV[i]->GetVecOfSecHadrons();// PDGVector of theSelectedDecChannel
    G4int nPart=cV.size();                         // A#of particles to decay in
#ifdef debug
    G4cout<<"G4Quasmon::DecayQHadron: resi="<<i<<",nP="<<nPart<<":"<<cV[0]->GetPDGCode()
          <<","<<cV[1]->GetPDGCode();
    if(nPart>2) G4cout<<","<<cV[2]->GetPDGCode();
    G4cout<<G4endl;
#endif
    if(nPart<2||nPart>3)
    {
      G4cerr<<"---Warning---G4Q::DecayQHadr:n="<<nPart<<",ch#"<<i<<",PDG="<<thePDG<<G4endl;
      theFragments->push_back(qH);                    // Fill as it is (del.equiv.)
      return theFragments;
    }
#ifdef debug
    G4cout<<"G4Q::DecQH:Decay("<<ElMaDecays<<") PDG="<<thePDG<<t<<m_value<<",nP="<<nPart<<G4endl;
#endif
    if(nPart==2)
    {
      G4QHadron* fHadr;
      G4QHadron* sHadr;
      G4int fPDG=cV[0]->GetPDGCode();
      G4int sPDG=cV[1]->GetPDGCode();
      // Radiative decays In2 (eta, eta', Sigma0) are closed if the ElMaDecays=false
      if ( (fPDG != 22 && sPDG != 22) || ElMaDecays) {
#ifdef debug
        G4cout<<"G4Q::DecQH:Yes2,fPDG="<<fPDG<<",sPDG="<<sPDG<<",EMF="<<ElMaDecays<<G4endl;
#endif
        if(cV[0]->GetWidth()==0.)
        { // Randomize only the second Hardon or none
          fHadr = new G4QHadron(cV[0]->GetPDGCode());   // the First Hadron is created *1*
          if(cV[1]->GetWidth()==0.)sHadr = new G4QHadron(sPDG);//theSecondHadron is created
          else
          {
            G4QParticle* sPart=theWorld->GetQParticle(cV[1]);// Pt for theSecondHadron
            G4double sdm = m_value - fHadr->GetMass();  // MaxMassLimit for the 2-nd Hadron
            sHadr = new G4QHadron(sPart,sdm);           // the Second Hadron is created *2*
            if(sPDG<0) sHadr->MakeAntiHadron();
          }
        }
        else                                              // Randomize masses ofBothHadrons
        {
          G4QParticle* sPart=theWorld->GetQParticle(cV[1]);// Pt for theSecondHadron
          G4double mim = sPart->MinMassOfFragm();         // MinMassLimit for theSecondHadr
          G4double fdm = m_value - mim;                   // MaxMassLimit for theFirstHadr
          G4QParticle* fPart=theWorld->GetQParticle(cV[0]);// Pt for the First Hadron
          fHadr = new G4QHadron(fPart,fdm);               // the 1-st Hadron is initialized
          if(fPDG<0) fHadr->MakeAntiHadron();
          G4double fm=fHadr->GetMass();                   // Mass of the first hadron
          G4double sdm = m_value - fm;                    // MaxMassLimit for theSecondHadr
          sHadr = new G4QHadron(sPart,sdm);               // the 2-nd Hadron is initialized
          if(sPDG<0) sHadr->MakeAntiHadron();
#ifdef debug
          G4cout<<"G4Q::DQH:M="<<m_value<<",mi="<<mim<<",fd="<<fdm<<",fm="<<fm<<",sd="<<sdm
                <<",sm="<<sHadr->GetMass()<<G4endl;
#endif
        }
#ifdef debug
        G4cout<<"G4Q::DQH:(DecayIn2)1="<<fHadr->GetMass()<<",2="<<sHadr->GetMass()<<G4endl;
#endif
        if(pap)
        {
          fHadr->MakeAntiHadron();
          sHadr->MakeAntiHadron();
        }
        G4LorentzVector f4Mom = fHadr->Get4Momentum();    // Get First Hadron 4Mom (mass) 
        G4LorentzVector s4Mom = sHadr->Get4Momentum();    // Get Second Hadron 4Mom (mass) 
        if(!qH->DecayIn2(f4Mom,s4Mom))                    // Error in DecayIn2
        {
          delete fHadr;                                   // Delete "new fHadr"
          delete sHadr;                                   // Delete "new sHadr"
#ifdef debug
          G4cerr<<"---Warning---G4Q::DecayQHadron:in2,PDGC="<<thePDG<<", ch#"<<i<<": 4M="
                <<qH->Get4Momentum()<<"("<<qH->GetMass()<<")->"<<f4Mom<<"+"<<s4Mom<<G4endl;
          //throw G4QException("***Exception***G4Q::DecayQHadron: Failed to decay in 2");
#endif
          theFragments->push_back(qH);                    // Fill as it is (del.equiv.)
          return theFragments;
        }
        else
        {
          //qH->SetNFragments(2);
          //theFragments.push_back(qH);                   // Fill with NFr=2 (del.equiv.)
          // Instead
          delete qH;                                      // Delete it (without History)
          //
          fHadr->Set4Momentum(f4Mom);             // Put the randomized 4Mom to 1-st Hadron
          G4QHadronVector* theTmpQHV=DecayQHadron(fHadr); // Try to decay
          G4int nProd=theTmpQHV->size();
#ifdef debug
          G4cout<<"G4Q::DecayQHadr:(DecayIn2) nOfProdForQH1="<<nProd<<G4endl;
#endif
          if(nProd==1) theFragments->push_back((*theTmpQHV)[0]);// Final = no Further Decay
          else for(G4int ip1=0; ip1<nProd; ip1++)
          {
            G4QHadronVector* intTmpQHV = DecayQHadron((*theTmpQHV)[ip1]);
            G4int tmpS=intTmpQHV->size();
            if(tmpS==1)theFragments->push_back((*intTmpQHV)[0]);// Final = no Further Decay
            else
            {
              theFragments->resize(tmpS+theFragments->size());// Resize theFragments length
              copy(intTmpQHV->begin(), intTmpQHV->end(), theFragments->end()-tmpS);
            }
#ifdef debug
            G4cout<<"G4Q::DecayQHadr:(DecayIn2) Copy Sec11 nProd="<<tmpS<<G4endl;
#endif
            intTmpQHV->clear();
            delete intTmpQHV;
          }
          theTmpQHV->clear();
          delete theTmpQHV;
          sHadr->Set4Momentum(s4Mom);             // Put the randomized 4Mom to 2-nd Hadron
          theTmpQHV=DecayQHadron(sHadr);          // Try to decay
          nProd=theTmpQHV->size();
#ifdef debug
          G4cout<<"G4Q::DecayQHadr:(DecayIn2) nOfProdForQH2="<<nProd<<G4endl;
#endif
          if(nProd==1) theFragments->push_back((*theTmpQHV)[0]);// Final = no Further Decay
          else for(G4int ip1=0; ip1<nProd; ip1++)
          {
            G4QHadronVector* intTmpQHV = DecayQHadron((*theTmpQHV)[ip1]);
            G4int tmpS=intTmpQHV->size();
            if(tmpS==1)theFragments->push_back((*intTmpQHV)[0]);// Final = no Further Decay
            else
            {
              theFragments->resize(tmpS+theFragments->size());// Resize theFragments length
              copy(intTmpQHV->begin(), intTmpQHV->end(), theFragments->end()-tmpS);
            }
#ifdef debug
            G4cout<<"G4Q::DecayQHadr:(DecayIn2) Copy Sec12 nProd="<<tmpS<<G4endl;
#endif
            intTmpQHV->clear();
            delete intTmpQHV;
          }
          theTmpQHV->clear();
          delete theTmpQHV;
        }
#ifdef debug
        G4cout<<"G4Q::DecQHadr: DecayIn2 is made with nH="<<theFragments->size()<<G4endl;
#endif
      }
      else
      {
#ifdef debug
        if(thePDG==89999003||thePDG==90002999)G4cerr<<"*G4Q::DQH:8999003/90002999"<<G4endl;
#endif
        theFragments->push_back(qH);               // Fill hadron as it is (del.equivalent)
      }
    }
    else if(nPart==3)
    {
      G4QHadron* fHadr;
      G4QHadron* sHadr;
      G4QHadron* tHadr;
      G4int fPDG=cV[0]->GetPDGCode();
      G4int sPDG=cV[1]->GetPDGCode();
      G4int tPDG=cV[2]->GetPDGCode();
      //The radiative decays of the GS hadrons In3 are closed if ElMaDecays=false
      if ( (fPDG != 22 && sPDG != 22 && tPDG != 22) || ElMaDecays)
      {
#ifdef debug
        G4cout<<"G4Q::DQH:Y,f="<<fPDG<<",s="<<sPDG<<",t="<<tPDG<<",F="<<ElMaDecays<<G4endl;
#endif
        if(cV[0]->GetWidth()==0.)                        // Don't randomize theFirstHardon
        {
          fHadr = new G4QHadron(fPDG);                   // theFirst Hadron is created  *1*
          if(cV[1]->GetWidth()==0.)
          {
            sHadr = new G4QHadron(sPDG);                 // theSecond Hadron is created *2*
            if(cV[2]->GetWidth()==0.)tHadr = new G4QHadron(tPDG);//theThirdHadron isCreated
            else
            {
              G4QParticle* tPart=theWorld->GetQParticle(cV[2]);// Pt for the3-rdH
              G4double tdm = m_value-fHadr->GetMass()-sHadr->GetMass();// MaxMass for the 2d Hadr
              tHadr = new G4QHadron(tPart,tdm);                  //the3rdHadron is created
              if(tPDG<0) tHadr->MakeAntiHadron();
            }
          }
          else                                              // Randomize 2nd & 3rd Hadrons
          {
            m_value-=fHadr->GetMass();                       // Reduce the residual MaxMass
            G4QParticle* tPart=theWorld->GetQParticle(cV[2]);// Pt for the 3-rd Hadron
            G4double mim = tPart->MinMassOfFragm();         // MinMassLimit for the 3rd Hd
            G4double sdm = m_value - mim;                   // MaxMassLimit for the 2nd Hd
            G4QParticle* sPart=theWorld->GetQParticle(cV[1]);// Pt for the 2-nd Hadron
            sHadr = new G4QHadron(sPart,sdm);               // theSecondHadron is created
            if(sPDG<0) sHadr->MakeAntiHadron();
            G4double tdm = m_value - sHadr->GetMass();      // MaxMassLimit for the 3-rd H
            tHadr = new G4QHadron(tPart,tdm);               // the Third Hadron is created
            if(tPDG<0) tHadr->MakeAntiHadron();
          }
        }
        else  // Randomize masses of all three Hadrons
        {
          G4QParticle* sPart=theWorld->GetQParticle(cV[1]); // Pt for theSecondHadr
          G4double smim = sPart->MinMassOfFragm();          // MinMassLim for SecondHadron
          G4QParticle* tPart=theWorld->GetQParticle(cV[2]); // Pt for the Third Hadron
          G4double tmim = tPart->MinMassOfFragm();          // MinMassLimit for theThirdHd
          G4double fdm = m_value - smim - tmim;             // MaxMassLimit for theFirstHd
          G4QParticle* fPart=theWorld->GetQParticle(cV[0]); // Pt for the First Hadron
          fHadr = new G4QHadron(fPart,fdm);                 // the First Hadron is created
          if(fPDG<0) fHadr->MakeAntiHadron();
          m_value-=fHadr->GetMass();                        // Reduce the residual MaxMass
          G4double  sdm = m_value - tmim;                   // MaxMassLimit for theSecondH
          sHadr = new G4QHadron(sPart,sdm);                 // theSecondHadron is created
          if(sPDG<0) sHadr->MakeAntiHadron();
          G4double  tdm = m_value - sHadr->GetMass();       // MaxMassLimit for theThird H
          tHadr = new G4QHadron(tPart,tdm);                 // the Third Hadron is created
          if(tPDG<0) tHadr->MakeAntiHadron();
        }     
#ifdef debug
        G4cout<<"G4Quasmon::DecayQHadron:3Dec. m1="<<fHadr->GetMass()
              <<",m2="<<sHadr->GetMass()<<",m3="<<tHadr->GetMass()<<G4endl;
#endif
        if(pap)
        {
          fHadr->MakeAntiHadron();
          sHadr->MakeAntiHadron();
          tHadr->MakeAntiHadron();
        }
        G4LorentzVector f4Mom = fHadr->Get4Momentum(); // Get 4M of the First Hadron (mass)
        G4LorentzVector s4Mom = sHadr->Get4Momentum(); // Get 4M of the SecondHadron (mass)
        G4LorentzVector t4Mom = tHadr->Get4Momentum(); // Get 4M of the Third Hadron (mass)
        if(!qH->DecayIn3(f4Mom,s4Mom,t4Mom))
        {
          delete fHadr;                                // Delete "new fHadr"
          delete sHadr;                                // Delete "new sHadr"
          delete tHadr;                                // Delete "new tHadr"
          G4cerr<<"---Warning---G4Q::DecayQHadron:in3,PDGC="<<thePDG<<", ch#"<<i<<G4endl;
          theFragments->push_back(qH);             // Fill as it is (delete equivalent)
          return theFragments;
        }
        else
        {
          //qH->SetNFragments(3);
          //theFragments.push_back(q);              // Fill with NFr=3 (del.equiv.)
          // Instead
          delete qH;
          //
          fHadr->Set4Momentum(f4Mom);             // Put the randomized 4Mom to 1-st Hadron
          G4QHadronVector* theTmpQHV=DecayQHadron(fHadr); // Try to decay
          G4int nProd=theTmpQHV->size();
#ifdef debug
          G4cout<<"G4Q::DecayQHadr:(DecayIn3) nOfProdForQH1="<<nProd<<G4endl;
#endif
          if(nProd==1) theFragments->push_back((*theTmpQHV)[0]);// Final = no Further Decay
          else for(G4int ip1=0; ip1<nProd; ip1++)
          {
            G4QHadronVector* intTmpQHV = DecayQHadron((*theTmpQHV)[ip1]);
            G4int tmpS=intTmpQHV->size();
            if(tmpS==1)theFragments->push_back((*intTmpQHV)[0]);// Final = no Further Decay
            else
            {
              theFragments->resize(tmpS+theFragments->size());// Resize theFragments length
              copy(intTmpQHV->begin(), intTmpQHV->end(), theFragments->end()-tmpS);
            }
#ifdef debug
            G4cout<<"G4Q::DecayQHadr:(DecayIn3) Copy Sec11 nProd="<<tmpS<<G4endl;
#endif
            intTmpQHV->clear();
            delete intTmpQHV;
          }
          theTmpQHV->clear();
          delete theTmpQHV;

          sHadr->Set4Momentum(s4Mom);             // Put the randomized 4Mom to 2-nd Hadron
          theTmpQHV=DecayQHadron(sHadr);          // Try to decay
          nProd=theTmpQHV->size();
#ifdef debug
          G4cout<<"G4Q::DecayQHadr:(DecayIn3) nOfProdForQH2="<<nProd<<G4endl;
#endif
          if(nProd==1) theFragments->push_back((*theTmpQHV)[0]);// Final = no Further Decay
          else for(G4int ip1=0; ip1<nProd; ip1++)
          {
            G4QHadronVector* intTmpQHV = DecayQHadron((*theTmpQHV)[ip1]);
            G4int tmpS=intTmpQHV->size();
            if(tmpS==1)theFragments->push_back((*intTmpQHV)[0]);// Final = no Further Decay
            else
            {
              theFragments->resize(tmpS+theFragments->size());// Resize theFragments length
              copy(intTmpQHV->begin(), intTmpQHV->end(), theFragments->end()-tmpS);
            }
#ifdef debug
            G4cout<<"G4Q::DecayQHadr:(DecayIn3) Copy Sec12 nProd="<<tmpS<<G4endl;
#endif
            intTmpQHV->clear();
            delete intTmpQHV;
          }
          theTmpQHV->clear();
          delete theTmpQHV;

          tHadr->Set4Momentum(t4Mom);             // Put the randomized 4Mom to 3-rd Hadron
          theTmpQHV=DecayQHadron(tHadr);          // Try to decay
          nProd=theTmpQHV->size();
#ifdef debug
          G4cout<<"G4Q::DecayQHadr:(DecayIn3) nOfProdForQH3="<<nProd<<G4endl;
#endif
          if(nProd==1) theFragments->push_back((*theTmpQHV)[0]);// Final = no Further Decay
          else for(G4int ip1=0; ip1<nProd; ip1++)
          {
            G4QHadronVector* intTmpQHV = DecayQHadron((*theTmpQHV)[ip1]);
            G4int tmpS=intTmpQHV->size();
            if(tmpS==1)theFragments->push_back((*intTmpQHV)[0]);// Final = no Further Decay
            else
            {
              theFragments->resize(tmpS+theFragments->size());// Resize theFragments length
              copy(intTmpQHV->begin(), intTmpQHV->end(), theFragments->end()-tmpS);
            }
#ifdef debug
            G4cout<<"G4Q::DecayQHadr:(DecayIn3) Copy Sec13 nProd="<<tmpS<<G4endl;
#endif
            intTmpQHV->clear();
            delete intTmpQHV;
          }
          theTmpQHV->clear();
          delete theTmpQHV;

        }
#ifdef debug
        G4cout<<"G4Q::DecQHadr: DecayIn3 is made with nH="<<theFragments->size()<<G4endl;
#endif
      }
      else theFragments->push_back(qH);            // Fill hadron as it is (del.equivalent)
    }
  }
  else
  {
#ifdef debug
    G4cout<<"G4Quas::DecQHadr:Fill PDG= "<<thePDG<<t<<m_value<<" as it is ***0***>>"<<G4endl;
#endif
    if(thePDG==89999003||thePDG==90002999)G4cerr<<"-War-G4Q::DQH:8999003/90002999"<<G4endl;
    theFragments->push_back(qH);                   // Fill as it is (delete equivalent)
  }
#ifdef debug
  G4cout<<"G4Q::DecQHadr:=-= HADRON IS DECAYED =-= with nH="<<theFragments->size()<<G4endl;
#endif
  return theFragments;
} // End of "DecayOutHadron"

// Random integer value for the Poiasson Distribution with meanValue
G4int G4Quasmon::RandomPoisson(G4double meanValue)
{
  if (meanValue<=0.)
  {
    G4cerr<<"---Warning---G4Q::RandomPoisson:Negative(zero) MeanValue="<<meanValue<<G4endl;
    //throw G4QException("***G4Quasmon::RandomPoisson: negative 0r zero Mean Value");
    return -1;
  }
  G4double r=G4UniformRand();
  G4double t=exp(-meanValue);
  G4double s_value=t;
  if (r<s_value) return 0;
  t*=meanValue; // To avoid /1
  s_value+=t;
  if (r<s_value) return 1;
  G4int i=1;
  while ( s_value<r && i<100 )
  {
    i++;
    t*=meanValue/i;
    s_value+=t;
  }
  return i;
}
// End of "RandomPoisson"

//The public Hadronisation routine with delete responsibility of User (!)
G4QHadronVector* G4Quasmon::Fragment(G4QNucleus& nucEnviron, G4int nQ)
{
#ifdef debug
  G4cout<<"G4Quasmon::Fragment called E="<<nucEnviron<<nucEnviron.GetProbability()<<G4endl;
#endif
  G4int nQs=nQ;
  HadronizeQuasmon(nucEnviron,nQs);
  G4int nHadrs=theQHadrons.size();
#ifdef debug
  G4cout<<"G4Quasm::Fragm:after HadronizeQuasmon nH="<<nHadrs<<",Env="<<nucEnviron<<G4endl;
#endif
  G4QHadronVector* theFragments = new G4QHadronVector;// user is responsible for delition !
  if(nHadrs) for (int hadron=0; hadron<nHadrs; hadron++)
  {
    G4QHadron* curHadr = new G4QHadron(theQHadrons[hadron]);
    theFragments->push_back(curHadr);         // (delete equivalent - user)
  }
#ifdef pdebug
  else G4cerr<<"*******G4Quasmon::Fragment *** Nothing is in the output ***"<<G4endl;
#endif
  return theFragments;
} // End of "Fragment"

// Boost Quasmon 4-momentum, using Boost Lorentz vector
void G4Quasmon::Boost(const G4LorentzVector& boost4M)
{  
  // see CERNLIB short writeup U101 for the algorithm
  G4double bm=boost4M.mag();
  G4double factor = (q4Mom.vect()*boost4M.vect()/(boost4M.e()+bm) - q4Mom.e())/bm;
  q4Mom.setE(q4Mom.dot(boost4M)/bm);
  q4Mom.setVect(factor*boost4M.vect() + q4Mom.vect());
} // End of Boost

---