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 }