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 //*               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