/dports/math/gretl/gretl-2021d/minpack/ |
H A D | enorm.c | 60 xabs = fabs(x[i]); in enorm_() 61 if (xabs > rdwarf && xabs < agiant) { in enorm_() 63 s2 += xabs * xabs; in enorm_() 66 if (xabs > x1max) { in enorm_() 67 d = x1max / xabs; in enorm_() 69 x1max = xabs; in enorm_() 71 d = xabs / x1max; in enorm_() 76 if (xabs > x3max) { in enorm_() 77 d = x3max / xabs; in enorm_() 79 x3max = xabs; in enorm_() [all …]
|
/dports/math/math77/MATH77/ |
H A D | zwofz.f | 89 xabs = abs(z(1)) 91 x = xabs/6.3d0 113 xquad = (xabs - yabs) * (xabs + yabs) 166 ty = xabs - n*ry 174 ty = xabs - n*ry 194 ty = xabs - n*ry 213 ty = xabs - n*ry 241 if (lgov2/yabs .lt. yabs - xabs*(xabs/yabs)) go to 100 242 w1 = 2.0d0*exp((yabs-xabs)*(yabs+xabs)) 254 if (lgov2/xabs .lt. xabs - yabs*(yabs/xabs)) then [all …]
|
H A D | cwofz.f | 89 xabs = abs(z(1)) 91 x = xabs/6.3e0 113 xquad = (xabs - yabs) * (xabs + yabs) 166 ty = xabs - n*ry 174 ty = xabs - n*ry 194 ty = xabs - n*ry 213 ty = xabs - n*ry 241 if (lgov2/yabs .lt. yabs - xabs*(xabs/yabs)) go to 100 242 w1 = 2.0e0*exp((yabs-xabs)*(yabs+xabs)) 254 if (lgov2/xabs .lt. xabs - yabs*(yabs/xabs)) then [all …]
|
/dports/astro/p5-Starlink-AST/Starlink-AST-1.05/ast/cminpack/ |
H A D | enorm.c | 95 xabs = fabs(x[i]); in __cminpack_func__() 96 if (xabs <= rdwarf || xabs >= agiant) { in __cminpack_func__() 97 if (xabs > rdwarf) { in __cminpack_func__() 101 if (xabs > x1max) { in __cminpack_func__() 103 d1 = x1max / xabs; in __cminpack_func__() 105 x1max = xabs; in __cminpack_func__() 108 d1 = xabs / x1max; in __cminpack_func__() 115 if (xabs > x3max) { in __cminpack_func__() 119 x3max = xabs; in __cminpack_func__() 121 if (xabs != 0.) { in __cminpack_func__() [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/minpack/ |
H A D | enorm.f | 53 xabs = dabs(x(i)) 54 if (xabs .gt. rdwarf .and. xabs .lt. agiant) go to 70 55 if (xabs .le. rdwarf) go to 30 59 if (xabs .le. x1max) go to 10 60 s1 = one + s1*(x1max/xabs)**2 61 x1max = xabs 64 s1 = s1 + (xabs/x1max)**2 71 if (xabs .le. x3max) go to 40 73 x3max = xabs 76 if (xabs .ne. zero) s3 = s3 + (xabs/x3max)**2 [all …]
|
H A D | enorm.c | 105 if (xabs > rdwarf && xabs < agiant) { in enorm_() 109 if (xabs <= rdwarf) { in enorm_() 116 if (xabs <= x1max) { in enorm_() 121 d__1 = x1max / xabs; in enorm_() 124 x1max = xabs; in enorm_() 131 d__1 = xabs / x1max; in enorm_() 143 if (xabs <= x3max) { in enorm_() 148 d__1 = x3max / xabs; in enorm_() 151 x3max = xabs; in enorm_() 157 if (xabs != zero) { in enorm_() [all …]
|
/dports/science/py-scipy/scipy-1.7.1/scipy/optimize/minpack/ |
H A D | enorm.f | 54 xabs = dabs(x(i)) 55 if (xabs .gt. rdwarf .and. xabs .lt. agiant) go to 70 56 if (xabs .le. rdwarf) go to 30 60 if (xabs .le. x1max) go to 10 61 s1 = one + s1*(x1max/xabs)**2 62 x1max = xabs 65 s1 = s1 + (xabs/x1max)**2 72 if (xabs .le. x3max) go to 40 74 x3max = xabs 77 if (xabs .ne. zero) s3 = s3 + (xabs/x3max)**2 [all …]
|
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/external/tsai-30b3/minpack/ |
H A D | enorm.f | 53 xabs = dabs(x(i)) 54 if (xabs .gt. rdwarf .and. xabs .lt. agiant) go to 70 55 if (xabs .le. rdwarf) go to 30 59 if (xabs .le. x1max) go to 10 60 s1 = one + s1*(x1max/xabs)**2 61 x1max = xabs 64 s1 = s1 + (xabs/x1max)**2 71 if (xabs .le. x3max) go to 40 73 x3max = xabs 76 if (xabs .ne. zero) s3 = s3 + (xabs/x3max)**2 [all …]
|
H A D | enorm.c | 82 if (xabs > rdwarf && xabs < agiant) { 85 if (xabs <= rdwarf) { 91 if (xabs <= x1max) { 95 d__1 = x1max / xabs; 97 x1max = xabs; 101 d__1 = xabs / x1max; 109 if (xabs <= x3max) { 113 d__1 = x3max / xabs; 115 x3max = xabs; 118 if (xabs != zero) { [all …]
|
/dports/math/cminpack/cminpack-1.3.6/ |
H A D | enorm.c | 107 xabs = fabs(x[i]); in __cminpack_func__() 108 if (xabs >= agiant) { in __cminpack_func__() 110 if (xabs > x1max) { in __cminpack_func__() 112 d1 = x1max / xabs; in __cminpack_func__() 114 x1max = xabs; in __cminpack_func__() 117 d1 = xabs / x1max; in __cminpack_func__() 122 if (xabs > x3max) { in __cminpack_func__() 124 d1 = x3max / xabs; in __cminpack_func__() 126 x3max = xabs; in __cminpack_func__() 129 d1 = xabs / x3max; in __cminpack_func__() [all …]
|
H A D | enorm_.c | 116 xabs = fabs(x[i__]); in __minpack_func__() 117 if (xabs > rdwarf && xabs < agiant) { in __minpack_func__() 126 if (xabs <= x1max) { in __minpack_func__() 130 d__1 = x1max / xabs; in __minpack_func__() 132 x1max = xabs; in __minpack_func__() 136 d__1 = xabs / x1max; in __minpack_func__() 144 if (xabs <= x3max) { in __minpack_func__() 148 d__1 = x3max / xabs; in __minpack_func__() 150 x3max = xabs; in __minpack_func__() 153 if (xabs != 0.) { in __minpack_func__() [all …]
|
/dports/math/cminpack/cminpack-1.3.6/fortran/ |
H A D | enorm.f | 53 xabs = dabs(x(i)) 54 if (xabs .gt. rdwarf .and. xabs .lt. agiant) go to 70 55 if (xabs .le. rdwarf) go to 30 59 if (xabs .le. x1max) go to 10 60 s1 = one + s1*(x1max/xabs)**2 61 x1max = xabs 64 s1 = s1 + (xabs/x1max)**2 71 if (xabs .le. x3max) go to 40 73 x3max = xabs 76 if (xabs .ne. zero) s3 = s3 + (xabs/x3max)**2 [all …]
|
/dports/misc/vxl/vxl-3.3.2/v3p/netlib/minpack/ |
H A D | enorm.f | 53 xabs = dabs(x(i)) 54 if (xabs .gt. rdwarf .and. xabs .lt. agiant) go to 70 55 if (xabs .le. rdwarf) go to 30 59 if (xabs .le. x1max) go to 10 60 s1 = one + s1*(x1max/xabs)**2 61 x1max = xabs 64 s1 = s1 + (xabs/x1max)**2 71 if (xabs .le. x3max) go to 40 73 x3max = xabs 76 if (xabs .ne. zero) s3 = s3 + (xabs/x3max)**2 [all …]
|
H A D | enorm.c | 105 if (xabs > rdwarf && xabs < agiant) { in enorm_() 109 if (xabs <= rdwarf) { in enorm_() 116 if (xabs <= x1max) { in enorm_() 121 d__1 = x1max / xabs; in enorm_() 124 x1max = xabs; in enorm_() 131 d__1 = xabs / x1max; in enorm_() 143 if (xabs <= x3max) { in enorm_() 148 d__1 = x3max / xabs; in enorm_() 151 x3max = xabs; in enorm_() 157 if (xabs != zero) { in enorm_() [all …]
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/optimization/src/fortran/minpack/ |
H A D | enorm.f | 53 xabs = dabs(x(i)) 54 if (xabs .gt. rdwarf .and. xabs .lt. agiant) go to 70 55 if (xabs .le. rdwarf) go to 30 59 if (xabs .le. x1max) go to 10 60 s1 = one + s1*(x1max/xabs)**2 61 x1max = xabs 64 s1 = s1 + (xabs/x1max)**2 71 if (xabs .le. x3max) go to 40 73 x3max = xabs 76 if (xabs .ne. zero) s3 = s3 + (xabs/x3max)**2 [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/GWW/minpack/ |
H A D | enorm.f90 | 53 xabs = dabs(x(i)) 54 if (xabs .gt. rdwarf .and. xabs .lt. agiant) go to 70 55 if (xabs .le. rdwarf) go to 30 59 if (xabs .le. x1max) go to 10 60 s1 = one + s1*(x1max/xabs)**2 61 x1max = xabs 64 s1 = s1 + (xabs/x1max)**2 71 if (xabs .le. x3max) go to 40 73 x3max = xabs 76 if (xabs .ne. zero) s3 = s3 + (xabs/x3max)**2 [all …]
|
/dports/devel/tinygo/tinygo-0.14.1/lib/picolibc/newlib/libm/machine/spu/headers/ |
H A D | lgammad2.h | 157 vec_double2 sum, xabs; in _lgammad2() local 166 xabs = spu_andc(x, sign_maskd); in _lgammad2() 167 xf = spu_roundtf(xabs); in _lgammad2() 183 mresult = spu_mul(xabs, spu_mul(xabs, mresult)); in _lgammad2() 184 mresult = spu_sub(mresult, spu_add(_logd2(xabs), spu_mul(xabs, spu_splats(EULER_MASCHERONI)))); in _lgammad2() 201 xstirling = spu_sel(xabs, spu_add(xabs, spu_splats(6.0)), (vec_ullong2)isshifted); in _lgammad2() 243 shresult = spu_mul(xabs, spu_add(xabs, spu_splats(1.0))); in _lgammad2() 288 xhigh = (vec_uint4)spu_shuffle(xabs, xabs, dup_even); in _lgammad2() 289 xlow = (vec_uint4)spu_shuffle(xabs, xabs, dup_odd); in _lgammad2() 296 xtrunc = _truncd2(xabs); in _lgammad2() [all …]
|
H A D | asinf4.h | 80 vector float xabs, x2, x4, x6; in _asinf4() local 92 xabs = spu_andc(x, (vector float)msb); in _asinf4() 115 r1 = spu_madd(_divf4(p, q), spu_mul(xabs, x2), xabs); in _asinf4() 119 r_hi = spu_madd(spu_splats(-0.0012624911f), xabs, in _asinf4() 121 r_hi = spu_madd(r_hi, xabs, spu_splats(-0.0170881256f)); in _asinf4() 122 r_hi = spu_madd(r_hi, xabs, spu_splats(0.0308918810f)); in _asinf4() 124 r_lo = spu_madd(spu_splats(-0.0501743046f), xabs, in _asinf4() 126 r_lo = spu_madd(r_lo, xabs, spu_splats(-0.2145988016f)); in _asinf4() 127 r_lo = spu_madd(r_lo, xabs, pi_over_2); in _asinf4() 131 r2 = spu_nmsub(r, _sqrtf4(spu_sub(spu_splats(1.0f), xabs)), in _asinf4() [all …]
|
/dports/devel/arm-none-eabi-newlib/newlib-2.4.0/newlib/libm/machine/spu/headers/ |
H A D | lgammad2.h | 157 vec_double2 sum, xabs; in _lgammad2() local 166 xabs = spu_andc(x, sign_maskd); in _lgammad2() 167 xf = spu_roundtf(xabs); in _lgammad2() 183 mresult = spu_mul(xabs, spu_mul(xabs, mresult)); in _lgammad2() 184 mresult = spu_sub(mresult, spu_add(_logd2(xabs), spu_mul(xabs, spu_splats(EULER_MASCHERONI)))); in _lgammad2() 201 xstirling = spu_sel(xabs, spu_add(xabs, spu_splats(6.0)), (vec_ullong2)isshifted); in _lgammad2() 243 shresult = spu_mul(xabs, spu_add(xabs, spu_splats(1.0))); in _lgammad2() 288 xhigh = (vec_uint4)spu_shuffle(xabs, xabs, dup_even); in _lgammad2() 289 xlow = (vec_uint4)spu_shuffle(xabs, xabs, dup_odd); in _lgammad2() 296 xtrunc = _truncd2(xabs); in _lgammad2() [all …]
|
H A D | asinf4.h | 80 vector float xabs, x2, x4, x6; in _asinf4() local 92 xabs = spu_andc(x, (vector float)msb); in _asinf4() 115 r1 = spu_madd(_divf4(p, q), spu_mul(xabs, x2), xabs); in _asinf4() 119 r_hi = spu_madd(spu_splats(-0.0012624911f), xabs, in _asinf4() 121 r_hi = spu_madd(r_hi, xabs, spu_splats(-0.0170881256f)); in _asinf4() 122 r_hi = spu_madd(r_hi, xabs, spu_splats(0.0308918810f)); in _asinf4() 124 r_lo = spu_madd(spu_splats(-0.0501743046f), xabs, in _asinf4() 126 r_lo = spu_madd(r_lo, xabs, spu_splats(-0.2145988016f)); in _asinf4() 127 r_lo = spu_madd(r_lo, xabs, pi_over_2); in _asinf4() 131 r2 = spu_nmsub(r, _sqrtf4(spu_sub(spu_splats(1.0f), xabs)), in _asinf4() [all …]
|
/dports/graphics/argyllcms/Argyll_V1.9.2/numlib/ |
H A D | dnsqtest.c | 130 static double xabs, x1max, x3max; in denorm() local 143 xabs = (td = x[i], fabs(td)); in denorm() 146 if (xabs > rdwarf && xabs < agiant) { in denorm() 151 } else if (xabs <= rdwarf) { in denorm() 152 if (xabs <= x3max) { in denorm() 154 td = xabs / x3max; in denorm() 158 td = x3max / xabs; in denorm() 160 x3max = xabs; in denorm() 166 td = xabs / x1max; in denorm() 169 td = x1max / xabs; in denorm() [all …]
|
/dports/math/maxima/maxima-5.43.2/share/minpack/lisp/ |
H A D | enorm.lisp | 78 (setf xabs 81 (if (and (> xabs rdwarf) (< xabs agiant)) (go label70)) 82 (if (<= xabs rdwarf) (go label30)) 86 (if (<= xabs x1max) (go label10)) 87 (setf s1 (+ one (* s1 (expt (/ x1max xabs) 2)))) 88 (setf x1max xabs) 91 (setf s1 (+ s1 (expt (/ xabs x1max) 2))) 98 (if (<= xabs x3max) (go label40)) 100 (setf x3max xabs) 103 (if (/= xabs zero) (setf s3 (+ s3 (expt (/ xabs x3max) 2)))) [all …]
|
/dports/math/octave/octave-6.4.0/liboctave/array/ |
H A D | Sparse-C.cc | 40 xabs (const Complex& x) in xabs() function 50 return (octave::math::isnan (b) || (xabs (a) < xabs (b)) in sparse_ascending_compare() 51 || ((xabs (a) == xabs (b)) && (arg (a) < arg (b)))); in sparse_ascending_compare() 58 return (octave::math::isnan (a) || (xabs (a) > xabs (b)) in sparse_descending_compare() 59 || ((xabs (a) == xabs (b)) && (arg (a) > arg (b)))); in sparse_descending_compare()
|
/dports/cad/alliance/alliance/src/ring/src/ |
H A D | struct2.c | 154 if ((liste_coor)->xabs > pt_coord->xabs) { 173 if ((liste_coor)->xabs > pt_coord->xabs) { 467 if ((liste_coor)->xabs > pt_coord->xabs) { 603 if (c1->xabs <= c2->xabs) { 758 if (coor1->xabs <= coor2->xabs) { 787 if (((c1->xabs >= (liste_seg->c1)->xabs) && (c1->xabs <= (liste_seg->c2)->xabs)) 788 || ((c2->xabs >= (liste_seg->c1)->xabs) && (c2->xabs <= (liste_seg->c2)->xabs)) 789 || ((c1->xabs < (liste_seg->c1)->xabs) && (c2->xabs > (liste_seg->c2)->xabs))) 792 (((c1->xabs > (liste_seg->c1)->xabs) && (c1->xabs < (liste_seg->c2)->xabs)) || ((c2->xabs > 793 …(liste_seg->c1)->xabs) && (c2->xabs < (liste_seg->c2)->xabs)) || ((c1->xabs < (liste_seg->c1)->xab… [all …]
|
H A D | routage.c | 121 valcurv = lecoeur.height + coord->xabs - lecoeur.coord.xabs; in calcul_curv() 351 coin->xabs = lecoeur.coord.xabs - pistedebut * pitch; in construit_couronne() 408 coin->xabs = lecoeur.coord.xabs - 10; in construit_couronne() 416 coin->xabs = lecoeur.width + lecoeur.coord.xabs + 10; in construit_couronne() 461 coin->xabs = lecoeur.coord.xabs - piste_cour[OUEST] * pitch; in construit_couronne() 472 coin->xabs = lecoeur.coord.xabs - pistedebut * pitch; in construit_couronne() 492 debut_coor->xabs = lecoeur.coord.xabs - pistedebut * pitch; in construit_couronne() 531 coin->xabs = lecoeur.coord.xabs + lecoeur.width + 10; in ajout_segmentpiste() 532 (*nouveaucoin)->xabs = lecoeur.coord.xabs - 10; in ajout_segmentpiste() 538 coin->xabs = lecoeur.coord.xabs - 10; in ajout_segmentpiste() [all …]
|