]> git.uio.no Git - u/mrichter/AliRoot.git/blobdiff - TFluka/Fflkstk.h
Use TRACKR.j0trk if TRACKR.jtrack is special particle code.
[u/mrichter/AliRoot.git] / TFluka / Fflkstk.h
index fd71e6b97ce563540f8c6c45a260db45ce7b7c1c..d0ad92e70be9ba3417cfff0ec311b711f22d5c9e 100644 (file)
@@ -23,15 +23,15 @@ extern "C" {
 //*     description of the common block(s) and variable(s)               *
 //*                                                                      *
 //*     /Flkstk/ stack for the primaries                                  *
-//*        Wt     = particle statistical weight                          *
-//*        Pmom   = particle (laboratory) momentum (GeV/c)               *
-//*        Tke    = particle (laboratory) kinetic energy (GeV)           *
-//*        Xa     = particle position  x-coordinate                      *
-//*        Ya     = particle position  y-coordinate                      *
-//*        Za     = particle position  z-coordinate                      *
-//*        Tx     = particle direction x-coordinate                      *
-//*        Ty     = particle direction y-coordinate                      *
-//*        Tz     = particle direction z-coordinate                      *
+//*        Wtflk  = particle statistical weight                          *
+//*        Pmoflk = particle (laboratory) momentum (GeV/c)               *
+//*        Tkeflk = particle (laboratory) kinetic energy (GeV)           *
+//*        Xflk   = particle position  x-coordinate                      *
+//*        Yflk   = particle position  y-coordinate                      *
+//*        Zflk   = particle position  z-coordinate                      *
+//*        Txflk  = particle direction x-coordinate                      *
+//*        Tyflk  = particle direction y-coordinate                      *
+//*        Tzflk  = particle direction z-coordinate                      *
 //*        Txpol  = x direction cosine of the particle polarization      *
 //*        Typol  = y direction cosine of the particle polarization      *
 //*        Tzpol  = z direction cosine of the particle polarization      *
@@ -47,48 +47,49 @@ extern "C" {
 //*        Lfrphn = flag for forced photonuclear interaction             *
 //*        Raddly = delay (s) in production wrt the nominal primary "0"  *
 //*                 time for particle produced in radioactive decays     *
-//*                (i.e. those coming from decays of daughter isotopes)  *
+//*                (i.e. those coming from decays of daughter isotopes), *
+//*                 when in analogue mode, flag for position in the      *
+//*                 activr array when in non-analogue mode               *
 //*        Cmpath = cumulative path travelled by the particle since it   *
 //*                 was produced (cm)                                    *
 //*        Sparek = spare real variables available for K.W.Burn          *
 //*        Ispark = spare integer variables available for K.W.Burn       *
-//*        Ilo    = particle identity (Paprop numbering)                 *
+//*        Iloflk = particle identity (Paprop numbering)                 *
 //*        Igroup = energy group for low energy neutrons                 *
-//*        Lo     = particle generation                                  *
+//*        Loflk  = particle generation                                  *
 //*        Louse  = user flag                                            *
-//*        Nreg   = particle region number                               *
+//*        Nrgflk = particle region number                               *
 //*        Nlattc = particle lattice cell number                         *
 //*        Nhspnt = pointer to the history object (Geant4 geometry)      *
 //*        Nevent = number of the event which created the particle       *
 //*        Numpar = particle number                                      *
 //*        Lraddc = flag for particles generated in radioactive decays   *
 //*        Nparma = largest particle number ever reached                 *
-//*        Mstack = stack size                                           *
-//*        Lstmax = highest value of the stack pointer ever reached      *
+//*        Nstmax = highest value of the stack pointer ever reached      *
 //*                 in the run                                           *
-//*        Lstack = stack pointer                                        *
-//*        Lstaol = stack pointer of the last processed particle         *
+//*        Npflka = Fluka stack pointer                                  *
+//*        Nstaol = stack pointer of the last processed particle         *
 //*        Igroun = energy group number of the last processed particle   *
 //*                 if it is a low energy neutron                        *
 //*----------------------------------------------------------------------*
 //*
 
 typedef struct {
-   Double_t xflk[mfstck+1];             //(0:MFSTCK)
-   Double_t yflk[mfstck+1];             //(0:MFSTCK)
-   Double_t zflk[mfstck+1];             //(0:MFSTCK)
-   Double_t txflk[mfstck+1];             //(0:MFSTCK)
-   Double_t tyflk[mfstck+1];             //(0:MFSTCK)
-   Double_t tzflk[mfstck+1];             //(0:MFSTCK)
+   Double_t xflk[mfstck+1];           //(0:MFSTCK)
+   Double_t yflk[mfstck+1];           //(0:MFSTCK)
+   Double_t zflk[mfstck+1];           //(0:MFSTCK)
+   Double_t txflk[mfstck+1];          //(0:MFSTCK)
+   Double_t tyflk[mfstck+1];          //(0:MFSTCK)
+   Double_t tzflk[mfstck+1];          //(0:MFSTCK)
    Double_t txpol[mfstck+1];          //(0:MFSTCK)
    Double_t typol[mfstck+1];          //(0:MFSTCK)
    Double_t tzpol[mfstck+1];          //(0:MFSTCK)
    Double_t txnor[mfstck+1];          //(0:MFSTCK)
    Double_t tynor[mfstck+1];          //(0:MFSTCK)
    Double_t tznor[mfstck+1];          //(0:MFSTCK)
-   Double_t wtflk[mfstck+1];             //(0:MFSTCK)
-   Double_t pmoflk[mfstck+1];           //(0:MFSTCK)
-   Double_t tkeflk[mfstck+1];            //(0:MFSTCK)
+   Double_t wtflk[mfstck+1];          //(0:MFSTCK)
+   Double_t pmoflk[mfstck+1];         //(0:MFSTCK)
+   Double_t tkeflk[mfstck+1];         //(0:MFSTCK)
    Double_t dfnear[mfstck+1];         //(0:MFSTCK)
    Double_t agestk[mfstck+1];         //(0:MFSTCK)
    Double_t aknshr[mfstck+1];         //(0:MFSTCK)
@@ -97,11 +98,11 @@ typedef struct {
    Double_t frcphn[mfstck+1];         //(0:MFSTCK)
    Double_t sparek[mfstck+1][mkbmx1]; //(MKBMX1,0:MFSTCK)
    Int_t    ispark[mfstck+1][mkbmx2]; //(MKBMX2,0:MFSTCK)
-   Int_t    iloflk[mfstck+1];            //(0:MFSTCK)
+   Int_t    iloflk[mfstck+1];         //(0:MFSTCK)
    Int_t    igroup[mfstck+1];         //(0:MFSTCK)
-   Int_t    loflk[mfstck+1];             //(0:MFSTCK)
+   Int_t    loflk[mfstck+1];          //(0:MFSTCK)
    Int_t    louse[mfstck+1];          //(0:MFSTCK)
-   Int_t    nrgflk[mfstck+1];           //(0:MFSTCK)
+   Int_t    nrgflk[mfstck+1];         //(0:MFSTCK)
    Int_t    nlattc[mfstck+1];         //(0:MFSTCK)
    Int_t    nhspnt[mfstck+1];         //(0:MFSTCK)
    Int_t    nevent[mfstck+1];         //(0:MFSTCK)