Home
last modified time | relevance | path

Searched refs:BJ1CS (Results 1 – 9 of 9) sorted by relevance

/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddbesj1.f33 DOUBLE PRECISION X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y, local
36 SAVE BJ1CS, NTJ1, XSML, XMIN, FIRST
37 DATA BJ1CS( 1) / -.1172614151 3332786560 6240574524 003 D+0 /
38 DATA BJ1CS( 2) / -.2536152183 0790639562 3030884554 698 D+0 /
39 DATA BJ1CS( 3) / +.5012708098 4469568505 3656363203 743 D-1 /
40 DATA BJ1CS( 4) / -.4631514809 6250819184 2619728789 772 D-2 /
41 DATA BJ1CS( 5) / +.2479962294 1591402453 9124064592 364 D-3 /
42 DATA BJ1CS( 6) / -.8678948686 2788258452 1246435176 416 D-5 /
43 DATA BJ1CS( 7) / +.2142939171 4379369150 2766250991 292 D-6 /
59 NTJ1 = INITDS (BJ1CS, 19, 0.1*REAL(D1MACH(3)))
[all …]
/dports/math/slatec/src/
H A Ddbesj1.f33 DOUBLE PRECISION X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y,
36 SAVE BJ1CS, NTJ1, XSML, XMIN, FIRST
37 DATA BJ1CS( 1) / -.1172614151 3332786560 6240574524 003 D+0 /
38 DATA BJ1CS( 2) / -.2536152183 0790639562 3030884554 698 D+0 /
39 DATA BJ1CS( 3) / +.5012708098 4469568505 3656363203 743 D-1 /
40 DATA BJ1CS( 4) / -.4631514809 6250819184 2619728789 772 D-2 /
41 DATA BJ1CS( 5) / +.2479962294 1591402453 9124064592 364 D-3 /
42 DATA BJ1CS( 6) / -.8678948686 2788258452 1246435176 416 D-5 /
43 DATA BJ1CS( 7) / +.2142939171 4379369150 2766250991 292 D-6 /
59 NTJ1 = INITDS (BJ1CS, 19, 0.1*REAL(D1MACH(3)))
[all …]
H A Dbesj1.f44 DIMENSION BJ1CS(12), BM1CS(21), BTH1CS(24)
48 DATA BJ1CS( 1) / -.1172614151 3332787E0 /
49 DATA BJ1CS( 2) / -.2536152183 0790640E0 /
50 DATA BJ1CS( 3) / .0501270809 84469569E0 /
51 DATA BJ1CS( 4) / -.0046315148 09625081E0 /
52 DATA BJ1CS( 5) / .0002479962 29415914E0 /
53 DATA BJ1CS( 6) / -.0000086789 48686278E0 /
54 DATA BJ1CS( 7) / .0000002142 93917143E0 /
55 DATA BJ1CS( 8) / -.0000000039 36093079E0 /
56 DATA BJ1CS( 9) / .0000000000 55911823E0 /
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Ddbesj1.f33 DOUBLE PRECISION X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y, local
36 SAVE BJ1CS, NTJ1, XSML, XMIN, FIRST
37 DATA BJ1CS( 1) / -.1172614151 3332786560 6240574524 003 D+0 /
38 DATA BJ1CS( 2) / -.2536152183 0790639562 3030884554 698 D+0 /
39 DATA BJ1CS( 3) / +.5012708098 4469568505 3656363203 743 D-1 /
40 DATA BJ1CS( 4) / -.4631514809 6250819184 2619728789 772 D-2 /
41 DATA BJ1CS( 5) / +.2479962294 1591402453 9124064592 364 D-3 /
42 DATA BJ1CS( 6) / -.8678948686 2788258452 1246435176 416 D-5 /
43 DATA BJ1CS( 7) / +.2142939171 4379369150 2766250991 292 D-6 /
59 NTJ1 = INITDS (BJ1CS, 19, 0.1*REAL(D1MACH(3)))
[all …]
/dports/math/math77/MATH77/
H A Ddbesj1.f20 DOUBLE PRECISION X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y, local
31 DATA BJ1CS / -.117261415133327865606240574524003D+0,
54 call DINITS (BJ1CS, 19, 0.1D0*D1MACH(3), NTJ1)
66 DBESJ1 = X * ( .25D0 + DCSEVL (.125D0*Y*Y-1.D0,BJ1CS, NTJ1) )
H A Dsbesj1.f20 REAL X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y, local
31 DATA BJ1CS / -.117261415133327865606240574524003E+0,
54 call SINITS (BJ1CS, 19, 0.1E0*R1MACH(3), NTJ1)
66 SBESJ1 = X * ( .25E0 + SCSEVL (.125E0*Y*Y-1.E0,BJ1CS, NTJ1) )
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/
H A Ddbesj1.f24 DOUBLE PRECISION X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y,
48 NTJ1 = INITDS (BJ1CS, 19, 0.1*SNGL(D1MACH(3)))
61 1 BJ1CS, NTJ1) )
H A Dbesj1.f34 DIMENSION BJ1CS(12), BM1CS(21), BTH1CS(24)
96 NTJ1 = INITS (BJ1CS, 12, 0.1*R1MACH(3))
112 IF (Y.GT.XSML) BESJ1 = X * (.25 + CSEVL(.125*Y*Y-1., BJ1CS, NTJ1))
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp3.F13662 DIMENSION BJ1CS(12), BM1CS(21), BTH1CS(24)
13724 NTJ1 = INITS (BJ1CS, 12, 0.1*R1MACH(3))
13745 1 (.25 + CSEVL(.125*Y*Y-1., BJ1CS, NTJ1))