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

Import Geant4 6.2.0 source tree

Browse Source
This commit is contained in:
Gabriele Cosmo
2016-06-09 10:56:29 +02:00
parent 1d812b78b1
commit e083ffb441
1415 changed files with 111223 additions and 21207 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/extended/electromagnetic/TestEm3/geant3/src/uglast.F
+14 -7
View File
@@ -3,14 +3,14 @@
*
* Termination routine to print histograms and statistics
*
#include "geant321/gcflag.inc"
#include "geant321/gcflag.inc"
#include "geant321/gctrak.inc"
#include "calor.inc"
#include "celoss.inc"
#include "histo.inc"
*
CHARACTER*20 matnam
CHARACTER*4 unitm,unitr
CHARACTER*4 unitdm,unitdr,unitlm,unitlr
*
* *** mean energy deposit and track length
PRINT 749
@@ -23,10 +23,15 @@
rmsEdep = fnorm*sqrt(abs(IEVENT*su2Edep(k)-sumEdep(k)**2))
aveTrck = fnorm*sumTrck(k)
rmsTrck = fnorm*sqrt(abs(IEVENT*su2Trck(k)-sumTrck(k)**2))
aveElea = fnorm*sumElea(k)
rmsElea = fnorm*sqrt(abs(IEVENT*su2Elea(k)-sumElea(k)**2))
*
CALL GEVKEV (aveEdep,Emean,unitm)
CALL GEVKEV (rmsEdep,Erms ,unitr)
PRINT 752,k-1,matnam,Emean,unitm,Erms,unitr,aveTrck,rmsTrck
CALL GEVKEV (aveEdep,Edmean,unitdm)
CALL GEVKEV (rmsEdep,Edrms ,unitdr)
CALL GEVKEV (aveElea,Elmean,unitlm)
CALL GEVKEV (rmsElea,Elrms ,unitlr)
PRINT 752,k-1,matnam,Edmean,unitdm,Edrms,unitdr,aveTrck,rmsTrck
+ ,Elmean,unitlm,Elrms,unitlr
enddo
PRINT 749
*
@@ -44,7 +49,9 @@
* *** formats
749 FORMAT(/ ,60(1H-),/)
750 FORMAT(1X,'Nb of events:',I6)
751 FORMAT(1X,'AbsNo Material',5X,'Energy deposit',14X,'Trck length')
752 FORMAT(I5,3X,A10,F8.3,A4,' +- ',F6.2,A4,F9.3,' cm +- ',F6.2,' cm')
751 FORMAT(1X,'AbsNo Material',5X,'Energy deposit',14X,'Trck length',
+ 12X,'E leakage by secondaries')
752 FORMAT(I5,3X,A10,F8.3,A4,' +- ',F6.2,A4,F9.3,' cm +- ',F6.2,' cm',
+ F9.3,A4,' +- ',F6.2,A4)
*
END