THE EGS5 CODE SYSTEM

total=0.0do i=1,3total=total+escore(i)end dowrite(6,210) (escore(i)*anorm,i=1,3),total*anorm210 FORMAT(/,/,* ’ Fraction of energy reflected from plate=’,T50,F10.1,’%’*/ ’ Fraction of energy deposited in plate=’,T50,F10.1,’%’/*’ Fraction of energy transmitted through plate=’,T50,F10.1,’%’/*T50,11(’-’)/’ Total fraction of energy accounted for=’, T50,*F10.1,’%’/)end do! do four times throughstopend!-------------------------last line of main code------------------------!-------------------------------ausgab.f--------------------------------!-----------------------------------------------------------------------!23456789|123456789|123456789|123456789|123456789|123456789|123456789|12! ----------------------------------------------------------------------! Required subroutine for use with the EGS5 Code System! ----------------------------------------------------------------------!***********************************************************************!! In this AUSGAB routine for TUTOR4, we score the energy deposited! in the various regions and count transmitted and reflected! electrons.!! For IARG=0, an electron or photon step is about to occur and we! score the energy deposited, if any. Note that only electrons! deposit energy during a step, and due to our geometry, electrons! only take steps in region 2 - however there is no need to check.! For IARG=1,2 and 4, particles have been discarded for falling! below various energy cutoffs and all their energy is deposited! locally (in fact EDEP = particles kinetic energy).! For IARG=3, we are discarding the particle since it is in! region 1 or 3, so score its energy, and if it is an electron,! score it’s region.!!***********************************************************************subroutine ausgab(iarg)implicit noneinclude ’include/egs5_h.f’include ’include/egs5_epcont.f’include ’include/egs5_stack.f’! Main EGS "header" file! COMMONs required by EGS5 code162