cg Version
cg Version
cg Version
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
ekein=1.253ekein=1.333{ ! ----------------------! Select incident energy! ----------------------call randomset(rnnow)if(rnnow.le.0.5) thenekein=1.173elseekein=1.333end if{ ! Incident particle kinetic energy! Incident particle kinetic energywrite(6,340) ekein340 FORMAT(' Results for ',G15.5,'MeV photon'/)write(6,340)340 FORMAT(' Results for Co-60 gamma-ray (1.173 and 1.333 MeV)'/) ucnai<strong>cg</strong>v2.f egs5run { Linux Cygwin ucnai<strong>cg</strong>v2 , 4 25 "Does this user code read from the terminal?" 1 { DOS egs5run ucnai<strong>cg</strong>v2 egs5job.out 1.253MeV 2 3. cp ucnai<strong>cg</strong>v.f ucnai<strong>cg</strong>v3.f cp ucnai<strong>cg</strong>v.data ucnai<strong>cg</strong>v3.data cp ucnai<strong>cg</strong>v.inp ucnai<strong>cg</strong>v3.inp ucnai<strong>cg</strong>v3.f { 2 ! ----------------------! Select incident angle! ----------------------! ----------------------! Select incident angle! ----------------------275 call randomset(rnnow)zi0=rnnowcall randomset(rnnow)xi0=2.0*rnnow-1.0call randomset(rnnow)yi0=2.0*rnnow-1.0rr0=dsqrt(xi0*xi0+yi0*yi0+zi0*zi0)18