← Back to branch summary

~ubuntu-branches/ubuntu/wily/julia/wily

« back to all changes in this revision

Viewing changes to deps/openlibm/slatec/besj0.f

  • Committer: Package Import Robot
  • Author(s): Sébastien Villemot
  • Date: 2013-01-16 12:29:42 UTC
  • mfrom: (1.1.2)
  • Revision ID: package-import@ubuntu.com-20130116122942-x86e42akjq31repw
Tags: 0.0.0+20130107.gitd9656f41-1
* New upstream snashot
* No longer try to rebuild helpdb.jl.
   + debian/rules: remove helpdb.jl from build-arch rule
   + debian/control: move back python-sphinx to Build-Depends-Indep
* debian/copyright: reflect upstream changes
* Add Build-Conflicts on libatlas3-base (makes linalg tests fail)
* debian/rules: replace obsolete USE_DEBIAN makeflag by a list of
  USE_SYSTEM_* flags
* debian/rules: on non-x86 systems, use libm instead of openlibm
* dpkg-buildflags.patch: remove patch, applied upstream
* Refreshed other patches

Show diffs side-by-side

added added

removed removed

Lines of Context:
deps/openlibm/slatec/besj0.f
 
1
*DECK BESJ0
 
2
      FUNCTION BESJ0 (X)
 
3
C***BEGIN PROLOGUE  BESJ0
 
4
C***PURPOSE  Compute the Bessel function of the first kind of order
 
5
C            zero.
 
6
C***LIBRARY   SLATEC (FNLIB)
 
7
C***CATEGORY  C10A1
 
8
C***TYPE      SINGLE PRECISION (BESJ0-S, DBESJ0-D)
 
9
C***KEYWORDS  BESSEL FUNCTION, FIRST KIND, FNLIB, ORDER ZERO,
 
10
C             SPECIAL FUNCTIONS
 
11
C***AUTHOR  Fullerton, W., (LANL)
 
12
C***DESCRIPTION
 
13
C
 
14
C BESJ0(X) calculates the Bessel function of the first kind of
 
15
C order zero for real argument X.
 
16
C
 
17
C Series for BJ0        on the interval  0.          to  1.60000D+01
 
18
C                                        with weighted error   7.47E-18
 
19
C                                         log weighted error  17.13
 
20
C                               significant figures required  16.98
 
21
C                                    decimal places required  17.68
 
22
C
 
23
C Series for BM0        on the interval  0.          to  6.25000D-02
 
24
C                                        with weighted error   4.98E-17
 
25
C                                         log weighted error  16.30
 
26
C                               significant figures required  14.97
 
27
C                                    decimal places required  16.96
 
28
C
 
29
C Series for BTH0       on the interval  0.          to  6.25000D-02
 
30
C                                        with weighted error   3.67E-17
 
31
C                                         log weighted error  16.44
 
32
C                               significant figures required  15.53
 
33
C                                    decimal places required  17.13
 
34
C
 
35
C***REFERENCES  (NONE)
 
36
C***ROUTINES CALLED  CSEVL, INITS, R1MACH, XERMSG
 
37
C***REVISION HISTORY  (YYMMDD)
 
38
C   770401  DATE WRITTEN
 
39
C   890210  REVISION DATE from Version 3.2
 
40
C   891214  Prologue converted to Version 4.0 format.  (BAB)
 
41
C   900315  CALLs to XERROR changed to CALLs to XERMSG.  (THJ)
 
42
C   900326  Removed duplicate information from DESCRIPTION section.
 
43
C           (WRB)
 
44
C***END PROLOGUE  BESJ0
 
45
      DIMENSION BJ0CS(13), BM0CS(21), BTH0CS(24)
 
46
      LOGICAL FIRST
 
47
      SAVE BJ0CS, BM0CS, BTH0CS, PI4, NTJ0, NTM0, NTTH0, XSML, XMAX,
 
48
     1   FIRST
 
49
      DATA BJ0CS( 1) /    .1002541619 68939137E0 /
 
50
      DATA BJ0CS( 2) /   -.6652230077 64405132E0 /
 
51
      DATA BJ0CS( 3) /    .2489837034 98281314E0 /
 
52
      DATA BJ0CS( 4) /   -.0332527231 700357697E0 /
 
53
      DATA BJ0CS( 5) /    .0023114179 304694015E0 /
 
54
      DATA BJ0CS( 6) /   -.0000991127 741995080E0 /
 
55
      DATA BJ0CS( 7) /    .0000028916 708643998E0 /
 
56
      DATA BJ0CS( 8) /   -.0000000612 108586630E0 /
 
57
      DATA BJ0CS( 9) /    .0000000009 838650793E0 /
 
58
      DATA BJ0CS(10) /   -.0000000000 124235515E0 /
 
59
      DATA BJ0CS(11) /    .0000000000 001265433E0 /
 
60
      DATA BJ0CS(12) /   -.0000000000 000010619E0 /
 
61
      DATA BJ0CS(13) /    .0000000000 000000074E0 /
 
62
      DATA BM0CS( 1) /    .0928496163 7381644E0 /
 
63
      DATA BM0CS( 2) /   -.0014298770 7403484E0 /
 
64
      DATA BM0CS( 3) /    .0000283057 9271257E0 /
 
