Lecture Notes of Dose distribution calculation inside phantom with ...

!***********************************************************************!***************************** KEK, High Energy Accelerator Research *!***************************** Organization *!* u c x y z _ p h a n t o m* *!***************************** EGS5.0 USER CODE - 19 Nov 2012/1300 *!***********************************************************************!* This is a general User Code based on the cg geometry scheme. *!***********************************************************************! *! PROGRAMMERS: H. Hirayama *! Radiation Science Center *! Applied Science Laboratory *! KEK, High Energy Accelerator Research Organization *! 1-1, Oho, Tsukuba, Ibaraki, 305-0801 *! Japan *! *! E-mail: hideo.hirayama@kek.jp *! Telephone: +81-29-864-5489 *! Fax: +81-29-864-1993 *! Based on xyzdos.mor. *! *! 09AUG2004: CDF creation parts are corrected. H. Hirayama *!***********************************************************************!***********************************************************************! The ucxyz_phantom.f User Code requires a data-input file *! (e.g., ucxyz_phantom.data) that is read by subroutine getvoxel (with *! instructions in its header). The following shows the geometry for *! ucxyz_phantom.data. *! Trajectory data can be defined for PICT32 or CGview by setting *! npreci 1, 2 or 3, respectively. *! This user code corresponds to ucphantom_rec.mor for egs4. *! Use Ranlux random number generator. *!***********************************************************************! *! --------------------------------------------------- *! 3-Dimensional X-Y-Z Geometry (ucxyz_pahtom example) *! --------------------------------------------------- *! *! X (Y into page) *! ^ *! | *! | *! | Outer vacuum region *! +----+---+---+- -+---+----+ 15.0cm *! Vacuum | | | | | | | *! region +Air +H2O|Water (H2O) |Air | *! | | | | |H2O| | *! +----+---+---+- -+---+----+-- 0.5 *! | | | | | | | *! |Air |H2O|H2O| |H2O|Air | *! 1.253MeV photon| | | | | | | *! =========>+----+---+---+- -+---+----+-----> Z *! photons -5.0 0.0 1.0 19.0 20.0 *! 25.0 *! *! *!***********************************************************************!23456789|123456789|123456789|123456789|123456789|123456789|123456789|12!!-----------------------------------------------------------------------!------------------------------- main code -----------------------------!-----------------------------------------------------------------------!-----------------------------------------------------------------------! Step 1: Initialization!-----------------------------------------------------------------------implicit none! ------------! EGS5 COMMONs! ------------include 'include/egs5_h.f'include 'include/egs5_bounds.f'include 'include/egs5_edge.f'include 'include/egs5_elecin.f'include 'include/egs5_media.f'include 'include/egs5_misc.f'include 'include/egs5_stack.f'include 'include/egs5_thresh.f'include 'include/egs5_uphiot.f'! Main EGS "header" file49