gpamela/gcdes/iounit.inc

*
* $Id: iounit.inc,v 1.1.1.1 1995/10/24 10:20:40 cernlib Exp $
*
* $Log: iounit.inc,v $
* Revision 1.1.1.1  1995/10/24 10:20:40  cernlib
* Geant
*
*
#ifndef CERNLIB_GEANT321_IOUNIT_INC
#define CERNLIB_GEANT321_IOUNIT_INC
*
*
* iounit.inc
*
*                                                                     *
*=== iounit ==========================================================*
*                                                                     *
*---------------------------------------------------------------------*
*                                                                     *
*      Iounit: included in any routine                                *
*                                                                     *
*         lunin  = standard input unit                                *
*         lunout = standard output unit                               *
*         lunerr = standard error unit                                *
*         lunber = input file for bertini nuclear data                *
*         lunech = echo file for pegs dat                             *
*         lunflu = input file for photoelectric edges and X-ray fluo- *
*                  rescence data                                      *
*         lungeo = scratch file for combinatorial geometry            *
*         lunpgs = input file for pegs material data                  *
*         lunran = output file for the final random number seed       *
*         lunxsc = input file for low energy neutron cross sections   *
*                                                                     *
*---------------------------------------------------------------------*
*                                                                     *
      PARAMETER ( LUNIN  = 5  )
      PARAMETER ( LUNOUT = 6  )
      PARAMETER ( LUNERR = 66 )
      PARAMETER ( LUNBER = 22 )
      PARAMETER ( LUNECH = 8  )
      PARAMETER ( LUNFLU = 86 )
      PARAMETER ( LUNGEO = 16 )
      PARAMETER ( LUNPGS = 12 )
      PARAMETER ( LUNRAN = 2  )
      PARAMETER ( LUNXSC = 81 )
 

#endif
1	*
2	* $Id: iounit.inc,v 1.1.1.1 1995/10/24 10:20:40 cernlib Exp $
3	*
4	* $Log: iounit.inc,v $
5	* Revision 1.1.1.1 1995/10/24 10:20:40 cernlib
6	* Geant
7	*
8	*
9	#ifndef CERNLIB_GEANT321_IOUNIT_INC
10	#define CERNLIB_GEANT321_IOUNIT_INC
11	*
12	*
13	* iounit.inc
14	*
15	* *
16	=== iounit ==========================================================
17	* *
18	---------------------------------------------------------------------
19	* *
20	* Iounit: included in any routine *
21	* *
22	* lunin = standard input unit *
23	* lunout = standard output unit *
24	* lunerr = standard error unit *
25	* lunber = input file for bertini nuclear data *
26	* lunech = echo file for pegs dat *
27	* lunflu = input file for photoelectric edges and X-ray fluo- *
28	* rescence data *
29	* lungeo = scratch file for combinatorial geometry *
30	* lunpgs = input file for pegs material data *
31	* lunran = output file for the final random number seed *
32	* lunxsc = input file for low energy neutron cross sections *
33	* *
34	---------------------------------------------------------------------
35	* *
36	PARAMETER ( LUNIN = 5 )
37	PARAMETER ( LUNOUT = 6 )
38	PARAMETER ( LUNERR = 66 )
39	PARAMETER ( LUNBER = 22 )
40	PARAMETER ( LUNECH = 8 )
41	PARAMETER ( LUNFLU = 86 )
42	PARAMETER ( LUNGEO = 16 )
43	PARAMETER ( LUNPGS = 12 )
44	PARAMETER ( LUNRAN = 2 )
45	PARAMETER ( LUNXSC = 81 )
46
47
48	#endif