Import Geant4 0.0.0 source tree

2016-06-01 15:25:35 +02:00
parent 54d6b71f95
commit b97f8d0df7
3237 changed files with 807095 additions and 0 deletions
@@ -0,0 +1,42 @@
+// This code implementation is the intellectual property of
+// the RD44 GEANT4 collaboration.
+//
+// By copying, distributing or modifying the Program (or any work
+// based on the Program) you indicate your acceptance of this statement,
+// and all its terms.
+//
+// $Id: G4gsdk.cc,v 2.0 1998/07/02 16:16:49 gunter Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+#include "G4Decay.hh"
+#include "G3toG4.hh"
+#include "G3PartTable.hh"
+
+void PG4gsdk(RWCString tokens[])
+{
+    // fill the parameter containers
+    G3fillParams(tokens,PTgsdk);
+
+    // interpret the parameters
+    G4int ipart = Ipar[0];
+    G4int inum = Ipar[1];
+    G4int *mode = &Ipar[3];
+    G4double *bratio = Rpar;
+
+    G4gsdk(ipart,bratio,mode);
+}
+
+void G4gsdk(G4int ipart, G4double bratio[], G4int mode[])
+{
+    // create decay object for the particle
+    G4Decay *decay = new G4Decay();
+    // add decay modes
+    for (G4int i=0; i<6; i++) {
+        if (mode[i] != 0) {
+// $$$            decay->AddMode(mode[i],bratio[i]);
+        }
+    }
+    // associate decay object with particle ipart
+    G4ParticleDefinition *part = G3Part.get(ipart);
+// $$$    part->SetDecay(decay);
+}