Import Geant4 0.1.0 source tree

2016-06-08 15:09:25 +02:00
parent b97f8d0df7
commit aaa409b6ee
2922 changed files with 55107 additions and 81674 deletions
@@ -0,0 +1,39 @@
+// 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: boxtoincpp.cc,v 1.1 1999/01/08 16:31:35 gunter Exp $
+// GEANT4 tag $Name: geant4-00-01 $
+//
+
+#include "G4ios.hh"
+#include "G4Box.hh"
+#include "G4ThreeVector.hh"
+
+const G4int norept=1000000;
+
+void main()
+{
+    G4int i;
+    G4double snxt,total=0;
+    G4ThreeVector endpt,startpt(-500,0,0),dir(1,0,0);
+
+    G4Box testbox(100,200,400);
+
+    for (i=1;i<=norept;i++)
+        {
+            snxt=testbox.DistanceToIn(startpt,dir);
+            endpt=G4ThreeVector(startpt.x()+snxt*dir.x(),
+                                startpt.y()+snxt*dir.y(),
+                                startpt.z()+snxt*dir.z());
+            total=total+endpt.x()+endpt.y()+endpt.z();
+        }    
+    if ((!total)&&(!endpt.x())&&(!endpt.y())&&(!endpt.z()))
+        {
+            G4cout << "total=0";
+        }
+    return;
+}