THE EGS5 CODE SYSTEM

iraylr(2)=1
! Turn on rayleigh scattering in the slab
iedgfl(2)=1
! 1: Turn on fluorescence production in the slab
! 0: Turn off fluorescence production in the slab
! Note, above three parameters need to be set for all regions in which
! there is particle transport - just region 2 in this case
! --------------------------------------------------------
! Random number seeds. Must be defined before call hatch
! or defaults will be used. inseed (1- 2^31)
! --------------------------------------------------------
luxlev=1
inseed=1
write(6,120) inseed
120 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
!-----------------------------------------------------------------------
! Define initial variables for 100 keV beam of photons normally incident
! on the slab
iqin=0
! Incident photons
! 100 keV
ein=0.100
xin=0.0
yin=0.0
zin=0.0
! Incident at origin
uin=0.0
vin=0.0
win=1.0
! Moving along z axis
irin=2
! Starts in region 2, could be 1
wtin=1.0
! weight = 1 since no variance reduction used
!-----------------------------------------------------------------------
! Step 5: hatch-call
!-----------------------------------------------------------------------
! Maximum total energy of an electron for this problem must be
! defined before hatch call
emaxe = ein + RM
180