Pemf generation option is obsolete. Removed.
[u/mrichter/AliRoot.git] / TFluka / Fsourcm.h
CommitLineData
a879d0cc 1#ifndef FSOURCM_H
2#define FSOURCM_H 1
b9d0a01d 3
4#include "Rtypes.h"
5#include "cfortran.h"
6extern "C" {
a879d0cc 7//*$ create sourcm.add
8//*copy sourcm
b9d0a01d 9//*
a879d0cc 10//*=== Sourcm ===========================================================*
b9d0a01d 11//*
12//*----------------------------------------------------------------------*
13//* *
a879d0cc 14//* Include file: sourcm *
b9d0a01d 15//* *
16//* version march 1996 by Alfredo Ferrari, INFN - Milan *
17//* *
18//* Last change on 09-mar-02 by Alfredo Ferrari *
19//* *
20//* Included in the following subroutines or functions: *
21//* *
22//* BDNOPT *
a879d0cc 23//* FLKEND *
b9d0a01d 24//* EVTDAT *
25//* FEEDER *
26//* FLUKAM *
27//* MGDRAW *
28//* SOURCE *
29//* *
b9d0a01d 30//* *
31//* Whasou(1-18) = user variables *
32//* Tkesum = total kinetic energy of the primaries of the *
33//* user written source *
34//* Lussrc = flag to inform that the user written source was *
35//* used *
36//* Sdusou = user character variable *
37//* Lsouit = source is called iteratively until it is .true. *
38//* *
39//*----------------------------------------------------------------------*
40//*
41
42typedef struct {
43 Double_t whasou[18];
44 Double_t tkesum;
45 Int_t lussrc;
46 Int_t lsouit;
a879d0cc 47} sourcmCommon;
48#define SOURCM COMMON_BLOCK(SOURCM,sourcm)
49COMMON_BLOCK_DEF(sourcmCommon,SOURCM);
b9d0a01d 50
51typedef struct {
52 Char_t sdusou[8];
a879d0cc 53} chsocmCommon;
54#define CHSOCM COMMON_BLOCK(CHSOCM,chsocm)
55COMMON_BLOCK_DEF(chsocmCommon,CHSOCM);
641fc77f 56
57typedef struct {
58 Double_t xn[3];
59 Double_t wn[3];
60 Double_t distn;
61 Int_t irltno;
62 Int_t irrnor;
63} norlatCommon;
64#define NORLAT COMMON_BLOCK(NORLAT,norlat)
65COMMON_BLOCK_DEF(norlatCommon,NORLAT);
a879d0cc 66
67typedef struct {
68 Double_t xb[3];
69 Double_t wb[3];
70 Double_t wp[3];
71 Double_t xp[3];
72 Double_t rin;
73 Double_t rout;
74 Double_t pinf;
75 Double_t dist;
76 Int_t ir;
77 Int_t idbg;
78 Int_t irprim;
79 Int_t nasc;
80 Int_t lsurf;
81 Int_t nbo;
82 Int_t lri;
83 Int_t lro;
84 Int_t kloop;
85 Int_t loop;
86 Int_t itype;
87 Int_t n0a;
88} paremCommon;
89#define PAREM COMMON_BLOCK(PAREM,parem)
90COMMON_BLOCK_DEF(paremCommon,PAREM);
b9d0a01d 91}
92
93#endif