!####################################################################### 
 program simple
!####################################################################### 
! a frame of EGS5 CG calculation
! based on ucnaicgv ver 28Jul2012/1430
!####################################################################### 
 implicit none
 include 'include/egs5_h.f' ! Main EGS "header" file
 include 'include/egs5_bounds.f'
 include 'include/egs5_brempr.f'
 include 'include/egs5_edge.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'
 include 'include/egs5_useful.f'
 include 'include/egs5_usersc.f'
 include 'include/egs5_userxt.f'
 include 'include/randomm.f'
 include 'auxcommons/aux_h.f' ! Auxiliary-code "header" file
 include 'auxcommons/edata.f'
 include 'auxcommons/etaly1.f' ! Auxiliary-code COMMONs
 include 'auxcommons/instuf.f'
 include 'auxcommons/lines.f'
 include 'auxcommons/nfac.f'
 include 'auxcommons/watch.f'
 include 'auxcommons/geom_common.f' ! geom-common file
 common/totals/depe,deltae,spec(3,50),maxpict ! Variables to score
 real*8 depe,deltae,spec
 integer maxpict
 real*8 totke
 real*8 rnnow,etot
 real*8 availke,wtin,wtsum ! Local variables
 integer i,idin,ifti,ifto, nlist,j,k,n
 character*24 medarr(MXMED)
:

ELEM
 &INP IRAYL=1 /END
AL AL 
AL
ENER
 &INP AE=0.521,AP=0.010,UE=2.511,UP=2.0 /END
PWLF
 &INP /END
DECK
 &INP /END

 RCC 1 0 0 0 0 0 5 10
 RCC 2 0 0 -10 0 0 20 15
 END
 Z1 +1 
 Z2 +2 -1 
 Z3 -2
 END
 1 0 0

set xlabel 'E (MeV)'
set ylabel 'Events'
set log y
set style fill solid
filter(x,y)=floor(x/y)*y
plot 'fort.93' u (filter(1,0ドル.01)):(1) smooth frequency with boxes lt 3 title ''

 6.62000E-01
 1.86674E-01
 6.62000E-01
 6.62000E-01
 6.62000E-01
 6.62000E-01
 6.62000E-01
 6.62000E-01
 6.62000E-01
 1.08232E-01
 6.62000E-01
 6.62000E-01
 1.53091E-01
 6.62000E-01
 6.62000E-01
 6.62000E-01
 6.62000E-01
 6.62000E-01
 6.62000E-01
 1.68341E-01
 4.50267E-01
 6.62000E-01
 3.97381E-01
 2.07258E-02
 :