lars/geant4
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import Geant4 3.1.0 source tree

Browse Source
This commit is contained in:
Gabriele Cosmo
2016-06-08 16:03:00 +02:00
parent cfcb558cfe
commit 137e303ecc
2843 changed files with 37082 additions and 38426 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/extended/electromagnetic/TestEm2/geant3/src/gustep.F
+11 -4
View File
@@ -31,11 +31,13 @@
DEDL(NL) = DEDL(NL) + DESTEP
ENDIF
*
* *** track length
* *** track length and total energy deposit
IF (CHARGE.NE.0.) THEN
STRCH = STRCH + STEP
STRCH = STRCH + STEP
EDEPCH = EDEPCH + DESTEP
ELSE
STRNE = STRNE + STEP
STRNE = STRNE + STEP
EDEPNE = EDEPNE + DESTEP
ENDIF
*
* *** Particle's flux
@@ -46,5 +48,10 @@
IF (IPART.LE.3) FNPAT(NPL,IPART) = FNPAT(NPL,IPART) + 1.
NLOLD = NL
ENDIF
*
*
* *** energy of particles contributing to edep
IF ((DESTEP).GT.0.)THEN
elog = log10((gekin+destep)/pkine(3))
call hfill (21,elog,0.,destep)
ENDIF
END
examples/extended/electromagnetic/TestEm2/geant3/src/uginit.F
+1 -1
View File
@@ -29,7 +29,7 @@
* *** achieve initialization
NLTOT = MIN(NLTOT,NBIN)
NRTOT = MIN(NRTOT,NBIN)
CALL VZERO(SEL1,13*NBIN+6)
CALL VZERO(SEL1,13*NBIN+8)
*
CALL GZINIT
CALL GPART
examples/extended/electromagnetic/TestEm2/geant3/src/uglast.F
+26 -5
View File
@@ -10,9 +10,9 @@
#include "celoss.inc"
*
DIMENSION XSEL1(NBIN),XSEL1C(NBIN),XSER1(NBIN),XSER1C(NBIN),
+ XSEL2(NBIN),XSEL2C(NBIN),XSER2(NBIN),XSER2C(NBIN)
*
+ XSEL2(NBIN),XSEL2C(NBIN),XSER2(NBIN),XSER2C(NBIN)
DIMENSION EDIST(100),EDISTC(100)
*
CALL GLAST
*
@@ -21,7 +21,11 @@
*
* *** Normalize and print energy distribution
XEVENT=IEVENT
CNORM = 100./(XEVENT*PKINE(3))
CNORM = 100./(XEVENT*PKINE(3))
*
* *** mean total energy deposit by charged and by neutral
EDEPCH = CNORM*EDEPCH
EDEPNE = CNORM*EDEPNE
*
* *** longitudinal profile
DO 2 I = 1,NLTOT
@@ -67,9 +71,24 @@
PRINT 754,B0,B1,XSER1(I),XSER2(I),B1,XSER1C(I),XSER2C(I)
16 CONTINUE
*
* *** normalize histo of energy ditribution of contributing particles
* and compute cumulative distribution
SUM = HSUM (21)
CALL HUNPAK(21,EDIST,'HIST',1)
EDIST( 1) = EDIST(1)*100/SUM
EDISTC(1) = EDIST(1)
DO 17 I=2,100
EDIST (I) = EDIST (I)*100/SUM
EDISTC(I) = EDISTC(I-1) + EDIST(I)
17 CONTINUE
CALL HPAK (21,EDIST)
CALL HPAK (22,EDISTC)
*
* *** print summary
PRINT 770
PRINT 771,XSEL1C(NLTOT),XSEL2C(NLTOT)
PRINT 774,EDEPCH
PRINT 775,EDEPNE
PRINT 772,XTRCH1,XTRCH2
PRINT 773,XTRNE1,XTRNE2
*
@@ -88,7 +107,9 @@
770 FORMAT(///,30X,'SUMMARY',/)
771 FORMAT( 25X,'energy deposit : ',F7.2,' % E0 +- ',F7.2,' % E0')
772 FORMAT( 25X,'charged traklen: ',F7.2,' radl +- ',F7.2,' radl')
773 FORMAT( 25X,'neutral traklen: ',F7.2,' radl +- ',F7.2,' radl')
773 FORMAT( 25X,'neutral traklen: ',F7.2,' radl +- ',F7.2,' radl')
774 FORMAT( 25X,'edep by charged: ',F7.2,' % E0')
775 FORMAT( 25X,'edep by neutral: ',F7.2,' % E0')
*
END
examples/extended/electromagnetic/TestEm2/geant3/src/uhinit.F
+11 -1
View File
@@ -56,6 +56,16 @@
CALL HBPROF(11,'cumul radial energy dep. (in percent of E inc)'
*, NRTOT, RMIN,RMAX, 0., 100.,' ')
CALL HBOOK1(12,'resolution: cumul R energy dep. (% of E inc)'
*, NRTOT, RMIN,RMAX, 0.0)
*, NRTOT, RMIN,RMAX, 0.0)
*
* *** Origin of the deposited energy
tminlog = -6.
tmaxlog = 0.
CALL HBOOK1(21,'edep (normalized 100 percent) versus log(ekin/e0)'
*, 100, tminlog, tmaxlog, 0.0)
CALL HBOOK1(22,'cumul edep (100 percent) versus log(ekin/e0)'
*, 100, tminlog, tmaxlog, 0.0)
*
END