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,92 @@
+// 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: G4BuildGeom.cc,v 2.4 1998/09/18 08:56:00 lockman Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+//
+//    cltog4
+//
+//    Convert Geant3 call List to Geant4 init file
+//
+//    T. Wenaus  LLNL  6/95
+//
+// 1-27-97 Akbar Mokhtarani
+// change the name to BuildGeom for use with visualization
+//code. This routine is called by test18.cc in prototype/visualization/test
+// directory. It reads the call List 'g3calls.dat' produced by rztog4
+// code from geant 3 geometry and builds the g4 geometry
+// It returns a pointer to the logical volume of the mother of all worlds.
+
+#include "G4ios.hh"
+#include <fstream.h>
+#include "G4GeometryManager.hh"
+#include "G3toG4.hh"
+#include "G3VolTable.hh"
+#include "G4LogicalVolume.hh"
+#include "G4VisAttributes.hh"
+#include "globals.hh"
+extern ofstream ofile;
+
+void G3CLRead(G4String &, char *);
+void checkLogVol(G4LogicalVolume*, G4int);
+
+
+G4LogicalVolume* G4BuildGeom(G4String& inFile)
+{
+        // Read the call List and interpret to Generate Geant4 geometry
+
+    G4cout << "Reading the call List file " << inFile << "..." << endl;
+
+    G3CLRead(inFile, NULL);
+
+    G4cout << "Call List file read completed." << endl;
+
+        // Retrieve the top-level G3toG4 logical mother volume pointer
+
+    G4LogicalVolume* lG3toG4 = G3Vol.GetLV();
+
+        // make the top-level volume invisible
+    
+    lG3toG4 -> SetVisAttributes(G4VisAttributes::Invisible);
+    G4cout << "Top-level G3toG4 logical volume " << lG3toG4->GetName() << " "
+         << *(lG3toG4 -> GetVisAttributes()) << endl;
+        
+        // check the geometry here
+
+    G4int debug=0;
+        
+    if (debug){
+        G4int level=0;
+        checkLogVol(lG3toG4, level);
+    }
+        
+    return lG3toG4;
+}
+
+void checkLogVol(G4LogicalVolume* _lvol, G4int level)
+{
+    G4LogicalVolume* _ldvol;
+    level++;
+    
+    G4int ndau = _lvol -> GetNoDaughters();
+    
+    for (int idau=0; idau<ndau; idau++){
+        _ldvol = _lvol-> GetDaughter(idau) -> GetLogicalVolume();
+        
+        G4cout << "logical volume " << _lvol->GetName() << " at level " << level
+             << " contains daughter " << idau+1 << " name: "
+             << _ldvol -> GetName() << endl;
+        checkLogVol(_ldvol, level);
+    }
+    return;
+}
+
+
+
+
+