Geant4  10.02.p03
TestEm4/geant3/src/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
ugeom
subroutine ugeom
Definition: TestEm1/geant3/src/ugeom.F:3
file
TFile * file
Definition: comparison_ascii.C:5
uginit
subroutine uginit
Definition: TestEm1/geant3/src/uginit.F:3
print
void print(G4double elem)
Definition: G4ecpssrBaseKxsModel.cc:108
uhinit
subroutine uhinit
Definition: TestEm1/geant3/src/uhinit.F:3