//
// ********************************************************************
// * 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.          *
// ********************************************************************
//
// Rich advanced example for Geant4
// AerogelRefData.cc for Rich of LHCb
// History:
// Created: Sajan Easo (Sajan.Easo@cern.ch)
// Revision and changes: Patricia Mendez (Patricia.Mendez@cern.ch)
/////////////////////////////////////////////////////////////////////////////
#include <iostream>
#include <fstream>
#include "AerogelRefData.hh"
#include "RichTbGeometryParameters.hh"
#include "RichTbMaterialParameters.hh" 
AerogelRefData::AerogelRefData(G4String AgelRefIndFile)
   :NumberOfRefIndBins(NumAerogelRefIndexPhotonEnergyBins),
    StdAerogelRefphotE(std::vector<G4double>(NumAerogelRefIndexPhotonEnergyBins)),
    StdAerogelRefIndexValue(std::vector<G4double>(NumAerogelRefIndexPhotonEnergyBins)),
    AerogelRefIndShift(std::vector<G4double>( MaxNumberOfAerogelTypes)),
 AerogelWavelengthRef(std::vector<G4double>( MaxNumberOfAerogelTypes)) {
  
  AerogelRefIndexFileName=AgelRefIndFile;

  StdAerogelNominalRefractiveIndex= StdAerogelNominalRefIndex;

  ReadStdAerogelRefIndex();
  G4double AerogelRefEnergy,AerogelReferenceRefInd;
  for(G4int ityp=0; ityp< MaxNumberOfAerogelTypes; ityp++ ){
  AerogelWavelengthRef[ityp]=AerogelReferenceRefIndWavelength[ityp];
  AerogelRefEnergy= 
          (PhotMomWaveConv/(AerogelWavelengthRef[ityp]/nanometer))*eV;

  AerogelReferenceRefInd = GetStdAgelRefIndexE(AerogelRefEnergy);
  AerogelRefIndShift[ityp] =  AerogelReferenceRefInd -
    StdAerogelNominalRefractiveIndex ;
  }

}
G4double AerogelRefData::GetStdAgelRefIndexE(G4double  StdAgelRefEnergy) {

  G4double refint= StdAerogelNominalRefractiveIndex;
  if(StdAgelRefEnergy <= StdAerogelRefphotE[0] ) {
    refint= StdAerogelRefphotE[0];
    G4cout<<"Ref index reference value outside bounds "<<G4endl;

  } 
  if(StdAgelRefEnergy > StdAerogelRefphotE[ NumberOfRefIndBins-1 ] ) {
    refint= StdAerogelRefphotE[ NumberOfRefIndBins-1 ];
    G4cout<<"Ref index reference value outside bounds "<<G4endl;

  } 

  for(G4int iabin=0; iabin < NumberOfRefIndBins-1 ; iabin++ ){

    G4double E1= StdAerogelRefphotE[iabin];
    G4double E2= StdAerogelRefphotE[iabin+1];

    if(StdAgelRefEnergy >  E1 && StdAgelRefEnergy <=  E2 && E1 != E2 ){
       
      //Now interpolate
      G4double r1= StdAerogelRefIndexValue[iabin];
      G4double r2= StdAerogelRefIndexValue[iabin+1];
      G4double slp=(r2-r1)/(E2-E1);
      G4double ain= r1-slp*E1;
      refint= slp*StdAgelRefEnergy + ain;
      break; 
    }
   
  } 

  return refint;

}
void AerogelRefData::ReadStdAerogelRefIndex() {
 
      const char* StdAerogelRefIndFile= AerogelRefIndexFileName.c_str();
      if( StdAerogelRefIndFile == 0 ){ 
	G4cout<<" Aerogel RefIndex Input file missing" 
              << " Please provide the correct file name "
              <<G4endl; 
      }else { 

      G4cout<<"Now reading Std Aerogel Ref Index from "
	    <<StdAerogelRefIndFile<<G4endl; 
      std::ifstream finpga(StdAerogelRefIndFile);
      G4double ephot,rind;
      for (G4int fbin=0; fbin< NumberOfRefIndBins  ; fbin++){
      finpga>>ephot;
      finpga>>rind;
      StdAerogelRefphotE[fbin]=ephot*eV;
      StdAerogelRefIndexValue[fbin]=rind;
      //for test avoid the variation in ref index. SE 18-10-01
      // StdAerogelRefIndexValue[fbin]= StdAerogelNominalRefractiveIndex;

      }
      
      }
}

std::vector<G4double> AerogelRefData::GetCurAerogelRefIndValueVect (G4int AerogelTnum ) {
  // no  test for tdr rich. now put back to TB conditions.
  std::vector<G4double>CAgel(NumberOfRefIndBins);
  // AerogelType Ctype;
  G4double CRn = GetRefnominal( AerogelTnum );
  for (G4int ib=0; ib < NumberOfRefIndBins; ib++ ){

        CAgel[ib]= StdAerogelRefIndexValue[ib] 
      - StdAerogelNominalRefractiveIndex-AerogelRefIndShift[ AerogelTnum] + CRn;

  }
  return CAgel;
}

G4double AerogelRefData:: GetCurAerogelRefIndValue( G4int rbinw , G4int AerogelTnum ){
  // no test for tdr. now in TB conditions.
 G4double crn=  GetRefnominal( AerogelTnum );
  return StdAerogelRefIndexValue[rbinw]
       - StdAerogelNominalRefractiveIndex-AerogelRefIndShift[ AerogelTnum] +crn;
  //   - StdAerogelNominalRefractiveIndex-AerogelRefIndShift[ AerogelTnum] +crn;
  // return StdAerogelRefIndexValue[rbinw]-1.03269+crn;
}

G4double AerogelRefData::GetRefnominal(G4int AgelTnum ) {

  G4double CRnominal = StdAerogelNominalRefractiveIndex;
  if(AgelTnum == 0 ){
  
    CRnominal= AerogelTypeANominalRefIndex;
  }else if (AgelTnum == 1 ) {
   
    CRnominal= AerogelTypeBNominalRefIndex;
  }else if  (AgelTnum == 2 ) {
 
    CRnominal= AerogelTypeCNominalRefIndex;
  }else if  (AgelTnum == 3 ) {
  
    CRnominal= AerogelTypeDNominalRefIndex;
  }else if  (AgelTnum == 4 ) {

    CRnominal= AerogelTypeENominalRefIndex;

  } else {G4cout<<"Unknown Aerogel Type "<<G4endl; }

  return CRnominal;
}

AerogelType AerogelRefData::GetAerogelType(G4int AgelTnum ) {
  AerogelType Ctype=AerogelTypeA;

  if(AgelTnum == 0 ){
    Ctype=AerogelTypeA;

  }else if (AgelTnum == 1 ) {
    Ctype=AerogelTypeB;

  }else if  (AgelTnum == 2 ) {
    Ctype=AerogelTypeC;

  }else if  (AgelTnum == 3 ) {
    Ctype=AerogelTypeD;

  }else if  (AgelTnum == 4 ) {
    Ctype=AerogelTypeE;


  } else {G4cout<<"Unknown Aerogel Type "<<G4endl; }

  return Ctype;
}

AerogelRefData::~AerogelRefData(){ ; }