added cdb stuff
[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 //*       X/Y/Zalldl (m) = position coord. of the m_th primary electron  *
43 //*                        emitted during energy loss fluctuation pro-   *
44 //*                        cesses                                        *
45 //*
46 //*               Nalldl = number of recorded primary electrons          *
47 //*               Lalldl = logical flag for primary electrons recording  *
48 //*                                                                      *
49 //*----------------------------------------------------------------------*
50 //*
51 //      PARAMETER ( MXALLD = 5000 )
52 //*
53 //      LOGICAL LALLDL
54 //         COMMON / ALLDLT / TALLDL (MXALLD), XALLDL (MXALLD),
55 //     &                  YALLDL (MXALLD), ZALLDL (MXALLD),
56 //     &                  TALLMN, NALLDL, LALLDL
57 //      SAVE / ALLDLT /
58
59     const Int_t mxalld = 5000;
60     typedef struct {
61         Double_t talldl[mxalld];
62         Double_t xalldl[mxalld];
63         Double_t yalldl[mxalld];
64         Double_t zalldl[mxalld];
65         Double_t tallmn;
66         Int_t    nalldl;
67         Int_t    lalldl;
68     } alldltCommon;
69 #define ALLDLT COMMON_BLOCK(ALLDLT,alldlt)
70     COMMON_BLOCK_DEF(alldltCommon,ALLDLT);
71 }
72
73 #endif