This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / GEANT321 / gxuser / uginit.F
1 *
2 * $Id$
3 *
4 * $Log$
5 * Revision 1.1.1.1  1995/10/24 10:21:52  cernlib
6 * Geant
7 *
8 *
9 #include "geant321/pilot.h"
10 *CMZ :  3.21/02 29/03/94  15.41.35  by  S.Giani
11 *-- Author :
12       SUBROUTINE UGINIT
13 *
14 ************************************************************************
15 *                                                                      *
16 *              To initialise GEANT3 program and read data cards        *
17 *                                                                      *
18 ************************************************************************
19 *
20 #include "geant321/gckine.inc"
21 #include "geant321/gcunit.inc"
22 #include "geant321/gcphys.inc"
23 *
24 *     -----------------------------------------------------------------
25 *
26 *             Initialize GEANT
27 C..geant..
28       CALL GINIT
29 *
30 *             Prints version number
31 *
32       WRITE(LOUT,1000)
33 *
34 *             IKINE  = particle type (default=1=gamma)
35 *             PKINE(1)=particle energy
36 *             IKINE and PKINE can be changed with the data card KINE
37 *
38       PKINE(1)=10.
39       PKINE(5)=4.
40       IKINE=1
41       ICOMP=1
42       IPAIR=1
43       IBREM=1
44       IANNI=1
45       IPHOT=1
46       IHADR=1
47 *
48 *             Initialize GEANT/ZBOOK data structures
49 *
50 C..geant..
51       CALL GZINIT
52 *
53 *             Initialize graphics package
54 *
55       CALL GDINIT
56 *
57  1000 FORMAT(/,'  MODE VERSION 1.00 : ',/)
58       END