/*
 * DO NOT MANUALLY UPDATE THIS FILE.
 * If needed: make cpp_headers
 *
 * fortran2c.py - automatic conversion
 *       frtlcm.inc -> frtlcm.h
 */

#ifndef __FRTLCM__
#define __FRTLCM__

#include "types.h"

#ifdef __cplusplus
	extern "C" {
#endif

//
//=== Frtlcm ===========================================================*
//
//----------------------------------------------------------------------*
//                                                                      *
//     Copyright (C) 2003-2019:  CERN & INFN                            *
//     All Rights Reserved.                                             *
//                                                                      *
//     FeRmi motion high momentum TaiL CoMmon:                          *
//                                                                      *
//     Created on 18 January 1997   by    Alfredo Ferrari & Paola Sala  *
//                                                   Infn - Milan       *
//                                                                      *
//----------------------------------------------------------------------*
//
//  k_fermi (fm^-1) for infinite symmetric nuclear matter
//  with rho0=0.1678 fm^-3 ( k_f=(3/2 pi^2 rho0)^1/3 )
const double AKFRM0 = 1.35487770196973E+00;
const double A100LW = 0.859E+00*AKFRM0*AKFRM0*AKFRM0;
const double A100LG = 0.432E+00*AKFRM0*AKFRM0*AKFRM0;
//  Sqrt (b100lw):
const double B100LW = 0.043E+00*AKFRM0*AKFRM0;
const double SQB1LW = 0.207364413533277E+00*AKFRM0;
//  Sqrt (b100lg):
const double B100LG = 0.97E+00*AKFRM0*AKFRM0;
const double SQB1LG = 0.984885780179610E+00*AKFRM0;
const double C100LW = -0.839E+00*AKFRM0*AKFRM0*AKFRM0;
const double C100LG = 0.0313E+00*AKFRM0*AKFRM0*AKFRM0;
//  Sqrt (d100lw):
const double D100LW = 0.12E+00*AKFRM0*AKFRM0;
const double SQD1LW = 0.346410161513775E+00*AKFRM0;
//  Sqrt (d100lg):
const double D100LG = 0.22E+00*AKFRM0*AKFRM0;

const double SQD1LG = 0.469041575982343E+00*AKFRM0;
#ifdef __cplusplus
}
#endif
#endif