// 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: G4LPhysicsFreeVector.icc,v 1.2 1999/11/23 15:00:03 gcosmo Exp $
// GEANT4 tag $Name: geant4-01-00 $
//
// 
// ------------------------------------------------------------------
//
// Class G4LPhysicsFreeVector -- source file
//
// Derived from base class G4PhysicsVector
// This is a free vector for Low Energy Physics cross section data.
// The class name includes an "L" to distinguish it from other groups
// who may wish to implement a free vector in a different way.
// A subdivision method is used to find the energy|momentum bin.
//
// F.W. Jones, TRIUMF, 04-JUN-96
// --------------------------------------------------------------------------

// G4PhysicsVector has PutValue() but it is inconvenient.
// Want to simultaneously fill the bin and data vectors.

inline
void G4LPhysicsFreeVector::PutValues(size_t binNumber, G4double binValue, G4double dataValue)
{
   binVector(binNumber) = binValue;
   dataVector(binNumber) = dataValue;
}

// Note that theEnergy could be energy, momentum, or whatever.
// Note: GetValue() is no longer virtual in the parent class
// G4PhysicsVector, so at present the following function cannot
// be called through a base class pointer.

inline 
G4double G4LPhysicsFreeVector::GetValue(G4double theEnergy, G4bool& isOutRange)
{
   G4double returnValue;

   //   verboseLevel = 2;

   if (theEnergy < edgeMin) {
      isOutRange = true;

      if (verboseLevel > 1) G4cout << "G4LPhysicsFreeVector::GetValue " <<
         theEnergy << " " << dataVector(0) << " " << isOutRange << G4endl;

      returnValue = dataVector(0);
   } 
   else if (theEnergy > edgeMax) {
      isOutRange = true;

      if (verboseLevel > 1) G4cout << "G4LPhysicsFreeVector::GetValue " <<
         theEnergy << " " << dataVector(numberOfBin - 1) << " " << 
         isOutRange << G4endl;

      returnValue = dataVector(numberOfBin - 1);
   } 
   else {
     isOutRange = false;

     G4int n = FindBinLocation(theEnergy);

     G4double dsde = (dataVector(n + 1) - dataVector(n))/
                     (binVector(n + 1) - binVector(n));

     if (verboseLevel > 1) G4cout << "G4LPhysicsFreeVector::GetValue " << 
        theEnergy << " " << dataVector(n) + (theEnergy - binVector(n))*dsde <<
        " " << isOutRange << G4endl;

     returnValue = dataVector(n) + (theEnergy - binVector(n))*dsde;
   }
   return returnValue;
}                                                                  

inline
void G4LPhysicsFreeVector::SetVerboseLevel(G4int value)
{
   verboseLevel = value;
}

inline
G4int G4LPhysicsFreeVector::GetVerboseLevel(G4int)
{
   return verboseLevel;
}

inline
G4double G4LPhysicsFreeVector::GetLastEnergy()
{
   return lastEnergy;
}

inline
size_t G4LPhysicsFreeVector::GetLastBin()
{
   return lastBin;
}

inline 
size_t G4LPhysicsFreeVector::FindBinLocation(G4double theEnergy) const
{
   G4int n1 = 0;
   G4int n2 = numberOfBin/2;
   G4int n3 = numberOfBin - 1;
   while (n1 != n3 - 1) {
      if (theEnergy > binVector(n2))
         n1 = n2;
      else
         n3 = n2;
      n2 = n1 + (n3 - n1 + 1)/2;
   }
   if (verboseLevel > 1) G4cout << 
      "G4LPhysicsFreeVector::FindBinLocation:  returning " << n1 << G4endl;
   return (size_t)n1;
}