Import Geant4 5.0.0 source tree

source/geometry/magneticfield/src/G4MagErrorStepper.cc

@@ -21,8 +21,8 @@
 // ********************************************************************
 //
 //
-// $Id: G4MagErrorStepper.cc,v 1.9 2001/07/11 09:59:12 gunter Exp $
-// GEANT4 tag $Name: geant4-04-01 $
+// $Id: G4MagErrorStepper.cc,v 1.11 2002/11/20 18:14:00 japost Exp $
+// GEANT4 tag $Name: geant4-05-00 $
 //
 #include "G4MagErrorStepper.hh"
 #include "G4ThreeVector.hh"
@@ -44,6 +44,7 @@ G4MagErrorStepper::Stepper( const G4double yInput[],
 		                  G4double yError []      )
 {  
    const G4int nvar = this->GetNumberOfVariables() ;
+   const G4int maxvar= GetNumberOfStateVariables();
 
    G4int i;
    // correction for Richardson Extrapolation.
@@ -52,6 +53,12 @@ G4MagErrorStepper::Stepper( const G4double yInput[],
    //  Saving yInput because yInput and yOutput can be aliases for same array
 
    for(i=0;i<nvar;i++) yInitial[i]=yInput[i];
+   yInitial[7]= yInput[7];    // Copy the time in case ... even if not really needed
+   yMiddle[7] = yInput[7];  // Copy the time from initial value 
+   yOneStep[7] = yInput[7]; // As it contributes to final value of yOutput ?
+   // yOutput[7] = yInput[7];  // -> dumb stepper does it too for RK4
+   for(i=nvar;i<maxvar;i++) yOutput[i]=yInput[i];
+   // yError[7] = 0.0;         
 
    G4double halfStep = hstep * 0.5;