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