void fermi_dirac_1(double *x, int *len, double *val, double *err, int *status)
{
int i;
gsl_sf_result result;
gsl_set_error_handler_off();
for(i = 0; i< *len ; i++){
status[i] = gsl_sf_fermi_dirac_1_e(x[i], &result) ;
val[i] = result.val;
err[i] = result.err;
}
}
int gsl_sf_fermi_dirac_int_e(const int j, const double x, gsl_sf_result * result)
{
if(j < -1) {
return fd_nint(j, x, result);
}
else if (j == -1) {
return gsl_sf_fermi_dirac_m1_e(x, result);
}
else if(j == 0) {
return gsl_sf_fermi_dirac_0_e(x, result);
}
else if(j == 1) {
return gsl_sf_fermi_dirac_1_e(x, result);
}
else if(j == 2) {
return gsl_sf_fermi_dirac_2_e(x, result);
}
else if(x < 0.0) {
return fd_neg(j, x, result);
}
else if(x == 0.0) {
return gsl_sf_eta_int_e(j+1, result);
}
else if(x < 1.5) {
return fd_series_int(j, x, result);
}
else {
gsl_sf_result fasymp;
int stat_asymp = fd_asymp(j, x, &fasymp);
if(stat_asymp == GSL_SUCCESS) {
result->val = fasymp.val;
result->err = fasymp.err;
result->err += 2.0 * GSL_DBL_EPSILON * fabs(result->val);
return stat_asymp;
}
else {
return fd_UMseries_int(j, x, result);
}
}
}
double gsl_sf_fermi_dirac_1(const double x)
{
EVAL_RESULT(gsl_sf_fermi_dirac_1_e(x, &result));
}
/**
* C++ version of gsl_sf_fermi_dirac_1_e().
* F_1(x): F_j(x) := 1/Gamma[j+1] Integral[ t^j /(Exp[t-x] + 1), {t,0,Infinity}]
* @param x A real number
* @param result The result as a @c gsl::sf::result object
* @return GSL_SUCCESS or GSL_EUNDRFLW or GSL_EOVRFLW
*/
inline int fermi_dirac_1_e( double const x, result& result ){
return gsl_sf_fermi_dirac_1_e( x, &result ); }
