//
// ********************************************************************
// * 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.          *
// ********************************************************************
//

// Parameters comes from JQMD 
// Niita et al., JAERI-Data/Code 99-042

#include "G4QMDParameters.hh"

G4QMDParameters* G4QMDParameters::parameters = NULL;

G4QMDParameters::G4QMDParameters()
{

   wl = 2.0; // width of wave packet [fm]
   hbc = 0.1973;      //   h-bar c in GeVfm

   //Pauli
   cpw = 1.0 / 2.0 / wl;

   cph = 2.0 * wl / (hbc*hbc);

   cpc = 4.0;

   epsx = -20.0 ;

   rho0 = 0.168;     // satulation density 

// Skyrme
   G4double rpot = 1.0/3.0;  

   G4double ebinm = -16.0; // bounding energy [MeV] 
   G4double ebin = ebinm * 0.001;

   G4double pfer  = hbc * std::pow ( 3./2. *pi*pi * rho0 , 1./3. );

   G4double rmass = 0.938; 

   G4double efer  = pfer*pfer / 2. / rmass;

   G4double t3 = 8. / 3. / rpot / std::pow( rho0 , ( 1.+rpot ) ) * ( efer / 5. - ebin );

   G4double t0 = -16./15. * efer / rho0 - ( 1.+rpot ) * t3 * std::pow( rho0 , rpot );
  

   G4double aaa = 3./4. * t0 * rho0;
   G4double bbb = 3./8. * t3 * ( 2.+rpot ) * std::pow( rho0 , ( 1.+rpot ) );
   G4double esymm = 25 * 0.001; // symetric potential 25 [MeV] -> GeV

   gamm = rpot + 1.0;

// Local Potenials
   c0 = aaa / ( rho0 * std::pow( 4 * pi * wl , 1.5 ) * 2.0 );

   c3 = bbb / ( std::pow( rho0 , gamm ) * std::pow ( (4.0*pi*wl) , (1.5*gamm) ) * ( gamm+1.0) );

   cs = esymm / ( rho0 * std::pow( (4.0*pi*wl) , 1.5 ) * 2.0 );

   G4double ccoul = 0.001439767;
   cl = ccoul/2.0 * 1;  // Include Coulomb interaction
   //cl = ccoul/2.0 * 0;  // Not Include Coulomb interaction
 


// GroundStateNucleus
   cdp = 1.0 / std::pow ( ( 4.0 * pi * wl ) , 1.5 );
   c0p = c0 * 2.0;
   c3p = c3 * ( gamm + 1.0 );
   csp = cs * 2.0;
   clp = cl * 2.0;

}



G4QMDParameters::~G4QMDParameters()
{ 
   ;
}