Import Geant4 8.1.0 source tree

2016-06-09 14:44:26 +02:00
parent 8a51e0bc40
commit 216a75eeb1
8717 changed files with 360418 additions and 141343 deletions
@@ -0,0 +1,11 @@
+
+      SUBROUTINE FFUSER(ikey)
+*
+*     The routine is called when a *key card is read
+*
+      CHARACTER*4  keyw
+*
+      call UHTOC(ikey,4,keyw,4)
+      if (keyw.eq.'HIST') call uhinit		   
+*                                                                               
+      END