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 #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
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