This file is indexed.

/usr/include/CLHEP/GenericFunctions/Bessel.icc is in libclhep-dev 2.1.4.1-1.1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below.

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
// -*- C++ -*-
// $Id: 
#include "gsl/gsl_sf_bessel.h"
#include <cmath>
#include <signal.h>
#include <assert.h>


#define GF_DBL_EPSILON        2.2204460492503131e-16


namespace Genfun {
namespace IntegralOrder {

FUNCTION_OBJECT_IMP(Bessel)

inline
Bessel::Bessel(Type type, unsigned int order):
  _type(type),_order(order)
{
}

inline
Bessel::~Bessel() {
}

inline
Bessel::Bessel(const Bessel & right):
  _type(right._type),
  _order(right._order)
{
}

inline
double Bessel::operator() (double x) const {
  gsl_sf_result result;
  if (_type==J) {
    int status = gsl_sf_bessel_Jn_e(_order, x,  &result);
    if (status!=0) {
      std::cerr << "Warning, GSL function gsl_sf_bessel_Jn_impl" 
		<< " return code" << status << std::endl;
      raise(SIGFPE);
    }
    return result.val;
  }
  else if (_type==Y) {
    int status = gsl_sf_bessel_Yn_e(_order, x,  &result);
    if (status!=0) {
      std::cerr << "Warning, GSL function gsl_sf_bessel_Yn_impl" 
		<< " return code" << status << std::endl;
      raise(SIGFPE);
    }
    return result.val;
  }
  else {
    return 0;
  }
}

} // end namespace IntegralOrder

namespace FractionalOrder {

FUNCTION_OBJECT_IMP(Bessel)

inline
Bessel::Bessel(Type type):
  _type(type),
  _order("Order", 0.0,-10,10)
{
}

inline
Bessel::~Bessel() {
}

inline
Bessel::Bessel(const Bessel & right):
  _type(right._type),
  _order(right._order)
{
}


inline
Parameter & Bessel::order() {
  return _order;
}

inline
const Parameter & Bessel::order() const {
  return _order;
}


inline
double Bessel::operator() (double x) const {
  gsl_sf_result result;
  if (_type==J) {
    int status = gsl_sf_bessel_Jnu_e(_order.getValue(), x,  &result);
    if (status!=0) {
      std::cerr << "Warning, GSL function gsl_sf_bessel_Jnu_impl" 
		<< " return code" << status << std::endl;
      raise(SIGFPE);
    }
    return result.val;
  }
  else if (_type==Y) {
    int status = gsl_sf_bessel_Ynu_e(_order.getValue(), x,  &result);
    if (status!=0) {
      std::cerr << "Warning, GSL function gsl_sf_bessel_Ynu_impl" 
		<< " return code" << status << std::endl;
      raise(SIGFPE);
    }
    return result.val;
  }
  return result.val;
}


} // end namespace FractionalOrder

} // end namespace Genfun