Gabriele Cosmo
26 lines
652 B
Plaintext
26 lines
652 B
Plaintext
// 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: G4MagHelicalStepper.icc,v 2.2 1998/11/13 14:27:10 japost Exp $
|
|
// GEANT4 tag $Name: geant4-00 $
|
|
//
|
|
|
|
// linear Step in regions of no field
|
|
|
|
inline void
|
|
G4MagHelicalStepper::LinearStep( const G4double yIn[],
|
|
const G4double h,
|
|
G4double yLinear[])
|
|
{
|
|
for( G4int i = 0; i < 3; i++ ) {
|
|
yLinear[i] = yIn[i] + h * yIn[i+3];
|
|
yLinear[i+3] = yIn[i+3];
|
|
}
|
|
}
|
|
|
|
|