beam replaced by beamcm
[u/mrichter/AliRoot.git] / TFluka / Fiounit.h
CommitLineData
b9d0a01d 1extern "C" {
2//*$ create iounit.add
3//*copy iounit
4//* *
5//*=== iounit ===========================================================*
6//* *
7//*----------------------------------------------------------------------*
8//* *
9//* iounit: included in any routine *
10//* *
11//* created on 01 june 1990 by alfredo ferrari, infn -milan *
12//* *
13//* last change on 20-jan-99 by alfredo ferrari *
14//* *
15//* lunin = standard input unit *
16//* lunout = standard output unit *
17//* lunerr = standard error unit *
18//* lunber = input file for bertini nuclear data *
19//* lunech = echo file for pegs dat *
20//* lunflu = input file for photoelectric edges and x-ray fluo- *
21//* rescence data *
22//* lungeo = scratch file for combinatorial geometry *
23//* lunpmf = input file for pegs material data *
24//* lunran = output file for the final random number seed *
25//* lunxsc = input file for low energy neutron cross sections *
26//* lundet = output file for the detect option *
27//* lunray = output file for ray-tracing options *
28//* lunrdb = unit number for reading (extra) auxiliary external *
29//* files to be closed just after reading *
30//* lunrd2 = unit number for reading (extra) auxiliary external *
31//* files to be closed just after reading *
32//* lunscr = unit number to be used for temporary scratch files *
33//* lunpgo = output file for plotgeom *
34//* lunpgs = store (formatted/unformatted) file for plotgeom *
35//* *
36//*----------------------------------------------------------------------*
37//* *
38const Int_t lunin = 5;
39//* start_vax_seq
40//* parameter ( lunout = 6 )
41//* end_vax_seq
42//* start_ibm_seq
43//* parameter ( lunout = 6 )
44//* end_ibm_seq
45//* start_unix_seq
46const Int_t lunout = 11;
47//* end_unix_seq
48const Int_t lunerr = 15;
49const Int_t lunber = 14;
50const Int_t lunech = 8;
51const Int_t lunflu = 13;
52const Int_t lungeo = 16;
53const Int_t lunpmf = 12;
54const Int_t lunran = 2;
55const Int_t lunxsc = 9;
56const Int_t lundet = 17;
57const Int_t lunray = 10;
58const Int_t lunrdb = 1;
59const Int_t lunrd2 = 18;
60const Int_t lundpm = 19;
61const Int_t lunpgo = 7;
62const Int_t lunpgs = 4;
63const Int_t lunscr = 3;
64}