Home
last modified time | relevance | path

Searched refs:NTJ1 (Results 1 – 10 of 10) sorted by relevance

/dports/math/math77/MATH77/
H A Ddbesj1.f19 INTEGER NTJ1 local
29 SAVE NTJ1, XSML, XMIN
51 DATA NTJ1, XSML, XMIN / 0, 2*0.D0 /
53 IF (NTJ1 .eq. 0) then
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.f19 INTEGER NTJ1 local
29 SAVE NTJ1, XSML, XMIN
51 DATA NTJ1, XSML, XMIN / 0, 2*0.E0 /
53 IF (NTJ1 .eq. 0) then
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.f45 DATA NTJ1, XSML, XMIN / 0, 2*0.D0 /
47 IF (NTJ1.NE.0) GO TO 10
48 NTJ1 = INITDS (BJ1CS, 19, 0.1*SNGL(D1MACH(3)))
61 1 BJ1CS, NTJ1) )
H A Dbesj1.f93 DATA NTJ1, NTM1, NTTH1, XSML, XMIN, XMAX / 3*0, 3*0./
95 IF (NTJ1.NE.0) GO TO 10
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/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddbesj1.f36 SAVE BJ1CS, NTJ1, XSML, XMIN, FIRST
59 NTJ1 = INITDS (BJ1CS, 19, 0.1*REAL(D1MACH(3)))
75 1 BJ1CS, NTJ1) )
/dports/math/slatec/src/
H A Ddbesj1.f36 SAVE BJ1CS, NTJ1, XSML, XMIN, FIRST
59 NTJ1 = INITDS (BJ1CS, 19, 0.1*REAL(D1MACH(3)))
75 1 BJ1CS, NTJ1) )
H A Dbesj1.f46 SAVE BJ1CS, BM1CS, BTH1CS, PI4, NTJ1, NTM1, NTTH1,
109 NTJ1 = INITS (BJ1CS, 12, 0.1*R1MACH(3))
127 IF (Y.GT.XSML) BESJ1 = X * (.25 + CSEVL(.125*Y*Y-1., BJ1CS, NTJ1))
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Ddbesj1.f36 SAVE BJ1CS, NTJ1, XSML, XMIN, FIRST
59 NTJ1 = INITDS (BJ1CS, 19, 0.1*REAL(D1MACH(3)))
75 1 BJ1CS, NTJ1) )
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp3.F13721 DATA NTJ1, NTM1, NTTH1, XSML, XMIN, XMAX / 3*0, 3*0./
13723 IF (NTJ1.NE.0) GO TO 10
13724 NTJ1 = INITS (BJ1CS, 12, 0.1*R1MACH(3))
13745 1 (.25 + CSEVL(.125*Y*Y-1., BJ1CS, NTJ1))
/dports/chinese/dictd-database/dict-zh-1.6/
H A Dpydict.index106282 nightlight NTJ1 T