Geant4  9.6.p02
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
uginit.F
Go to the documentation of this file.
1 
2  SUBROUTINE uginit
3 *
4 * To initialise GEANT/USER program and read data cards
5 *
6 #include "calor.inc"
7 #include "celoss.inc"
8 *
9  CHARACTER*20 filnam
10 *
11 * *** Define the GEANT parameters
12  CALL ginit
13 
14 * *** read data cards
15  print *, 'G3 > gives the filename of the data cards to be read:'
16  READ (*,'(A)') filnam
17  IF (filnam.EQ.' ') filnam = 'testem1.dat'
18  OPEN (unit=5,file=filnam,status='unknown',form='formatted')
19 
20 *
21 * *** Calor definition
22  CALL ffkey('CALOR',imat,3,'MIXED')
23 *
24 * *** read data cards
25  CALL gffgo
26 
27 *
28  CALL gzinit
29  CALL gpart
30 *
31  CALL gdinit
32 *
33 * *** Geometry and materials description
34  CALL ugeom
35 *
36 * *** Energy loss and cross-sections initialisations
37  CALL gphysi
38 *
39  CALL gprint('MATE',0)
40  CALL gprint('TMED',0)
41  CALL gprint('VOLU',0)
42 *
43 * *** Define user histograms
44  CALL uhinit
45 *
46 * *** some initialisation
47  ntrak0 = 0
48  ntrak1 = 0
49  nstep0 = 0
50  nstep1 = 0
51  CALL vzero(nbcall,12)
52 *
53  END
Generated on Sat May 25 2013 14:32:19 for Geant4 by   doxygen 1.8.4