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,64 @@
+// 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: G3NegVolPars.cc,v 2.1 1998/07/12 02:54:19 urbi Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+#include "globals.hh"
+#include "G4VSolid.hh"
+#include "G3toG4.hh"
+#include "G3VolTable.hh"
+#include <math.h>
+
+G4bool G3CalcParamsFn(G4double* Rpar, G4int npar, G4double* Rparm,
+                                  G4String shape, G4String shapem);
+
+// pars in case of gsposp are those passed to gsposp; for other cases,
+// they come from the logical volume
+G4bool G3NegVolPars(G4double pars[], G4int *nparpt,
+                       G4String name, G4String moth,
+                       char routine[])
+{
+    G4bool NegPresent = FALSE;
+    // Retrieve the parameters of the volume
+    G4double rangehi, rangelo;
+    EAxis axiscode;
+    G4String shape;
+    G4int nmed, npar;
+    G4double *Rpar;
+    G4VSolid *solid = NULL;
+    G4int iaxis = 1;
+    G3Vol.GetLVPars(&name, iaxis, &rangehi, &rangelo, &axiscode, &shape,
+                    &nmed, &Rpar, &npar, solid);
+    if (pars == NULL) {
+        pars = Rpar;
+        *nparpt = npar;
+    } else {
+        Rpar = pars;
+    }
+    // and of the mother
+    G4String shapem;
+    G4int nparm;
+    G4double *Rparm;
+    G4VSolid *solidm = NULL;
+    G3Vol.GetLVPars(&moth, 1, &rangehi, &rangelo, &axiscode, &shapem,
+                    &nmed, &Rparm, &nparm, solidm);
+
+    if (strcmp(routine,"GSPOS") == 0 || strcmp(routine,"GSVOLU") == 0) {
+        NegPresent = G3CalcParamsFn(Rpar,npar,Rparm,shape,shapem);
+    }
+    if (strcmp(routine,"GSDVN") == 0) {
+        // just set the flag. The parametrization function figures out
+        // what to do.
+        for (G4int i=0;i<npar;i++) {
+            if (Rpar[i] < 0) {
+                NegPresent = TRUE;
+            }
+        }
+    }
+    return NegPresent;
+}