cg Version

!-----------------------------------------------------------------------implicit none! ------------! EGS5 COMMONs! ------------include 'include/egs5_h.f'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_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'! ----------------------! Auxiliary-code COMMONs! ----------------------include 'auxcommons/aux_h.f'include 'auxcommons/edata.f'include 'auxcommons/etaly1.f'include 'auxcommons/instuf.f'include 'auxcommons/lines.f'include 'auxcommons/nfac.f'include 'auxcommons/watch.f'! Main EGS "header" file! Auxiliary-code "header" file! ------------------! cg related COMMONs! ------------------include 'auxcommons/geom_common.f' ! geom-common fileinteger irinncommon/totals/* depe,deltae,spec(3,50),maxpictreal*8 depe,deltae,specinteger maxpict! Variables to score!**** real*8 ! Argumentsreal*8 totkereal*8 rnnow,etotreal*8 esumtreal*8! Local variables* availke,avpe,avph,avspe,avspg,avspp,avte,desci2,pefs,pef2s,* rr0,sigpe,sigte,sigph,sigspg,sigspe,sigspp,tefs,tef2s,wtin,wtsum,* xi0,yi0,zi0real*8* phs(50),ph2s(50),specs(3,50),spec2s(3,50)real* elow,eup,rdet,rtcov,rtgap,tcov,tdet,tgapreal* tarray(2),tt,tt0,tt1,cputime,etimeinteger* i,icases,idin,ie,ifti,ifto,ii,iiz,imed,ireg,isam,* izn,nlist,j,k,n,ner,ntypecharacter*24 medarr(MXMED)! Local variables! ----------! Open files! ----------!----------------------------------------------------------------! Units 7-26 are used in pegs and closed. It is better not! to use as output file. If they are used, they must be opened! after getcg etc. Unit for pict must be 39.!----------------------------------------------------------------open(6,FILE='egs5job.out',STATUS='unknown')open(4,FILE='egs5job.inp',STATUS='old')51