Files
geant4/source/geometry/benchmarks/f77cppcomparison/boxtoincpp.cc
T
2016-06-08 15:34:16 +02:00

40 lines
1.0 KiB
C++

// This code implementation is the intellectual property of
// the 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.2 1999/12/15 14:49:46 gunter Exp $
// GEANT4 tag $Name: geant4-01-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;
}