/dports/math/math77/MATH77/ |
H A D | dbesj0.f | 19 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 D | dbesj1.f | 20 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 D | dbesy0.f | 18 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 D | dbesy1.f | 19 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 D | sbesj0.f | 19 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 D | sbesy0.f | 18 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 D | sbesj1.f | 20 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 D | sbesy1.f | 19 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 D | d9atn1.f | 25 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 D | r9atn1.f | 46 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 D | d9atn1.f | 36 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 D | dbesi0.f | 33 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 D | dbesj0.f | 31 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 D | r9atn1.f | 36 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 D | dbesj1.f | 33 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 D | dbesk0.f | 35 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 D | dbesi1.f | 33 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 D | dbesi0.f | 33 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 D | dbesj0.f | 31 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 D | dbesj1.f | 33 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 D | dbesk0.f | 35 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 D | dbesy0.f | 32 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 D | dbesi1.f | 33 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 D | dbesi0.f | 33 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 D | dbesj0.f | 31 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)
|