Dummy methods DefineParticle required by the interface added.
[u/mrichter/AliRoot.git] / 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 }