TFluka/Fsouevt.h

   1 #include "cfortran.h"
   2 #include "Rtypes.h"
   3
   4 #include "Fdimpar.h"
   5
   6 extern "C" {
   7 //*$ create souevt.add
   8 //*copy souevt
   9
  10 //*=== Souevt ===========================================================*
  11 //*
  12 //*----------------------------------------------------------------------*
  13 //*                                                                      *
  14 //*     Copyright (C) 1996-2005      by    Alfredo Ferrari & Paola Sala  *
  15 //*     All Rights Reserved.                                             *
  16 //*                                                                      *
  17 //*                                                                      *
  18 //*     SOUrce EVenT:                                                    *
  19 //*                                                                      *
  20 //*     Created on 14 november 1996  by    Alfredo Ferrari & Paola Sala  *
  21 //*                                                   Infn - Milan       *
  22 //*                                                                      *
  23 //*     Last change on 16-mar-98     by    Alfredo Ferrari               *
  24 //*                                                                      *
  25 //*          X,Y,Zsoevt(i) = position    of the i_th source particle     *
  26 //*          TX,Y,Zsoev(i) = direction   of the i_th source particle     *
  27 //*              Wtsoev(i) = weight      of the i_th source particle     *
  28 //*              Pmsoev(i) = momentum    of the i_th source particle     *
  29 //*              Tksoev(i) = kin. energy of the i_th source particle     *
  30 //*              Agsoev(i) = age         of the i_th source particle     *
  31 //*              Aksoev(i) = Kaon ampl.  of the i_th source particle     *
  32 //*            Ussoev(j,i) = user var.   of the i_th source particle     *
  33 //*              Ijsoev(i) = identity    of the i_th source particle     *
  34 //*              Nrsoev(i) = region      of the i_th source particle     *
  35 //*              Nlsoev(i) = lattice     of the i_th source particle     *
  36 //*              Losoev(i) = user flag   of the i_th source particle     *
  37 //*            Iusoev(j,i) = user flags  of the i_th source particle     *
  38 //*                Npsoev  = number of the source particles              *
  39 //*                                                                      *
  40 //*----------------------------------------------------------------------*
  41
  42 const Int_t mxsoev = 100;
  43
  44 typedef struct {
  45    Double_t xsoevt[mxsoev];
  46    Double_t ysoevt[mxsoev];
  47    Double_t zsoevt[mxsoev];
  48    Double_t txsoev[mxsoev];
  49    Double_t tysoev[mxsoev];
  50    Double_t tzsoev[mxsoev];
  51    Double_t txpsov[mxsoev];
  52    Double_t typsov[mxsoev];
  53    Double_t tzpsov[mxsoev];
  54    Double_t wtsoev[mxsoev];
  55    Double_t pmsoev[mxsoev];
  56    Double_t tksoev[mxsoev];
  57    Double_t agsoev[mxsoev];
  58    Double_t aksoev[mxsoev];
  59    Double_t ussoev[mkbmx1][mxsoev];
  60    Int_t    ijsoev[mxsoev];
  61    Int_t    nrsoev[mxsoev];
  62    Int_t    nlsoev[mxsoev];
  63    Int_t    losoev[mxsoev];
  64    Int_t    iusoevo[mkbmx2][mxsoev];
  65    Int_t    npsoev;
  66
  67 } souevtCommon;
  68 #define SOUEVT COMMON_BLOCK(SOUEVT,souevt)
  69 COMMON_BLOCK_DEF(souevtCommon,SOUEVT);
  70 }