/dports/math/jags/JAGS-4.3.0/src/jrmath/ |
H A D | bessel_j.c | 220 const static double twopi1 = 6.28125; in J_bessel() local 326 t = trunc(*x / (twopi1 + twopi2) + .5); in J_bessel() 327 z = (*x - t * twopi1) - t * twopi2 - (nu + .5) / pi2; in J_bessel()
|
/dports/biology/vt/vt-0.57721/lib/Rmath/ |
H A D | bessel_j.c | 211 const static double twopi1 = 6.28125; in J_bessel() local 317 t = ftrunc(*x / (twopi1 + twopi2) + .5); in J_bessel() 318 z = (*x - t * twopi1) - t * twopi2 - (nu + .5) / pi2; in J_bessel()
|
/dports/emulators/hatari/hatari-2.2.1/src/cpu/softfloat/ |
H A D | softfloat_fpsp.c | 403 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; in floatx80_cos() local 436 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_cos() 454 twopi1 = packFloatx80(0, 0x3FFF + l, LIT64(0xC90FDAA200000000)); in floatx80_cos() 463 fp4 = floatx80_mul(twopi1, fp2, status); // W = N*P1 in floatx80_cos() 1416 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_sin() 1434 twopi1 = packFloatx80(0, 0x3FFF + l, LIT64(0xC90FDAA200000000)); in floatx80_sin() 1443 fp4 = floatx80_mul(twopi1, fp2, status); // W = N*P1 in floatx80_sin() 1659 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; in floatx80_tan() local 1690 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_tan() 1708 twopi1 = packFloatx80(0, 0x3FFF + l, LIT64(0xC90FDAA200000000)); in floatx80_tan() [all …]
|
/dports/math/R/R-4.1.2/src/nmath/ |
H A D | bessel_j.c | 220 const static double twopi1 = 6.28125; in J_bessel() local 326 t = trunc(*x / (twopi1 + twopi2) + .5); in J_bessel() 327 z = (*x - t * twopi1) - t * twopi2 - (nu + .5) / pi2; in J_bessel()
|
/dports/math/libRmath/R-4.1.1/src/nmath/ |
H A D | bessel_j.c | 220 const static double twopi1 = 6.28125; in J_bessel() local 326 t = trunc(*x / (twopi1 + twopi2) + .5); in J_bessel() 327 z = (*x - t * twopi1) - t * twopi2 - (nu + .5) / pi2; in J_bessel()
|
/dports/math/py-rvlib/rvlib-0.0.6/src/ |
H A D | bessel_j.c | 220 const static double twopi1 = 6.28125; in J_bessel() local 326 t = trunc(*x / (twopi1 + twopi2) + .5); in J_bessel() 327 z = (*x - t * twopi1) - t * twopi2 - (nu + .5) / pi2; in J_bessel()
|
/dports/emulators/qemu-utils/qemu-4.2.1/target/m68k/ |
H A D | softfloat.c | 1296 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; in floatx80_tan() local 1331 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_tan() 1335 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_tan() 1365 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_tan() 1506 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; in floatx80_sin() local 1541 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_sin() 1545 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_sin() 1575 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_sin() 1780 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_cos() 1784 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_cos() [all …]
|
/dports/emulators/qemu5/qemu-5.2.0/target/m68k/ |
H A D | softfloat.c | 1213 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; in floatx80_tan() local 1248 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_tan() 1252 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_tan() 1282 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_tan() 1423 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; in floatx80_sin() local 1458 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_sin() 1462 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_sin() 1492 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_sin() 1697 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_cos() 1701 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_cos() [all …]
|
/dports/emulators/qemu-guest-agent/qemu-5.0.1/target/m68k/ |
H A D | softfloat.c | 1296 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; in floatx80_tan() local 1331 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_tan() 1335 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_tan() 1365 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_tan() 1506 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; in floatx80_sin() local 1541 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_sin() 1545 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_sin() 1575 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_sin() 1780 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_cos() 1784 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_cos() [all …]
|
/dports/emulators/qemu-powernv/qemu-powernv-3.0.50/target/m68k/ |
H A D | softfloat.c | 1290 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; in floatx80_tan() local 1325 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_tan() 1329 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_tan() 1359 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_tan() 1500 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; in floatx80_sin() local 1535 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_sin() 1539 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_sin() 1569 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_sin() 1774 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_cos() 1778 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_cos() [all …]
|
/dports/emulators/qemu42/qemu-4.2.1/target/m68k/ |
H A D | softfloat.c | 1296 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; in floatx80_tan() local 1331 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_tan() 1335 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_tan() 1365 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_tan() 1506 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; in floatx80_sin() local 1541 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_sin() 1545 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_sin() 1575 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_sin() 1780 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_cos() 1784 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_cos() [all …]
|
/dports/emulators/qemu-cheri/qemu-0a323821042c36e21ea80e58b9545dfc3b0cb8ef/target/m68k/ |
H A D | softfloat.c | 1296 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; in floatx80_tan() local 1331 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_tan() 1335 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_tan() 1365 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_tan() 1506 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; in floatx80_sin() local 1541 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_sin() 1545 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_sin() 1575 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_sin() 1780 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_cos() 1784 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_cos() [all …]
|
/dports/emulators/qemu-devel/qemu-de8ed1055c2ce18c95f597eb10df360dcb534f99/target/m68k/ |
H A D | softfloat.c | 1221 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; in floatx80_tan() local 1256 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_tan() 1260 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_tan() 1290 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_tan() 1432 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; in floatx80_sin() local 1467 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_sin() 1471 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_sin() 1501 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_sin() 1707 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_cos() 1711 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_cos() [all …]
|
/dports/emulators/qemu/qemu-6.2.0/target/m68k/ |
H A D | softfloat.c | 1221 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; in floatx80_tan() local 1256 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_tan() 1260 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_tan() 1290 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_tan() 1432 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; in floatx80_sin() local 1467 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_sin() 1471 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_sin() 1501 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_sin() 1707 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_cos() 1711 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_cos() [all …]
|
/dports/emulators/qemu60/qemu-6.0.0/target/m68k/ |
H A D | softfloat.c | 1213 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, invtwopi, twopi1, twopi2; in floatx80_tan() local 1248 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_tan() 1252 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_tan() 1282 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_tan() 1423 floatx80 fp0, fp1, fp2, fp3, fp4, fp5, x, invtwopi, twopi1, twopi2; in floatx80_sin() local 1458 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_sin() 1462 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_sin() 1492 fp4 = floatx80_mul(twopi1, fp2, status); /* W = N*P1 */ in floatx80_sin() 1697 twopi1 = packFloatx80(aSign ^ 1, 0x7FFE, in floatx80_cos() 1701 fp0 = floatx80_add(fp0, twopi1, status); in floatx80_cos() [all …]
|