#include "PDF/GRV/GRVph_Fortran_Interface.H"
#include "ATOOLS/Org/Run_Parameter.H"
#include "MODEL/Main/Model_Base.H"
#include "ATOOLS/Org/Message.H"
#include <unistd.h> 

using namespace PDF;
using namespace ATOOLS;


extern "C" {
  void  grvglo_(float &,float &,float&,float&,float&,float&,float&,float&);
}

GRVph_Fortran_Interface::GRVph_Fortran_Interface(const ATOOLS::Flavour _bunch) 
{
  m_xmin=1.e-5;
  m_xmax=1.;
  m_q2min=.25;
  m_q2max=1.e6;
  m_nf=5;

  m_set="GRV";
  m_bunch = _bunch;
  m_d = m_u = m_s = m_c = m_b = m_g = 0.;
  
  for (int i=1;i<6;i++) {
    m_partons.insert(Flavour((kf_code)(i)));
    m_partons.insert(Flavour((kf_code)(i)).Bar());
  }
  m_partons.insert(Flavour(kf_gluon));
  m_partons.insert(Flavour(kf_jet));
  m_partons.insert(Flavour(kf_quark));
  m_partons.insert(Flavour(kf_quark).Bar());                               
}

PDF_Base * GRVph_Fortran_Interface::GetCopy()
{
  return new GRVph_Fortran_Interface(m_bunch);
}

void GRVph_Fortran_Interface::CalculateSpec(const double& _x,const double& _Q2)
{
  float x = _x/m_rescale, Q2 = _Q2;
  
  grvglo_(x,Q2,m_u,m_d,m_s,m_c,m_b,m_g);
}

double GRVph_Fortran_Interface::GetXPDF(const ATOOLS::Flavour& infl)
{
  double value = 0.;

  if (infl.Kfcode() == kf_gluon)  value = m_g;
  else if (infl.Kfcode() == kf_d) value = m_d;
  else if (infl.Kfcode() == kf_u) value = m_u;
  else if (infl.Kfcode() == kf_s) value = m_s;
  else if (infl.Kfcode() == kf_c) value = m_c;
  else if (infl.Kfcode() == kf_b) value = m_b;

  value  *= MODEL::s_model->ScalarFunction(std::string("alpha_QED"),
                                           sqr(rpa->gen.Ecms()));
  
  return m_rescale*value;
}

double GRVph_Fortran_Interface::GetXPDF(const kf_code& kf, bool anti)
{
  double value = 0.;

  if (kf == kf_gluon)  value = m_g;
  else if (kf == kf_d) value = m_d;
  else if (kf == kf_u) value = m_u;
  else if (kf == kf_s) value = m_s;
  else if (kf == kf_c) value = m_c;
  else if (kf == kf_b) value = m_b;

  value  *= MODEL::s_model->ScalarFunction(std::string("alpha_QED"),
                                           sqr(rpa->gen.Ecms()));

  return m_rescale*value;
}

DECLARE_PDF_GETTER(GRVph_Getter);

PDF_Base *GRVph_Getter::operator()
  (const Parameter_Type &args) const
{
  if (!args.m_bunch.IsPhoton()) return NULL;
  return new GRVph_Fortran_Interface(args.m_bunch);
}

void GRVph_Getter::PrintInfo
(std::ostream &str,const size_t width) const
{
  str<<"GRV photon PDF, see PRD45(1992)3986 and PRD46(1992)1973";
}

GRVph_Getter *p_get_grv;

extern "C" void InitPDFLib()
{
  p_get_grv = new GRVph_Getter("GRV");
}

extern "C" void ExitPDFLib()
{
  delete p_get_grv;
}