cg Version

More documents

Recommendations

Info

if(ie .gt. 50) ie = 50end ifspec(ntype,ie) = spec(ntype,ie) + wt(np)end ifend if! ----------------------------------------------------------------! Print out stack information (for limited number cases and lines)! ----------------------------------------------------------------if (ncount .le. nwrite .and. ilines .le. nlines) thenilines = ilines + 1write(6,100) e(np),x(np),y(np),z(np),u(np),v(np),w(np),* iql,irl,iarg100 FORMAT(7G15.7,3I5)end if! ------------------------------------! Output particle information for plot! ------------------------------------if (ncount.le.maxpict) thencall plotxyz(iarg,np,iq(np),x(np),y(np),z(np),e(np),ir(np),* wt(np),time(np))end ifreturnend4.11 Subroutine howfarCG howfar howfar howfar howfar (idisc=1) 5 ucnai.f ucnaicgv.f cg howfar ucnai.f ucnaicgv.f ucnai.f 1.6 [2]15
6 6.1 NaI 1. Cs-137 (0.662MeV) 2. Co-60 1.173MeV 1.333MeV 3. 1.253MeV (Z-) 4. 1.253MeV 2 6.2 Ge Ge NaI 1.253MeV 6.3 20 1 1.253MeV 3 3 5mm AlAl 5cm W (33.97eV/pair) 1 (Coulomb/source)1:602 10 ;19 C/e 16
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: sigph=dsqrt((ph2s(ie)-avph*avph)/nc
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 31 and 32: EGS5 sample user code (ucnaicgv.f)R
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?