Access to common block ALLDLT containing primary ionisation electron information.
[u/mrichter/AliRoot.git] / TFluka / Falldlt.h
1 #ifndef FALLDLT_H
2 #define FALLDLT_H 
3
4 #include "cfortran.h"
5 #include "Rtypes.h"
6 extern "C" {
7 //*$ CREATE ALLDLT.ADD
8 //*COPY ALLDLT
9 //*
10 //*=== Alldlt ===========================================================*
11 //*
12 //*----------------------------------------------------------------------*
13 //*                                                                      *
14 //*     Copyright (C) 2005-2006         by        Alfredo Ferrari        *
15 //*     All Rights Reserved.                                             *
16 //*                                                                      *
17 //*                                                                      *
18 //*     Include file: alldlt  (ALL DeLTas)  vv                           *
19 //*                                                                      *
20 //*     Created  on  10 october 2005    by        Alfredo Ferrari        *
21 //*                                                INFN - Milan          *
22 //*                                                                      *
23 //*     Last change on  19-feb-06       by        Alfredo Ferrari        *
24 //*                                                                      *
25 //*     Included in the following routines:                              *
26 //*                                                                      *
27 //*              blockmvax/bdtrns.f                                      *
28 //*              dedxmvax/dedxfl.f                                       *
29 //*              dedxmvax/enion.f                                        *
30 //*              dedxmvax/enionf.f                                       *
31 //*              emfmvax/ededxf.f                                        *
32 //*              emfmvax/emenio.f                                        *
33 //*              emfmvax/emfsco.f                                        *
34 //*              emfmvax/pdedxf.f                                        *
35 //*              kaskadmvax/kaskad.f                                     *
36 //*                                                                      *
37 //*           Talldl (m) = kinetic energy of the m_th primary electron   *
38 //*                        emitted during energy loss fluctuation pro-   *
39 //*                        cesses                                        *
40 //*               Tallmn = minimum energy of the recorded primary        *
41 //*                        electrons                                     *
42 //*               Nalldl = number of recorded primary electrons          *
43 //*               Lalldl = logical flag for primary electrons recording  *
44 //*                                                                      *
45 //*----------------------------------------------------------------------*
46 //*
47 //      PARAMETER ( MXALLD = 5000 )
48 //*
49 //      LOGICAL LALLDL
50 //      COMMON / ALLDLT / TALLDL (MXALLD), TALLMN, NALLDL, LALLDL
51 //      SAVE / ALLDLT /
52     const Int_t mxalld = 5000;
53     typedef struct {
54         Double_t talldl[mxalld];
55         Double_t tallmn;
56         Int_t    nalldl;
57         Int_t    lalldl;
58     } alldltCommon;
59 #define ALLDLT COMMON_BLOCK(ALLDLT,alldlt)
60     COMMON_BLOCK_DEF(alldltCommon,ALLDLT);
61 }
62
63 #endif