THE EGS5 CODE SYSTEM

endif
if(loop.lt.3) then
write(6,120) loop,medarr(loop)
120 FORMAT(’ Using media number ’,i1,’, ’,a24,’ for this run’,/)
endif
!-----------------------------------------------------------------------
! Step 3: Pre-hatch-call-initialization
!-----------------------------------------------------------------------
nreg=3
! nreg : number of region
med(1)=0
med(3)=0
if(loop.eq.2) then
med(2)=2
else
med(2)=1
endif
! Vacuum in regions 1 and 3, Si in region 2
ecut(2)=0.700
! Terminate electron histories at .700 MeV in the plate
pcut(2)=0.010
! Terminate photon histories at 0.01 MeV in the plate
! Only needed for region 2 since no transport elsewhere
! ecut is total energy = 0.189 MeV kinetic energy
! --------------------------------------------------------
! Random number seeds. Must be defined before call hatch
! or defaults will be used. inseed (1- 2^31)
! --------------------------------------------------------
luxlev=1
inseed=1
kount=0
mkount=0
do i = 1, 25
isdext(i) = 0
end do
write(6,150) inseed
150 FORMAT(/,’ inseed=’,I12,5X,
* ’ (seed for generating unique sequences of Ranlux)’)
! =============
call rluxinit
! =============
! Initialize the Ranlux random-number generator
!-----------------------------------------------------------------------
! Step 4: Determination-of-incident-particle-parameters
!-----------------------------------------------------------------------
159