ECCE @ EIC Software
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
uginit.F
Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file uginit.F
1 
2  SUBROUTINE uginit
3 *
4 * To initialise GEANT/USER program and read data cards
5 *
6 #include "geant321/gcphys.inc"
7 #include "geant321/gccuts.inc"
8 #include "ugmate.inc"
9 #include "ggvalues.inc"
10 *
11  CHARACTER*20 filnam
12 *
13 * *** Define the GEANT parameters
14  CALL ginit
15 
16 * *** read data cards
17  print *, 'G3 > gives the filename of the data cards to be read:'
18  READ (*,'(A)') filnam
19  IF (filnam.EQ.' ') filnam = 'run01.dat'
20  OPEN (unit=5,file=filnam,status='unknown',form='formatted')
21 *
22 * *** define data cards
23  call ffkey('MATE' ,imat,1,'INTEGER')
24  call ffkey('G4VAL',g4value(1),200,'REAL')
25 *
26 * *** read data cards
27  CALL gffgo
28 *
29 * *** overwrite some initialization
30  iloss = 4
31  ppcutm = cutele
32 *
33  CALL gzinit
34  CALL gpart
35 *
36 * *** materials definition
37  CALL ugimat
38 *
39 * *** Energy loss and cross-sections initialisations
40  CALL gphysi
41 *
42  CALL gprint('MATE',0)
43 *
44 * *** ready for geant3/geant4 comparison
45  call ug3g4
46 *
47  END