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

Import Geant4 9.5.0 source tree

Browse Source
This commit is contained in:
Gabriele Cosmo
2016-06-09 16:46:55 +02:00
parent 89a9605df1
commit b1eb5424d2
10957 changed files with 888481 additions and 160139 deletions
Download Patch File Download Diff File Expand all files Collapse all files
source/analysis/include/tools/hbook/hisid.f
+10
View File
@@ -0,0 +1,10 @@
INTEGER FUNCTION HISID(ID)
IMPLICIT NONE
INTEGER ID
LOGICAL HEXIST
IF(HEXIST(ID).EQV..TRUE.) THEN
HISID = 1
ELSE
HISID = 0
ENDIF
END