cg Version

More documents

Recommendations

Info

&INP IRAYL=1 /ENDALALALENER&INP AE=0.521,AP=0.010,UE=2.511,UP=2.0 /ENDPWLF&INP /ENDDECK&INP /END7. ucioncgv.f egs5run Linux Cygwin ucioncgv , 4 25 "Does this user code read from the terminal?" 1 DOS egs5run ucioncgv8. CGview egs5job.pic NaI 9. egs5job.out References P e (%) 0.0 T e (%) 0.73 0.3e-1 (MeV/) 0.15e-3 0.7e-5 (C/)0.69e-18 0.3e-19[1] T. Torii and T. Sugita, \Development of PRESTA-CG Incorprating Combinatorial Geometryin EGS4/PRESTA", JNC TN1410 2002-201, Japan Nuclear Cycle DevelopmentInstitute (2002).[2] T. Sugita, T. Torii, A. Takamura, \Incorporating Combinatorial Geometry to the EGS5Code and Its Speed-Up", Twelfth EGS User's Meeting in Japan, KEK Proc. 2005-10, 7-21,(KEK, Tsukuba, 9 - 11 Aug. 2005).25
EGS5 sample user code (ucnaicgv.f)Response calculation of NaI detector(cg Version)(English Parts)26
Page 1 and 2: KEK Internal 2011-5December 2011R/D
Page 3 and 4: Lecture Notes ofResponse calculatio
Page 5 and 6: 3 Details of user code 313.1 Main p
Page 7 and 8: 1 Combinatrial Geometry (CG)2 Combi
Page 9 and 10: ody 3 2 body + ; OR B23A1Figure 2
Page 11 and 12: Z4 +4Z5 +5 -3Z6 +6 -5END1 0 2 3 4 0
Page 13 and 14: end if! ==============call block_se
Page 15 and 16: ! pdf data for many sourcedeltae=0.
Page 17 and 18: ! ---------------------------------
Page 19 and 20: sigph=dsqrt((ph2s(ie)-avph*avph)/nc
Page 21 and 22: 6 6.1 NaI 1. Cs-137 (0.662MeV) 2.
Page 23 and 24: ekein=1.253ekein=1.333{ ! ---------
Page 25 and 26: ROuter vacuum (region 6)Air region
Page 27 and 28: nmed=2 medarr(1)='NAImedarr(2)='ALm
Page 29: ROuter vacuum (region 4)Air region
Page 33 and 34: operator, it means that the region
Page 35 and 36: 2 Outlines of sample user code uccg
Page 37 and 38: include 'auxcommons/edata.f'include
Page 39 and 40: The material assignment is read in
Page 41 and 42: ! Write batch numberwrite(39,fmt="(
Page 43 and 44: ! ---------------------------------
Page 45 and 46: a distance to the boundary of regio
Page 47 and 48: { Add sampling routines for source
Page 51 and 52: to* xi0,yi0,zi0,avab,depes,depe2s,s
Page 55 and 56: Appendix: Full listings of ucnaicgv
Page 57 and 58: open(39,FILE='egs5job.pic',STATUS='
Page 59 and 60: write(6,140)140 FORMAT(/,' HATCH-ca
Page 61 and 62: ilines = ilines + 1write(6,280) eto
Page 63 and 64: * 14X,' Positron')do ie=1,50elow=de
Page 65 and 66: ! ---------------------------------
Page 67 and 68: ccyidd=y_np+tval0*v_npzidd=z_np+tva

cg Version

Create successful ePaper yourself

Delete template?

Save as template?