Geant4_10
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
HepGeom::BasicVector3D::unit
BasicVector3D< T > unit() const
Definition: BasicVector3D.h:304
ugeom
subroutine ugeom
Definition: ugeom.F:2
file
TFile * file
Definition: comparison_ascii.C:5
uginit
subroutine uginit
Definition: uginit.F:2
status
int status
Definition: tracer.cxx:24
print
void print(const std::vector< T > &data)
Definition: DicomRun.hh:111
uhinit
subroutine uhinit
Definition: uhinit.F:2
Generated on Sat Dec 14 2013 14:33:07 for Geant4_10 by   doxygen 1.8.5