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