Home
last modified time | relevance | path

Searched refs:SQRTX (Results 1 – 22 of 22) sorted by relevance

/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddaie.f56 1 SQRTX, THETA, XBIG, XM, X3SML, X32SML, Z, D1MACH, DCSEVL local
209 SQRTX = SQRT(X)
210 Z = (16.D0/(X*SQRTX) - 9.D0)/7.D0
211 DAIE = (0.28125D0 + DCSEVL (Z, AIP1CS, NAIP1))/SQRT(SQRTX)
214 40 SQRTX = SQRT(X)
216 IF (X.LT.XBIG) Z = 16.0D0/(X*SQRTX) - 1.0D0
217 DAIE = (0.28125D0 + DCSEVL (Z, AIP2CS, NAIP2))/SQRT(SQRTX)
H A Ddbie.f74 1 BIP1CS(47), BIP2CS(88), ATR, BTR, SQRTX, THETA, XBIG, XM, X3SML, local
311 SQRTX = SQRT(X)
312 Z = ATR/(X*SQRTX) + BTR
313 DBIE = (0.625D0 + DCSEVL (Z, BIP1CS, NBIP1))/SQRT(SQRTX)
316 50 SQRTX = SQRT(X)
318 IF (X.LT.XBIG) Z = 16.D0/(X*SQRTX) - 1.0D0
319 DBIE = (0.625D0 + DCSEVL (Z, BIP2CS, NBIP2))/SQRT(SQRTX)
H A Dd9aimp.f62 1 AM21CS(60), ATH1CS(58), AM22CS(74), ATH2CS(72), PI4, SQRTX, local
477 40 SQRTX = SQRT(-X)
478 AMPL = SQRT(AMPL/SQRTX)
479 THETA = PI4 - X*SQRTX*THETA
/dports/math/slatec/src/
H A Ddaie.f56 1 SQRTX, THETA, XBIG, XM, X3SML, X32SML, Z, D1MACH, DCSEVL
209 SQRTX = SQRT(X)
210 Z = (16.D0/(X*SQRTX) - 9.D0)/7.D0
211 DAIE = (0.28125D0 + DCSEVL (Z, AIP1CS, NAIP1))/SQRT(SQRTX)
214 40 SQRTX = SQRT(X)
216 IF (X.LT.XBIG) Z = 16.0D0/(X*SQRTX) - 1.0D0
217 DAIE = (0.28125D0 + DCSEVL (Z, AIP2CS, NAIP2))/SQRT(SQRTX)
H A Dbie.f195 SQRTX = SQRT(X)
196 Z = ATR/(X*SQRTX) + BTR
197 BIE = (0.625 + CSEVL (Z, BIPCS, NBIP)) / SQRT(SQRTX)
200 50 SQRTX = SQRT(X)
202 IF (X.LT.XBIG) Z = 16.0/(X*SQRTX) - 1.0
203 BIE = (0.625 + CSEVL (Z, BIP2CS, NBIP2))/SQRT(SQRTX)
H A Ddbie.f74 1 BIP1CS(47), BIP2CS(88), ATR, BTR, SQRTX, THETA, XBIG, XM, X3SML,
311 SQRTX = SQRT(X)
312 Z = ATR/(X*SQRTX) + BTR
313 DBIE = (0.625D0 + DCSEVL (Z, BIP1CS, NBIP1))/SQRT(SQRTX)
316 50 SQRTX = SQRT(X)
318 IF (X.LT.XBIG) Z = 16.D0/(X*SQRTX) - 1.0D0
319 DBIE = (0.625D0 + DCSEVL (Z, BIP2CS, NBIP2))/SQRT(SQRTX)
H A Daie.f127 30 SQRTX = SQRT(X)
129 IF (X.LT.XBIG) Z = 2.0/(X*SQRTX) - 1.0
130 AIE = (.28125 + CSEVL (Z, AIPCS, NAIP))/SQRT(SQRTX)
H A Dd9knus.f44 2 B0, C0, EULER, EXPX, P1, P2, P3, QQ, RESULT, SQPI2, SQRTX, V,
198 50 SQRTX = SQRT(X)
213 1 (16.D0*X*SQRTX)
241 65 RESULT = SQPI2*BETA(NTERMS)/(SQRTX*ALPHA(NTERMS))
248 90 BKNU = SQPI2/SQRTX
H A Dr9knus.f168 50 SQRTX = SQRT(X)
182 IF (A(2).EQ.0.) RESULT = SQPI2*(16.*X+XMU+7.)/(16.*X*SQRTX)
209 65 RESULT = SQPI2*BETA(NTERMS)/(SQRTX*ALPHA(NTERMS))
216 90 BKNU = SQPI2/SQRTX
H A Dr9aimp.f221 30 SQRTX = SQRT(-X)
222 AMPL = SQRT (AMPL/SQRTX)
223 THETA = PI4 - X*SQRTX * THETA
H A Dd9aimp.f62 1 AM21CS(60), ATH1CS(58), AM22CS(74), ATH2CS(72), PI4, SQRTX,
477 40 SQRTX = SQRT(-X)
478 AMPL = SQRT(AMPL/SQRTX)
479 THETA = PI4 - X*SQRTX*THETA
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/
H A Ddaie.f47 1 SQRTX, THETA, XBIG, XM, X3SML, X32SML, Z, D1MACH, DCSEVL
196 SQRTX = DSQRT(X)
197 Z = (16.D0/(X*SQRTX) - 9.D0)/7.D0
198 DAIE = (0.28125D0 + DCSEVL (Z, AIP1CS, NAIP1))/DSQRT(SQRTX)
201 40 SQRTX = DSQRT(X)
203 IF (X.LT.XBIG) Z = 16.0D0/(X*SQRTX) - 1.0D0
204 DAIE = (0.28125D0 + DCSEVL (Z, AIP2CS, NAIP2))/DSQRT(SQRTX)
H A Dbie.f182 SQRTX = SQRT(X)
183 Z = ATR/(X*SQRTX) + BTR
184 BIE = (0.625 + CSEVL (Z, BIPCS, NBIP)) / SQRT(SQRTX)
187 50 SQRTX = SQRT(X)
189 IF (X.LT.XBIG) Z = 16.0/(X*SQRTX) - 1.0
190 BIE = (0.625 + CSEVL (Z, BIP2CS, NBIP2))/SQRT(SQRTX)
H A Ddbie.f66 1 BIP1CS(47), BIP2CS(88), ATR, BTR, SQRTX, THETA, XBIG, XM, X3SML,
298 SQRTX = DSQRT(X)
299 Z = ATR/(X*SQRTX) + BTR
300 DBIE = (0.625D0 + DCSEVL (Z, BIP1CS, NBIP1))/DSQRT(SQRTX)
303 50 SQRTX = DSQRT(X)
305 IF (X.LT.XBIG) Z = 16.D0/(X*SQRTX) - 1.0D0
306 DBIE = (0.625D0 + DCSEVL (Z, BIP2CS, NBIP2))/DSQRT(SQRTX)
H A Dd9knus.f34 2 B0, C0, EULER, EXPX, P1, P2, P3, QQ, RESULT, SQPI2, SQRTX, V,
182 50 SQRTX = DSQRT(X)
197 1 (16.D0*X*SQRTX)
225 65 RESULT = SQPI2*BETA(NTERMS)/(SQRTX*ALPHA(NTERMS))
232 90 BKNU = SQPI2/SQRTX
H A Daie.f113 30 SQRTX = SQRT(X)
115 IF (X.LT.XBIG) Z = 2.0/(X*SQRTX) - 1.0
116 AIE = (.28125 + CSEVL (Z, AIPCS, NAIP))/SQRT(SQRTX)
H A Dr9knus.f152 50 SQRTX = SQRT(X)
166 IF (A(2).EQ.0.) RESULT = SQPI2*(16.*X+XMU+7.)/(16.*X*SQRTX)
193 65 RESULT = SQPI2*BETA(NTERMS)/(SQRTX*ALPHA(NTERMS))
200 90 BKNU = SQPI2/SQRTX
H A Dr9aimp.f207 30 SQRTX = SQRT(-X)
208 AMPL = SQRT (AMPL/SQRTX)
209 THETA = PI4 - X*SQRTX * THETA
H A Dd9aimp.f53 1 AM21CS(60), ATH1CS(58), AM22CS(74), ATH2CS(72), PI4, SQRTX,
464 40 SQRTX = DSQRT(-X)
465 AMPL = DSQRT (AMPL/SQRTX)
466 THETA = PI4 - X*SQRTX*THETA
/dports/math/scilab/scilab-6.1.1/scilab/modules/elementary_functions/src/fortran/slatec/
H A Dd9knus.f44 2 B0, C0, EULER, EXPX, P1, P2, P3, QQ, RESULT, SQPI2, SQRTX, V,
198 50 SQRTX = SQRT(X)
213 1 (16.D0*X*SQRTX)
241 65 RESULT = SQPI2*BETA(NTERMS)/(SQRTX*ALPHA(NTERMS))
248 90 BKNU = SQPI2/SQRTX
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp3.F2447 30 SQRTX = SQRT(X)
2449 IF (X.LT.XBIG) Z = 2.0/(X*SQRTX) - 1.0
2450 AIE = (.28125 + CSEVL (Z, AIPCS, NAIP))/SQRT(SQRTX)
19245 SQRTX = SQRT(X)
19246 Z = ATR/(X*SQRTX) + BTR
19247 BIE = (0.625 + CSEVL (Z, BIPCS, NBIP)) / SQRT(SQRTX)
19250 50 SQRTX = SQRT(X)
19252 IF (X.LT.XBIG) Z = 16.0/(X*SQRTX) - 1.0
19253 BIE = (0.625 + CSEVL (Z, BIP2CS, NBIP2))/SQRT(SQRTX)
H A Ddp43.F12706 30 SQRTX = SQRT(-X)
12707 AMPL = SQRT (AMPL/SQRTX)
12708 THETA = PI4 - X*SQRTX * THETA