Put index into track's name instead of its label.
[u/mrichter/AliRoot.git] / TFluka / Fiounit.h
1 extern "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 //*                                                                      *
38 const 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
46 const Int_t lunout = 11;
47 //* end_unix_seq
48 const Int_t lunerr = 15;
49 const Int_t lunber = 14;
50 const Int_t lunech = 8;
51 const Int_t lunflu = 13;
52 const Int_t lungeo = 16;
53 const Int_t lunpmf = 12;
54 const Int_t lunran = 2;
55 const Int_t lunxsc = 9;
56 const Int_t lundet = 17;
57 const Int_t lunray = 10;
58 const Int_t lunrdb = 1;
59 const Int_t lunrd2 = 18;
60 const Int_t lundpm = 19;
61 const Int_t lunpgo = 7;
62 const Int_t lunpgs = 4;
63 const Int_t lunscr = 3;
64 }