Home
last modified time | relevance | path

Searched refs:XSML (Results 1 – 25 of 111) sorted by relevance

12345

/dports/math/math77/MATH77/
H A Ddbesj0.f19 DOUBLE PRECISION X, BJ0CS(19), AMPL, THETA, XSML, Y, local
28 SAVE NTJ0, XSML
50 DATA NTJ0, XSML / 0, 0.D0 /
54 XSML = SQRT (4.0D0*D1MACH(3))
58 IF (Y .LE. XSML) THEN
H A Ddbesj1.f20 DOUBLE PRECISION X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y, local
29 SAVE NTJ1, XSML, XMIN
51 DATA NTJ1, XSML, XMIN / 0, 2*0.D0 /
55 XSML = SQRT (4.0D0*D1MACH(3))
63 ELSE IF (Y .LE. XSML) THEN
H A Ddbesy0.f18 DOUBLE PRECISION X, BY0CS(19), AMPL, THETA, TWODPI, XSML, local
27 SAVE NTY0, XSML
50 DATA NTY0, XSML / 0, 0.D0 /
54 XSML = SQRT (4.0D0*D1MACH(3))
61 IF (X .LE. XSML) THEN
H A Ddbesy1.f19 DOUBLE PRECISION X, BY1CS(20), AMPL, THETA, TWODPI, XMIN, XSML, local
28 SAVE NTY1, XMIN, XSML
52 DATA NTY1, XMIN, XSML / 0, 2*0.D0 /
59 XSML = SQRT (4.0D0*D1MACH(3))
69 IF (X .LE. XSML) THEN
H A Dsbesj0.f19 REAL X, BJ0CS(19), AMPL, THETA, XSML, Y, local
28 SAVE NTJ0, XSML
50 DATA NTJ0, XSML / 0, 0.E0 /
54 XSML = SQRT (4.0E0*R1MACH(3))
58 IF (Y .LE. XSML) THEN
H A Dsbesy0.f18 REAL X, BY0CS(19), AMPL, THETA, TWODPI, XSML, local
27 SAVE NTY0, XSML
50 DATA NTY0, XSML / 0, 0.E0 /
54 XSML = SQRT (4.0E0*R1MACH(3))
61 IF (X .LE. XSML) THEN
H A Dsbesj1.f20 REAL X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y, local
29 SAVE NTJ1, XSML, XMIN
51 DATA NTJ1, XSML, XMIN / 0, 2*0.E0 /
55 XSML = SQRT (4.0E0*R1MACH(3))
63 ELSE IF (Y .LE. XSML) THEN
H A Dsbesy1.f19 REAL X, BY1CS(20), AMPL, THETA, TWODPI, XMIN, XSML, local
28 SAVE NTY1, XMIN, XSML
52 DATA NTY1, XMIN, XSML / 0, 2*0.E0 /
59 XSML = SQRT (4.0E0*R1MACH(3))
69 IF (X .LE. XSML) THEN
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/
H A Dd9atn1.f25 DOUBLE PRECISION X, XBIG, XMAX, XSML, Y, ATN1CS(40), DCSEVL,
67 DATA NTATN1, XSML, XBIG, XMAX / 0, 3*0.D0 /
73 XSML = SQRT (0.1*EPS)
80 IF (Y.LE.XSML) D9ATN1 = -1.0D0/3.0D0
81 IF (Y.LE.XSML) RETURN
H A Dr9atn1.f46 DATA NTATN1, XSML, XBIG, XMAX / 0, 3*0.0 /
52 XSML = SQRT (0.1*EPS)
59 IF (Y.LE.XSML) R9ATN1 = -1.0/3.0
60 IF (Y.LE.XSML) RETURN
/dports/math/slatec/src/
H A Dd9atn1.f36 DOUBLE PRECISION X, XBIG, XMAX, XSML, Y, ATN1CS(40), EPS,
39 SAVE ATN1CS, NTATN1, XSML, XBIG, XMAX, FIRST
86 XSML = SQRT (0.1D0*EPS)
95 IF (Y.LE.XSML) D9ATN1 = -1.0D0/3.0D0
96 IF (Y.LE.XSML) RETURN
H A Ddbesi0.f33 DOUBLE PRECISION X, BI0CS(18), XMAX, XSML, Y, D1MACH,
36 SAVE BI0CS, NTI0, XSML, XMAX, FIRST
59 XSML = SQRT(4.5D0*D1MACH(3))
68 IF (Y.GT.XSML) DBESI0 = 2.75D0 + DCSEVL (Y*Y/4.5D0-1.D0, BI0CS,
H A Ddbesj0.f31 DOUBLE PRECISION X, BJ0CS(19), AMPL, THETA, XSML, Y, D1MACH,
34 SAVE BJ0CS, NTJ0, XSML, FIRST
58 XSML = SQRT(8.0D0*D1MACH(3))
66 IF (Y.GT.XSML) DBESJ0 = DCSEVL (.125D0*Y*Y-1.D0, BJ0CS, NTJ0)
H A Dr9atn1.f36 SAVE ATN1CS, NTATN1, XSML, XBIG, XMAX, FIRST
64 XSML = SQRT (0.1*EPS)
73 IF (Y.LE.XSML) R9ATN1 = -1.0/3.0
74 IF (Y.LE.XSML) RETURN
H A Ddbesj1.f33 DOUBLE PRECISION X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y,
36 SAVE BJ1CS, NTJ1, XSML, XMIN, FIRST
61 XSML = SQRT(8.0D0*D1MACH(3))
74 IF (Y.GT.XSML) DBESJ1 = X*(.25D0 + DCSEVL (.125D0*Y*Y-1.D0,
H A Ddbesk0.f35 DOUBLE PRECISION X, BK0CS(16), XMAX, XMAXT, XSML, Y,
38 SAVE BK0CS, NTK0, XSML, XMAX, FIRST
59 XSML = SQRT(4.0D0*D1MACH(3))
70 IF (X.GT.XSML) Y = X*X
H A Ddbesi1.f33 DOUBLE PRECISION X, BI1CS(17), XMAX, XMIN, XSML, Y, D1MACH,
36 SAVE BI1CS, NTI1, XMIN, XSML, XMAX, FIRST
59 XSML = SQRT(4.5D0*D1MACH(3))
73 IF (Y.GT.XSML) DBESI1 = X*(0.875D0 + DCSEVL (Y*Y/4.5D0-1.D0,
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddbesi0.f33 DOUBLE PRECISION X, BI0CS(18), XMAX, XSML, Y, D1MACH, local
36 SAVE BI0CS, NTI0, XSML, XMAX, FIRST
59 XSML = SQRT(4.5D0*D1MACH(3))
68 IF (Y.GT.XSML) DBESI0 = 2.75D0 + DCSEVL (Y*Y/4.5D0-1.D0, BI0CS,
H A Ddbesj0.f31 DOUBLE PRECISION X, BJ0CS(19), AMPL, THETA, XSML, Y, D1MACH, local
34 SAVE BJ0CS, NTJ0, XSML, FIRST
58 XSML = SQRT(8.0D0*D1MACH(3))
66 IF (Y.GT.XSML) DBESJ0 = DCSEVL (.125D0*Y*Y-1.D0, BJ0CS, NTJ0)
H A Ddbesj1.f33 DOUBLE PRECISION X, BJ1CS(19), AMPL, THETA, XSML, XMIN, Y, local
36 SAVE BJ1CS, NTJ1, XSML, XMIN, FIRST
61 XSML = SQRT(8.0D0*D1MACH(3))
74 IF (Y.GT.XSML) DBESJ1 = X*(.25D0 + DCSEVL (.125D0*Y*Y-1.D0,
H A Ddbesk0.f35 DOUBLE PRECISION X, BK0CS(16), XMAX, XMAXT, XSML, Y, local
38 SAVE BK0CS, NTK0, XSML, XMAX, FIRST
59 XSML = SQRT(4.0D0*D1MACH(3))
70 IF (X.GT.XSML) Y = X*X
H A Ddbesy0.f32 DOUBLE PRECISION X, BY0CS(19), AMPL, THETA, TWODPI, XSML, local
35 SAVE BY0CS, TWODPI, NTY0, XSML, FIRST
60 XSML = SQRT(4.0D0*D1MACH(3))
69 IF (X.GT.XSML) Y = X*X
H A Ddbesi1.f33 DOUBLE PRECISION X, BI1CS(17), XMAX, XMIN, XSML, Y, D1MACH, local
36 SAVE BI1CS, NTI1, XMIN, XSML, XMAX, FIRST
59 XSML = SQRT(4.5D0*D1MACH(3))
73 IF (Y.GT.XSML) DBESI1 = X*(0.875D0 + DCSEVL (Y*Y/4.5D0-1.D0,
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Ddbesi0.f33 DOUBLE PRECISION X, BI0CS(18), XMAX, XSML, Y, D1MACH,
36 SAVE BI0CS, NTI0, XSML, XMAX, FIRST
59 XSML = SQRT(4.5D0*D1MACH(3))
68 IF (Y.GT.XSML) DBESI0 = 2.75D0 + DCSEVL (Y*Y/4.5D0-1.D0, BI0CS,
H A Ddbesj0.f31 DOUBLE PRECISION X, BJ0CS(19), AMPL, THETA, XSML, Y, D1MACH, local
34 SAVE BJ0CS, NTJ0, XSML, FIRST
58 XSML = SQRT(8.0D0*D1MACH(3))
66 IF (Y.GT.XSML) DBESJ0 = DCSEVL (.125D0*Y*Y-1.D0, BJ0CS, NTJ0)

12345