No debug message.
[u/mrichter/AliRoot.git] / TFluka / Fsouevt.h
CommitLineData
aa9af262 1#include "cfortran.h"
2#include "Rtypes.h"
3
4#include "Fdimpar.h"
5
6extern "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
42const Int_t mxsoev = 100;
43
44typedef 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)
69COMMON_BLOCK_DEF(souevtCommon,SOUEVT);
70}