]>
Commit | Line | Data |
---|---|---|
aa9af262 | 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 | } |