//
// ********************************************************************
// * License and Disclaimer                                           *
// *                                                                  *
// * The  Geant4 software  is  copyright of the Copyright Holders  of *
// * the Geant4 Collaboration.  It is provided  under  the terms  and *
// * conditions of the Geant4 Software License,  included in the file *
// * LICENSE and available at  http://cern.ch/geant4/license .  These *
// * include a list of copyright holders.                             *
// *                                                                  *
// * Neither the authors of this software system, nor their employing *
// * institutes,nor the agencies providing financial support for this *
// * work  make  any representation or  warranty, express or implied, *
// * regarding  this  software system or assume any liability for its *
// * use.  Please see the license in the file  LICENSE  and URL above *
// * for the full disclaimer and the limitation of liability.         *
// *                                                                  *
// * This  code  implementation is the result of  the  scientific and *
// * technical work of the GEANT4 collaboration.                      *
// * By using,  copying,  modifying or  distributing the software (or *
// * any work based  on the software)  you  agree  to acknowledge its *
// * use  in  resulting  scientific  publications,  and indicate your *
// * acceptance of all terms of the Geant4 Software license.          *
// ********************************************************************
//
//
// $Id: G4LPhysicsFreeVector.icc,v 1.7 2006/06/29 19:02:10 gunter Exp $
// GEANT4 tag $Name: geant4-09-01-patch-02 $
//
// 
// ------------------------------------------------------------------
//
// 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 = 0.;

   //   verboseLevel = 2;

   if (theEnergy < edgeMin)
   {
      isOutRange = true;

#ifdef G4VERBOSE
      if (verboseLevel > 1)
      {
         G4cout << "G4LPhysicsFreeVector::GetValue " << theEnergy
                << " " << dataVector[0] << " " << isOutRange << G4endl;
      }
#endif
      returnValue = dataVector[0];
   } 
   else if (theEnergy > edgeMax)
   {
      isOutRange = true;

#ifdef G4VERBOSE
      if (verboseLevel > 1)
      {
         G4cout << "G4LPhysicsFreeVector::GetValue " << theEnergy
                << " " << dataVector[numberOfBin - 1]
                << " " << isOutRange << G4endl;
      }
#endif
      returnValue = dataVector[numberOfBin - 1];
   } 
   else
   {
     isOutRange = false;

     G4int n = FindBinLocation(theEnergy);

     G4double dsde = (dataVector[n + 1] - dataVector[n])/
                     (binVector[n + 1] - binVector[n]);
#ifdef G4VERBOSE
     if (verboseLevel > 1)
     {
        G4cout << "G4LPhysicsFreeVector::GetValue " << theEnergy
               << " " << dataVector[n] + (theEnergy - binVector[n])*dsde
               << " " << isOutRange << G4endl;
     }
#endif
     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;
   }
#ifdef G4VERBOSE
   if (verboseLevel > 1)
   {
     G4cout << "G4LPhysicsFreeVector::FindBinLocation:  returning "
            << n1 << G4endl;
   }
#endif
   return (size_t)n1;
}