10 //*=== Alldlt ===========================================================*
12 //*----------------------------------------------------------------------*
14 //* Copyright (C) 2005-2006 by Alfredo Ferrari *
15 //* All Rights Reserved. *
18 //* Include file: alldlt (ALL DeLTas) vv *
20 //* Created on 10 october 2005 by Alfredo Ferrari *
23 //* Last change on 19-feb-06 by Alfredo Ferrari *
25 //* Included in the following routines: *
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 *
37 //* Talldl (m) = kinetic energy of the m_th primary electron *
38 //* emitted during energy loss fluctuation pro- *
40 //* Tallmn = minimum energy of the recorded primary *
42 //* X/Y/Zalldl (m) = position coord. of the m_th primary electron *
43 //* emitted during energy loss fluctuation pro- *
46 //* Nalldl = number of recorded primary electrons *
47 //* Lalldl = logical flag for primary electrons recording *
49 //*----------------------------------------------------------------------*
51 // PARAMETER ( MXALLD = 5000 )
54 // COMMON / ALLDLT / TALLDL (MXALLD), XALLDL (MXALLD),
55 // & YALLDL (MXALLD), ZALLDL (MXALLD),
56 // & TALLMN, NALLDL, LALLDL
59 const Int_t mxalld = 5000;
61 Double_t talldl[mxalld];
62 Double_t xalldl[mxalld];
63 Double_t yalldl[mxalld];
64 Double_t zalldl[mxalld];
69 #define ALLDLT COMMON_BLOCK(ALLDLT,alldlt)
70 COMMON_BLOCK_DEF(alldltCommon,ALLDLT);