<commit_before>// @(#)root/mathcore:$Name:  $:$Id: SpecFunc.cxxv 1.0 2005/06/23 12:00:00 moneta Exp $
// Authors: <NAME> & <NAME>   06/2005 

/**********************************************************************
 *                                                                    *
 * Copyright (c) 2005 , LCG ROOT MathLib Team                         *
 *                                                                    *
 *                                                                    *
 **********************************************************************/





//#include "MathCore/SpecFunc.h"
//#include "SpecFunc.h"
#if defined(__sun) || defined(_WIN32)
//(__alpha) || (_AIX)
#define NOT_HAVE_TGAMMA
#endif


#include "math.h"

namespace ROOT {
namespace Math {





// (26.x.21.2) complementary error function

double erfc(double x) {


#ifdef NOT_HAVE_TGAMMA
  // copied from TMath for those platforms which do not have a
  // C99 compliant compiler

   // Compute the complementary error function erfc(x).
   // Erfc(x) = (2/sqrt(pi)) Integral(exp(-t^2))dt between x and infinity
   //
   //--- Nve 14-nov-1998 UU-SAP Utrecht

   // The parameters of the Chebyshev fit
   const double a1 = -1.26551223,   a2 = 1.00002368,
                  a3 =  0.37409196,   a4 = 0.09678418,
                  a5 = -0.18628806,   a6 = 0.27886807,<commit_msg>From Lorenzo: Disable C special function for Aix<commit_after>// @(#)root/mathcore:$Name:  $:$Id: SpecFunc.cxx,v 1.1 2005/06/24 18:54:24 brun Exp $
// Authors: <NAME> & <NAME>   06/2005 

/**********************************************************************
 *                                                                    *
 * Copyright (c) 2005 , LCG ROOT MathLib Team                         *
 *                                                                    *
 *                                                                    *
 **********************************************************************/





//#include "MathCore/SpecFunc.h"
//#include "SpecFunc.h"
#if defined(__sun) || defined(_WIN32) || defined(_AIX)
//(__alpha) 
#define NOT_HAVE_TGAMMA
#endif


#include "math.h"

namespace ROOT {
namespace Math {





// (26.x.21.2) complementary error function

double erfc(double x) {


#ifdef NOT_HAVE_TGAMMA
  // copied from TMath for those platforms which do not have a
  // C99 compliant compiler

   // Compute the complementary error function erfc(x).
   // Erfc(x) = (2/sqrt(pi)) Integral(exp(-t^2))dt between x and infinity
   //
   //--- Nve 14-nov-1998 UU-SAP Utrecht

   // The parameters of the Chebyshev fit
   const double a1 = -1.26551223,   a2 = 1.00002368,
                  a3 =  0.37409196,   a4 = 0.09678418,
                  a5 = -0.18628806,   a6 = 0.27886807,
{'fraction_non_alphanumeric': 0.20965417867435157, 'fraction_numerical': 0.07420749279538905, 'mean_word_length': 1.7145650048875856, 'pattern_counts': {'":': 0, '<': 7, '<?xml version=': 0, '>': 7, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 12, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4479863', 'n_tokens_mistral': 965, 'n_tokens_neox': 775, 'n_words': 202}