Searched refs:bessi1 (Results 1 – 6 of 6) sorted by relevance
76 bessk1 = (LOG(x/2.0_dp)*bessi1(x)) + (1.0_dp/x)* &124 ELEMENTAL FUNCTION bessi1(x) function127 REAL(KIND=dp) :: bessi1 local139 bessi1 = p1 + y*(p2 + y*(p3 + y*(p4 + y* &144 bessi1 = (EXP(ax)/SQRT(ax))*(q1 + y*(q2 + y* &147 IF (x < 0.0_dp) bessi1 = -bessi1150 END FUNCTION bessi1
269 func bessi1(x) in bessi1() function309 return bessi1(x); in bessi()389 return (log(x/2.0)*bessi1(x)) + in _bessk1_1()
3 autoload, "bessel.i", bessi0, bessi1, bessi, bessk0, bessk1, bessk;
257 public static double bessi1(double x) { in bessi1() method in Fun
372 BESSI1 refman2/auxillar/bessi1.pdf