]>
Commit | Line | Data |
---|---|---|
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 |