#include <Riostream.h>
-#include "AliRun.h"
-#include "AliStack.h"
+#include "TCallf77.h" //For the fortran calls
#ifndef WIN32
# define stuprf stuprf_
+# define usrdci usrdci_
#else
# define stuprf STUPRF
+# define usrdci USRDCI
#endif
//
// Fluka include
#include "Fdblprc.h" //(DBLPRC) fluka common
#include "Fevtflg.h" //(EVTFLG) fluka common
#include "Fpaprop.h" //(PAPROP) fluka common
-#include "Fstack.h" //(STACK) fluka common
+#include "Fflkstk.h" //(FLKSTK) fluka common
#include "Ftrackr.h" //(TRACKR) fluka common
-#include "Ffinuc.h" //(FINUC) fluka common
+#include "Fgenstk.h" //(GENSTK) fluka common
+#include "Ffheavy.h" //(FHEAVY) fluka common
+
//Virtual MC
-#ifndef WITH_ROOT
#include "TFluka.h"
-#else
-#include "TFlukaGeo.h"
-#endif
-
+#include "TFlukaIon.h"
#include "TVirtualMCStack.h"
#include "TVirtualMCApplication.h"
#include "TParticle.h"
#include "TVector3.h"
extern "C" {
+
+ void type_of_call usrdci(int&, int&, int&, int&);
+
void stuprf(Int_t& /*ij*/, Int_t& /*mreg*/,
- Double_t& xx, Double_t& yy, Double_t& zz,
- Int_t& numsec, Int_t& npprmr)
+ Double_t& xx, Double_t& yy, Double_t& zz,
+ Int_t& numsec, Int_t& npprmr)
{
//*----------------------------------------------------------------------*
//* *
//* SeT User PRoperties for Fluka particles *
//* *
//*----------------------------------------------------------------------*
+// Get the pointer to the VMC
+ TFluka* fluka = (TFluka*) gMC;
-// STACK.lstack = stack pointer
-// STACK.louse = user flag
+// FLKSTK.npflka = stack pointer
+// FLKSTK.louse = user flag
// TRACKR.llouse = user defined flag for the current particle
- STACK.louse[STACK.lstack] = TRACKR.llouse;
+
+ FLKSTK.louse[FLKSTK.npflka] = TRACKR.llouse;
// mkbmx1 = dimension for kwb real spare array in fluka stack in DIMPAR
// mkbmx2 = dimension for kwb int. spare array in fluka stack in DIMPAR
-// STACK.sparek = spare real variables available for k.w.burn
-// STACK.ispark = spare integer variables available for k.w.burn
+// FLKSTK.sparek = spare real variables available for k.w.burn
+// FLKSTK.ispark = spare integer variables available for k.w.burn
// TRACKR.spausr = user defined spare variables for the current particle
// TRACKR.ispusr = user defined spare flags for the current particle
Int_t ispr;
- for (ispr = 0; ispr <= mkbmx1 - 1; ispr++) {
- STACK.sparek[STACK.lstack][ispr] = TRACKR.spausr[ispr];
- }
- for (ispr = 0; ispr <= mkbmx2 - 1; ispr++) {
- STACK.ispark[STACK.lstack][ispr] = TRACKR.ispusr[ispr];
- }
-
-// Get the pointer to the VMC
- TFluka* fluka = (TFluka*) gMC;
+ if (numsec <= npprmr) {
+ for (ispr = 0; ispr <= mkbmx1 - 1; ispr++) {
+ FLKSTK.sparek[FLKSTK.npflka][ispr] = TRACKR.spausr[ispr];
+ }
+ for (ispr = 0; ispr <= mkbmx2 - 1; ispr++) {
+ FLKSTK.ispark[FLKSTK.npflka][ispr] = TRACKR.ispusr[ispr];
+ }
+ }
+
+ // save parent info
+ FLKSTK.ispark[FLKSTK.npflka][mkbmx2 - 3] = TRACKR.jtrack; // fluka particle id
+ FLKSTK.ispark[FLKSTK.npflka][mkbmx2 - 4] = TRACKR.ispusr[mkbmx2 - 1]; // current track number
+ FLKSTK.ispark[FLKSTK.npflka][mkbmx2 - 5] = npprmr; // flag npprmr>0
+
+
+ Int_t verbosityLevel = fluka->GetVerbosityLevel();
+ Bool_t debug = (verbosityLevel>=3)? kTRUE:kFALSE;
+
fluka->SetTrackIsNew(kTRUE);
// TVirtualMC* fluka = TFluka::GetMC();
// Get the stack produced from the generator
// Increment the track number and put it into the last flag
// was numsec -1
// clarify with Alberto
+
+// npprmr > 0, the secondary being loaded is actually still the interacting
+// particle (it can happen in some biasing situations)
+
if (numsec > npprmr) {
// Now call the PushTrack(...)
Int_t done = 0;
- Int_t parent = TRACKR.ispusr[mkbmx2-1];
-
- Int_t pdg = fluka->PDGFromId(FINUC.kpart[numsec-1]);
- Double_t px = FINUC.plr[numsec-1] * FINUC.cxr[numsec-1];
- Double_t pz = FINUC.plr[numsec-1] * FINUC.cyr[numsec-1];
- Double_t py = FINUC.plr[numsec-1] * FINUC.czr[numsec-1];
- Double_t e = FINUC.tki[numsec-1] + PAPROP.am[FINUC.kpart[numsec-1]+6];
+ Int_t parent = TRACKR.ispusr[mkbmx2-1];
+ Int_t kpart = GENSTK.kpart[numsec-1];
+ Int_t pdg;
+ Int_t a = 1;
+ Int_t z = 1;
+ Int_t ism = 0;
+ if (kpart < -6) {
+// kpart = -kpart;
+// z = kpart / 100000;
+// a = kpart - z * 100000;
+// a /= 100;
+ usrdci(kpart, a, z, ism);
+ pdg = TFlukaIon::GetIonPdg(z, a);
+ TFlukaIon::AddIon(a, z);
+ } else {
+ pdg = fluka->PDGFromId(kpart);
+ }
+
+ Double_t px = GENSTK.plr[numsec-1] * GENSTK.cxr[numsec-1];
+ Double_t py = GENSTK.plr[numsec-1] * GENSTK.cyr[numsec-1];
+ Double_t pz = GENSTK.plr[numsec-1] * GENSTK.czr[numsec-1];
+ Double_t e;
+
+ if (a == 1) {
+ e = GENSTK.tki[numsec-1] + PAPROP.am[GENSTK.kpart[numsec-1]+6];
+ } else {
+ e = GENSTK.tki[numsec-1] + Double_t(a) * 0.93149 + 8.071e-3;
+ }
+
+
Double_t vx = xx;
Double_t vy = yy;
Double_t vz = zz;
-
+
Double_t tof = TRACKR.atrack;
- Double_t polx = FINUC.cxrpol[numsec-1];
- Double_t poly = FINUC.cyrpol[numsec-1];
- Double_t polz = FINUC.czrpol[numsec-1];
+ Double_t polx = GENSTK.cxrpol[numsec-1];
+ Double_t poly = GENSTK.cyrpol[numsec-1];
+ Double_t polz = GENSTK.czrpol[numsec-1];
-
TMCProcess mech = kPHadronic;
-
if (EVTFLG.ldecay == 1) {
- mech = kPDecay;
- cout << endl << "Decay" << endl;
-
+ mech = kPDecay;
+ if (debug) cout << endl << "Decay" << endl;
+ FLKSTK.nlattc[FLKSTK.npflka] = TRACKR.lt1trk;
} else if (EVTFLG.ldltry == 1) {
- mech = kPDeltaRay;
- cout << endl << "Delta Ray" << endl;
-
+ mech = kPDeltaRay;
+ if( fluka->GetIcode() == kKASHEA ) {
+ // For all interactions secondaries are put on GENSTK common (kp=1,np)
+ // but for KASHEA delta ray generation where only the secondary elec-
+ // tron is present and stacked on FLKSTK common for kp=lstack
+ pdg = fluka->PDGFromId( FLKSTK.iloflk[FLKSTK.npflka] );
+ px = FLKSTK.pmoflk[FLKSTK.npflka] * FLKSTK.txflk[FLKSTK.npflka];
+ py = FLKSTK.pmoflk[FLKSTK.npflka] * FLKSTK.tyflk[FLKSTK.npflka];
+ pz = FLKSTK.pmoflk[FLKSTK.npflka] * FLKSTK.tzflk[FLKSTK.npflka];
+ e = FLKSTK.tkeflk[FLKSTK.npflka] + PAPROP.am[FLKSTK.iloflk[FLKSTK.npflka]+6];
+ polx = FLKSTK.txpol[FLKSTK.npflka];
+ poly = FLKSTK.typol[FLKSTK.npflka];
+ polz = FLKSTK.tzpol[FLKSTK.npflka];
+ if (debug) cout << endl << "Delta Ray from KASHEA...." << " pdg from FLKSTK=" << pdg << endl;
+ } else {
+ if (debug) cout << endl << "Delta Ray" << endl;
+ }
} else if (EVTFLG.lpairp == 1) {
- mech = kPPair;
- cout << endl << "Pair Production" << endl;
-
+ mech = kPPair;
+ if (debug) cout << endl << "Pair Production" << endl;
} else if (EVTFLG.lbrmsp == 1) {
- mech = kPBrem;
- cout << endl << "Bremsstrahlung" << endl;
-
+ mech = kPBrem;
+ if (debug) cout << endl << "Bremsstrahlung" << endl;
}
-
- Double_t weight = FINUC.wei[numsec-1];
+ Double_t weight = GENSTK.wei[numsec-1];
Int_t is = 0;
- Int_t ntr;
+ Int_t ntr;
//
// Save particle in VMC stack
cppstack->PushTrack(done, parent, pdg,
- px, py, pz, e,
- vx, vy, vz, tof,
- polx, poly, polz,
- mech, ntr, weight, is);
- cout << endl << " !!! stuprf: ntr=" << ntr << "pdg " << pdg << " parent=" << parent << "numsec "
- << numsec << "npprmr " << npprmr << endl;
+ px, py, pz, e,
+ vx, vy, vz, tof,
+ polx, poly, polz,
+ mech, ntr, weight, is);
+ if (debug) {
+
+ cout << endl << " !!! stuprf: ntr=" << ntr << " pdg " << pdg << " parent=" << parent
+ << " parent_pdg="<< fluka->PDGFromId(TRACKR.jtrack) << " numsec "
+ << numsec << " npprmr " << npprmr << " icode=" << fluka->GetIcode()
+ << "kin. energy [keV] = " << GENSTK.tki[numsec-1] * 1.e6 << endl << endl;
+
+ }
+
+
//
// Save current track number
- STACK.ispark[STACK.lstack][mkbmx2-1] = ntr;
- } // end of if (numsec-1 > npprmr)
+ FLKSTK.ispark[FLKSTK.npflka][mkbmx2-1] = ntr;
+ FLKSTK.ispark[FLKSTK.npflka][mkbmx2-2] = 0;
+ } // end of if (numsec > npprmr)
+// else {
+// if(debug) {
+// cout << endl << " !!! stuprf: skipping pushtrack track=" << TRACKR.ispusr[mkbmx2-1]
+// << " pdg " << fluka->PDGFromId(TRACKR.jtrack) << " numsec=" << numsec<< " npprmr=" << npprmr
+// << " GENSTK pdg=" << fluka->PDGFromId(GENSTK.kpart[numsec-1]) << endl;
+// }
+// }
} // end of stuprf
+
} // end of extern "C"