First commit.
[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 *
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[kmxalld];
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