Import Geant4 9.5.0 source tree

2016-06-09 16:46:55 +02:00
parent 89a9605df1
commit b1eb5424d2
10957 changed files with 888481 additions and 160139 deletions
@@ -0,0 +1,10 @@
+      INTEGER*4 FUNCTION SETPAWC()
+      INTEGER NPAWC
+      PARAMETER (NPAWC = 1000000)
+      INTEGER P
+      COMMON /PAWC/ P(NPAWC)
+      INTEGER IQUEST
+      COMMON/QUEST/IQUEST(100)
+      SETPAWC = NPAWC
+      RETURN
+      END