Common blocks to access material properties and
[u/mrichter/AliRoot.git] / TFluka / Falldlt.h
CommitLineData
04c3eb8c 1#ifndef FALLDLT_H
2#define FALLDLT_H
3
4#include "cfortran.h"
5#include "Rtypes.h"
6extern "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 *
cc7ac393 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//*
04c3eb8c 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
cc7ac393 54// COMMON / ALLDLT / TALLDL (MXALLD), XALLDL (MXALLD),
55// & YALLDL (MXALLD), ZALLDL (MXALLD),
56// & TALLMN, NALLDL, LALLDL
04c3eb8c 57// SAVE / ALLDLT /
cc7ac393 58
04c3eb8c 59 const Int_t mxalld = 5000;
60 typedef struct {
f2a98602 61 Double_t talldl[mxalld];
cc7ac393 62 Double_t xalldl[mxalld];
63 Double_t yalldl[mxalld];
64 Double_t zalldl[mxalld];
04c3eb8c 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