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  CHARACTER*20 filnam
7 *
8 * *** Define the GEANT parameters
9  CALL ginit
10 
11 * *** read data cards
12  print *, 'G3 > gives the filename of the data cards to be read:'
13  READ (*,'(A)') filnam
14  IF (filnam.EQ.' ') filnam = 'run01.dat'
15  OPEN (unit=5,file=filnam,status='unknown',form='formatted')
16 
17 * *** read data cards
18  CALL gffgo
19 *
20  CALL gzinit
21  CALL gpart
22 *
23  CALL gdinit
24 *
25 * *** Geometry and materials description
26  CALL ugeom
27 *
28 * *** Energy loss and cross-sections initialisations
29  CALL gphysi
30 *
31  CALL gprint('MATE',0)
32  CALL gprint('TMED',0)
33  CALL gprint('VOLU',0)
34 *
35 * *** Define user histograms
36  CALL uhinit
37 *
38  END
Generated on Sat May 25 2013 14:32:19 for Geant4 by   doxygen 1.8.4