65
      DATA BM0CS( 4) /   -.0000014330 0611424E0 /
 
66
      DATA BM0CS( 5) /    .0000001202 8628046E0 /
 
67
      DATA BM0CS( 6) /   -.0000000139 7113013E0 /
 
68
      DATA BM0CS( 7) /    .0000000020 4076188E0 /
 
69
      DATA BM0CS( 8) /   -.0000000003 5399669E0 /
 
70
      DATA BM0CS( 9) /    .0000000000 7024759E0 /
 
71
      DATA BM0CS(10) /   -.0000000000 1554107E0 /
 
72
      DATA BM0CS(11) /    .0000000000 0376226E0 /
 
73
      DATA BM0CS(12) /   -.0000000000 0098282E0 /
 
74
      DATA BM0CS(13) /    .0000000000 0027408E0 /
 
75
      DATA BM0CS(14) /   -.0000000000 0008091E0 /
 
76
      DATA BM0CS(15) /    .0000000000 0002511E0 /
 
77
      DATA BM0CS(16) /   -.0000000000 0000814E0 /
 
78
      DATA BM0CS(17) /    .0000000000 0000275E0 /
 
79
      DATA BM0CS(18) /   -.0000000000 0000096E0 /
 
80
      DATA BM0CS(19) /    .0000000000 0000034E0 /
 
81
      DATA BM0CS(20) /   -.0000000000 0000012E0 /
 
82
      DATA BM0CS(21) /    .0000000000 0000004E0 /
 
83
      DATA BTH0CS( 1) /   -.2463916377 4300119E0 /
 
84
      DATA BTH0CS( 2) /    .0017370983 07508963E0 /
 
85
      DATA BTH0CS( 3) /   -.0000621836 33402968E0 /
 
86
      DATA BTH0CS( 4) /    .0000043680 50165742E0 /
 
87
      DATA BTH0CS( 5) /   -.0000004560 93019869E0 /
 
88
      DATA BTH0CS( 6) /    .0000000621 97400101E0 /
 
89
      DATA BTH0CS( 7) /   -.0000000103 00442889E0 /
 
90
      DATA BTH0CS( 8) /    .0000000019 79526776E0 /
 
91
      DATA BTH0CS( 9) /   -.0000000004 28198396E0 /
 
92
      DATA BTH0CS(10) /    .0000000001 02035840E0 /
 
93
      DATA BTH0CS(11) /   -.0000000000 26363898E0 /
 
94
      DATA BTH0CS(12) /    .0000000000 07297935E0 /
 
95
      DATA BTH0CS(13) /   -.0000000000 02144188E0 /
 
96
      DATA BTH0CS(14) /    .0000000000 00663693E0 /
 
97
      DATA BTH0CS(15) /   -.0000000000 00215126E0 /
 
98
      DATA BTH0CS(16) /    .0000000000 00072659E0 /
 
99
      DATA BTH0CS(17) /   -.0000000000 00025465E0 /
 
100
      DATA BTH0CS(18) /    .0000000000 00009229E0 /
 
101
      DATA BTH0CS(19) /   -.0000000000 00003448E0 /
 
102
      DATA BTH0CS(20) /    .0000000000 00001325E0 /
 
103
      DATA BTH0CS(21) /   -.0000000000 00000522E0 /
 
104
      DATA BTH0CS(22) /    .0000000000 00000210E0 /
 
105
      DATA BTH0CS(23) /   -.0000000000 00000087E0 /
 
106
      DATA BTH0CS(24) /    .0000000000 00000036E0 /
 
107
      DATA PI4 / 0.7853981633 9744831E0 /
 
108
      DATA FIRST /.TRUE./
 
109
C***FIRST EXECUTABLE STATEMENT  BESJ0
 
110
      IF (FIRST) THEN
 
111
         NTJ0 = INITS (BJ0CS, 13, 0.1*R1MACH(3))
 
112
         NTM0 = INITS (BM0CS, 21, 0.1*R1MACH(3))
 
113
         NTTH0 = INITS (BTH0CS, 24, 0.1*R1MACH(3))
 
114
C
 
115
         XSML = SQRT (8.0*R1MACH(3))
 
116
         XMAX = 1.0/R1MACH(4)
 
117
      ENDIF
 
118
      FIRST = .FALSE.
 
119
C
 
120
      Y = ABS(X)
 
121
      IF (Y.GT.4.0) GO TO 20
 
122
C
 
123
      BESJ0 = 1.0
 
124
      IF (Y.GT.XSML) BESJ0 = CSEVL (.125*Y*Y-1., BJ0CS, NTJ0)
 
125
      RETURN
 
126
C
 
127
 20   IF (Y .GT. XMAX) CALL XERMSG ('SLATEC', 'BESJ0',
 
128
     +   'NO PRECISION BECAUSE ABS(X) IS TOO BIG', 1, 2)
 
129
C
 
130
      Z = 32.0/Y**2 - 1.0
 
131
      AMPL = (0.75 + CSEVL (Z, BM0CS, NTM0)) / SQRT(Y)
 
132
      THETA = Y - PI4 + CSEVL (Z, BTH0CS, NTTH0) / Y
 
133
      BESJ0 = AMPL * COS (THETA)
 
134
C
 
135
      RETURN
 
136
      END