5 //*=== iounit ===========================================================*
7 //*----------------------------------------------------------------------*
9 //* iounit: included in any routine *
11 //* created on 01 june 1990 by alfredo ferrari, infn -milan *
13 //* last change on 20-jan-99 by alfredo ferrari *
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- *
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 *
36 //*----------------------------------------------------------------------*
38 const Int_t lunin = 5;
40 //* parameter ( lunout = 6 )
43 //* parameter ( lunout = 6 )
46 const Int_t lunout = 11;
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;