/dports/math/scilab/scilab-6.1.1/scilab/modules/scicos/src/scicos_sundials/src/ida/ |
H A D | ida_direct.c | 346 realtype inc, inc_inv, yj, ypj, srur, conj; in idaDlsDenseDQJac() local 385 ypj = yp_data[j]; in idaDlsDenseDQJac() 393 if (hh * ypj < ZERO) in idaDlsDenseDQJac() 438 yp_data[j] = ypj; in idaDlsDenseDQJac() 469 realtype inc, inc_inv, yj, ypj, srur, conj, ewtj; in idaDlsBandDQJac() local 526 ypj = yp_data[j]; in idaDlsBandDQJac() 533 inc = MAX( srur * MAX( ABS(yj), ABS(hh * ypj) ) , ONE / ewtj ); in idaDlsBandDQJac() 535 if (hh * ypj < ZERO) in idaDlsBandDQJac() 585 ypj = yptemp_data[j] = yp_data[j]; in idaDlsBandDQJac() 591 inc = MAX( srur * MAX( ABS(yj), ABS(hh * ypj) ) , ONE / ewtj ); in idaDlsBandDQJac() [all …]
|
/dports/science/simbody/simbody-Simbody-3.7/SimTKmath/Integrators/src/CPodes/sundials/src/cpodes/ |
H A D | cpodes_direct.c | 501 realtype inc, inc_inv, yj, ypj, srur; in cpDlsDenseDQJacImpl() local 536 ypj = yp_data[j]; in cpDlsDenseDQJacImpl() 542 if (h*ypj < ZERO) inc = -inc; in cpDlsDenseDQJacImpl() 560 yp_data[j] = ypj; in cpDlsDenseDQJacImpl() 674 realtype inc, inc_inv, yj, ypj, srur, ewtj; in cpDlsBandDQJacImpl() local 715 ypj = yp_data[j]; in cpDlsBandDQJacImpl() 721 inc = MAX( srur * MAX( ABS(yj), ABS(h*ypj) ) , ONE/ewtj ); in cpDlsBandDQJacImpl() 723 if (h*ypj < ZERO) inc = -inc; in cpDlsBandDQJacImpl() 741 ypj = yptemp_data[j] = yp_data[j]; in cpDlsBandDQJacImpl() 746 inc = MAX( srur * MAX( ABS(yj), ABS(h*ypj) ) , ONE/ewtj ); in cpDlsBandDQJacImpl() [all …]
|
H A D | cpodes_bandpre.c | 686 realtype inc, inc_inv, yj, ypj, srur, ewtj; in cpBandPDQJacImpl() local 718 ypj = yp_data[j]; in cpBandPDQJacImpl() 724 inc = MAX( srur * MAX( ABS(yj), ABS(h*ypj) ) , ONE/ewtj ); in cpBandPDQJacImpl() 726 if (h*ypj < ZERO) inc = -inc; in cpBandPDQJacImpl() 744 ypj = yptemp_data[j] = yp_data[j]; in cpBandPDQJacImpl() 749 inc = MAX( srur * MAX( ABS(yj), ABS(h*ypj) ) , ONE/ewtj ); in cpBandPDQJacImpl() 750 if (h*ypj < ZERO) inc = -inc; in cpBandPDQJacImpl()
|
H A D | cpodes_bbdpre.c | 822 realtype *col_j, yj, ypj, ewtj; in cpBBDDQJacImpl() local 859 ypj = ypdata[j]; in cpBBDDQJacImpl() 865 inc = dqrely*MAX(ABS(yj), MAX( ABS(h*ypj), ONE/ewtj)); in cpBBDDQJacImpl() 866 if (h*ypj < ZERO) inc = -inc; in cpBBDDQJacImpl() 883 ypj = yptempdata[j] = ypdata[j]; in cpBBDDQJacImpl() 887 inc = dqrely*MAX(ABS(yj), MAX( ABS(h*ypj), ONE/ewtj)); in cpBBDDQJacImpl() 888 if (h*ypj < ZERO) inc = -inc; in cpBBDDQJacImpl()
|
/dports/math/casadi/casadi-3.5.5/external_packages/casadi-sundials/idas/ |
H A D | idas_direct.c | 357 realtype inc, inc_inv, yj, ypj, srur, conj; in idaDlsDenseDQJac() local 392 ypj = yp_data[j]; in idaDlsDenseDQJac() 400 if (hh*ypj < ZERO) inc = -inc; in idaDlsDenseDQJac() 427 yp_data[j] = ypj; in idaDlsDenseDQJac() 458 realtype inc, inc_inv, yj, ypj, srur, conj, ewtj; in idaDlsBandDQJac() local 511 ypj = yp_data[j]; in idaDlsBandDQJac() 518 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(hh*ypj) ) , ONE/ewtj ); in idaDlsBandDQJac() 520 if (hh*ypj < ZERO) inc = -inc; in idaDlsBandDQJac() 550 ypj = yptemp_data[j] = yp_data[j]; in idaDlsBandDQJac() 556 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(hh*ypj) ) , ONE/ewtj ); in idaDlsBandDQJac() [all …]
|
H A D | idas_bbdpre.c | 502 realtype *col_j, conj, yj, ypj, ewtj; in IBBDDQJac() local 546 ypj = ypdata[j]; in IBBDDQJac() 552 inc = rel_yy*SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(hh*ypj), ONE/ewtj)); in IBBDDQJac() 553 if (hh*ypj < ZERO) inc = -inc; in IBBDDQJac() 578 ypj = yptempdata[j] = ypdata[j]; in IBBDDQJac() 582 inc = rel_yy*SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(hh*ypj), ONE/ewtj)); in IBBDDQJac() 583 if (hh*ypj < ZERO) inc = -inc; in IBBDDQJac()
|
/dports/devel/upp/upp/bazaar/plugin/sundials/src/ida/ |
H A D | ida_ls.c | 858 realtype inc, inc_inv, yj, ypj, srur, conj; in idaLsDenseDQJac() local 893 ypj = yp_data[j]; in idaLsDenseDQJac() 899 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsDenseDQJac() 902 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsDenseDQJac() 926 yp_data[j] = ypj; in idaLsDenseDQJac() 955 realtype inc, inc_inv, yj, ypj, srur, conj, ewtj; in idaLsBandDQJac() local 1003 ypj = yp_data[j]; in idaLsBandDQJac() 1011 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsBandDQJac() 1036 ypj = yptemp_data[j] = yp_data[j]; in idaLsBandDQJac() 1041 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsBandDQJac() [all …]
|
H A D | ida_bbdpre.c | 567 realtype *col_j, conj, yj, ypj, ewtj; in IBBDDQJac() local 606 ypj = ypdata[j]; in IBBDDQJac() 613 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 614 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac() 639 ypj = yptempdata[j] = ypdata[j]; in IBBDDQJac() 644 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 645 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac()
|
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/src/ida/ |
H A D | ida_ls.c | 891 realtype inc, inc_inv, yj, ypj, srur, conj; in idaLsDenseDQJac() local 926 ypj = yp_data[j]; in idaLsDenseDQJac() 932 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsDenseDQJac() 935 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsDenseDQJac() 959 yp_data[j] = ypj; in idaLsDenseDQJac() 988 realtype inc, inc_inv, yj, ypj, srur, conj, ewtj; in idaLsBandDQJac() local 1036 ypj = yp_data[j]; in idaLsBandDQJac() 1044 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsBandDQJac() 1069 ypj = yptemp_data[j] = yp_data[j]; in idaLsBandDQJac() 1074 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsBandDQJac() [all …]
|
H A D | ida_bbdpre.c | 567 realtype *col_j, conj, yj, ypj, ewtj; in IBBDDQJac() local 606 ypj = ypdata[j]; in IBBDDQJac() 613 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 614 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac() 639 ypj = yptempdata[j] = ypdata[j]; in IBBDDQJac() 644 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 645 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac()
|
/dports/math/sundials/sundials-5.7.0/src/ida/ |
H A D | ida_bbdpre.c | 567 realtype *col_j, conj, yj, ypj, ewtj; in IBBDDQJac() local 606 ypj = ypdata[j]; in IBBDDQJac() 613 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 614 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac() 639 ypj = yptempdata[j] = ypdata[j]; in IBBDDQJac() 644 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 645 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac()
|
H A D | ida_ls.c | 920 realtype inc, inc_inv, yj, ypj, srur, conj; in idaLsDenseDQJac() local 955 ypj = yp_data[j]; in idaLsDenseDQJac() 961 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsDenseDQJac() 964 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsDenseDQJac() 988 yp_data[j] = ypj; in idaLsDenseDQJac() 1017 realtype inc, inc_inv, yj, ypj, srur, conj, ewtj; in idaLsBandDQJac() local 1065 ypj = yp_data[j]; in idaLsBandDQJac() 1073 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsBandDQJac() 1098 ypj = yptemp_data[j] = yp_data[j]; in idaLsBandDQJac() 1103 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsBandDQJac() [all …]
|
/dports/math/stanmath/math-4.2.0/lib/sundials_5.7.0/src/idas/ |
H A D | idas_bbdpre.c | 583 realtype *col_j, conj, yj, ypj, ewtj; in IBBDDQJac() local 622 ypj = ypdata[j]; in IBBDDQJac() 629 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 630 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac() 655 ypj = yptempdata[j] = ypdata[j]; in IBBDDQJac() 660 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 661 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac()
|
H A D | idas_ls.c | 971 realtype inc, inc_inv, yj, ypj, srur, conj; in idaLsDenseDQJac() local 1006 ypj = yp_data[j]; in idaLsDenseDQJac() 1012 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsDenseDQJac() 1015 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsDenseDQJac() 1039 yp_data[j] = ypj; in idaLsDenseDQJac() 1068 realtype inc, inc_inv, yj, ypj, srur, conj, ewtj; in idaLsBandDQJac() local 1116 ypj = yp_data[j]; in idaLsBandDQJac() 1124 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsBandDQJac() 1149 ypj = yptemp_data[j] = yp_data[j]; in idaLsBandDQJac() 1154 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsBandDQJac() [all …]
|
/dports/science/cantera/cantera-2.5.1-611-gc4d6ecc15/ext/sundials/src/idas/ |
H A D | idas_bbdpre.c | 583 realtype *col_j, conj, yj, ypj, ewtj; in IBBDDQJac() local 622 ypj = ypdata[j]; in IBBDDQJac() 629 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 630 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac() 655 ypj = yptempdata[j] = ypdata[j]; in IBBDDQJac() 660 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 661 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac()
|
H A D | idas_ls.c | 942 realtype inc, inc_inv, yj, ypj, srur, conj; in idaLsDenseDQJac() local 977 ypj = yp_data[j]; in idaLsDenseDQJac() 983 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsDenseDQJac() 986 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsDenseDQJac() 1010 yp_data[j] = ypj; in idaLsDenseDQJac() 1039 realtype inc, inc_inv, yj, ypj, srur, conj, ewtj; in idaLsBandDQJac() local 1087 ypj = yp_data[j]; in idaLsBandDQJac() 1095 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsBandDQJac() 1120 ypj = yptemp_data[j] = yp_data[j]; in idaLsBandDQJac() 1125 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsBandDQJac() [all …]
|
/dports/math/sundials/sundials-5.7.0/src/idas/ |
H A D | idas_bbdpre.c | 583 realtype *col_j, conj, yj, ypj, ewtj; in IBBDDQJac() local 622 ypj = ypdata[j]; in IBBDDQJac() 629 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 630 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac() 655 ypj = yptempdata[j] = ypdata[j]; in IBBDDQJac() 660 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 661 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac()
|
H A D | idas_ls.c | 971 realtype inc, inc_inv, yj, ypj, srur, conj; in idaLsDenseDQJac() local 1006 ypj = yp_data[j]; in idaLsDenseDQJac() 1012 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsDenseDQJac() 1015 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsDenseDQJac() 1039 yp_data[j] = ypj; in idaLsDenseDQJac() 1068 realtype inc, inc_inv, yj, ypj, srur, conj, ewtj; in idaLsBandDQJac() local 1116 ypj = yp_data[j]; in idaLsBandDQJac() 1124 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsBandDQJac() 1149 ypj = yptemp_data[j] = yp_data[j]; in idaLsBandDQJac() 1154 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsBandDQJac() [all …]
|
/dports/math/py-pystan/pystan-2.19.0.0/pystan/stan/lib/stan_math/lib/sundials_4.1.0/src/idas/ |
H A D | idas_bbdpre.c | 584 realtype *col_j, conj, yj, ypj, ewtj; in IBBDDQJac() local 623 ypj = ypdata[j]; in IBBDDQJac() 630 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 631 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac() 656 ypj = yptempdata[j] = ypdata[j]; in IBBDDQJac() 661 SUNMAX(SUNRabs(yj), SUNMAX( SUNRabs(IDA_mem->ida_hh*ypj), ONE/ewtj)); in IBBDDQJac() 662 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in IBBDDQJac()
|
H A D | idas_ls.c | 865 realtype inc, inc_inv, yj, ypj, srur, conj; in idaLsDenseDQJac() local 900 ypj = yp_data[j]; in idaLsDenseDQJac() 906 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsDenseDQJac() 909 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsDenseDQJac() 933 yp_data[j] = ypj; in idaLsDenseDQJac() 962 realtype inc, inc_inv, yj, ypj, srur, conj, ewtj; in idaLsBandDQJac() local 1010 ypj = yp_data[j]; in idaLsBandDQJac() 1018 if (IDA_mem->ida_hh*ypj < ZERO) inc = -inc; in idaLsBandDQJac() 1043 ypj = yptemp_data[j] = yp_data[j]; in idaLsBandDQJac() 1048 inc = SUNMAX( srur * SUNMAX( SUNRabs(yj), SUNRabs(IDA_mem->ida_hh*ypj) ), in idaLsBandDQJac() [all …]
|
/dports/games/popstar/popstar-0.0.2/ |
H A D | popstar.c | 1414 int xpi, ypi, xpj, ypj; in inside() local 1422 ypj = stars[stars_selected[j]].y; in inside() 1424 if ((((ypi <= y) && (y < ypj)) || ((ypj <= y) && (y < ypi))) && in inside() 1425 (x < (xpj - xpi) * (y - ypi) / (ypj - ypi) + xpi)) in inside()
|
/dports/games/penguin-command/penguin-command-1.6.11/src/ |
H A D | SDL_gfxPrimitives.c | 1869 int xmi, xpi, ymj, ypj; in ellipseColor() local 1946 ypj=y+j; in ellipseColor() 1948 result |= fastPixelColorNolock (dst,xmi,ypj, color); in ellipseColor() 1949 result |= fastPixelColorNolock (dst,xpi,ypj, color); in ellipseColor() 2043 ypj=y+j; in ellipseColor() 2045 result |= pixelColor (dst,xmi,ypj, color); in ellipseColor() 2046 result |= pixelColor (dst,xpi,ypj, color); in ellipseColor()
|
/dports/games/megamario/MegaMario_v1.7_full/src/src_Editor/ |
H A D | Gfx.cpp | 1466 int xmi, xpi, ymj, ypj; in EllipseColor() local 1584 ypj = y + j; in EllipseColor() 1586 result |= FastPixelColorNolock(dst, xmi, ypj, color); in EllipseColor() 1587 result |= FastPixelColorNolock(dst, xpi, ypj, color); in EllipseColor() 1678 ypj = y + j; in EllipseColor() 1680 result |= PixelColorNolock (dst, xmi, ypj, color); in EllipseColor() 1681 result |= PixelColorNolock (dst, xpi, ypj, color); in EllipseColor()
|
/dports/games/megamario/MegaMario_v1.7_full/src/ |
H A D | SDL_gfxPrimitives.c | 2247 int xmi, xpi, ymj, ypj; in ellipseColor() local 2365 ypj = y + j; in ellipseColor() 2367 result |= fastPixelColorNolock(dst, xmi, ypj, color); in ellipseColor() 2368 result |= fastPixelColorNolock(dst, xpi, ypj, color); in ellipseColor() 2459 ypj = y + j; in ellipseColor() 2461 result |= pixelColorNolock (dst, xmi, ypj, color); in ellipseColor() 2462 result |= pixelColorNolock (dst, xpi, ypj, color); in ellipseColor()
|
/dports/games/fillets-ng/fillets-ng-1.0.1/src/SDL_gfx/ |
H A D | SDL_gfxPrimitives.c | 2247 int xmi, xpi, ymj, ypj; in ellipseColor() local 2365 ypj = y + j; in ellipseColor() 2367 result |= fastPixelColorNolock(dst, xmi, ypj, color); in ellipseColor() 2368 result |= fastPixelColorNolock(dst, xpi, ypj, color); in ellipseColor() 2459 ypj = y + j; in ellipseColor() 2461 result |= pixelColorNolock (dst, xmi, ypj, color); in ellipseColor() 2462 result |= pixelColorNolock (dst, xpi, ypj, color); in ellipseColor()
|