g4mat/src/uginit.F

0001
0002       SUBROUTINE UGINIT
0003 *
0004 *     To initialise GEANT/USER  program and read data cards
0005 *
0006 #include "geant321/gcphys.inc"
0007 #include "geant321/gccuts.inc"
0008 #include "ugmate.inc"
0009 #include "ggvalues.inc"
0010 *
0011       CHARACTER*20 filnam
0012 *
0013 * *** Define the GEANT parameters
0014       CALL GINIT
0015
0016 * *** read data cards
0017       PRINT *, 'G3 > gives the filename of the data cards to be read:'
0018       READ (*,'(A)') filnam
0019       IF (filnam.EQ.' ') filnam = 'run01.dat'
0020       OPEN (unit=5,file=filnam,status='unknown',form='formatted')
0021 *
0022 * *** define data cards
0023       call FFKEY ('MATE' ,Imat,1,'INTEGER')
0024       call FFKEY ('G4VAL',g4value(1),200,'REAL')
0025 *
0026 * *** read data cards
0027       CALL GFFGO
0028 *
0029 * *** overwrite some initialization
0030       iloss  = 4
0031       ppcutm = cutele
0032 *
0033       CALL GZINIT
0034       CALL GPART
0035 *
0036 * *** materials definition
0037       CALL UGIMAT
0038 *
0039 * *** Energy loss and cross-sections initialisations
0040       CALL GPHYSI
0041 *
0042       CALL GPRINT('MATE',0)
0043 *
0044 * *** ready for geant3/geant4 comparison
0045       call UG3G4
0046 *
0047       END