Home
last modified time | relevance | path

Searched refs:xabs (Results 1 – 25 of 674) sorted by relevance

12345678910>>...27

/dports/math/gretl/gretl-2021d/minpack/
H A Denorm.c60 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 Dzwofz.f89 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 Dcwofz.f89 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 Denorm.c95 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 Denorm.f53 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 Denorm.c105 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 Denorm.f54 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 Denorm.f53 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 Denorm.c82 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 Denorm.c107 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 Denorm_.c116 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 Denorm.f53 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 Denorm.f53 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 Denorm.c105 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 Denorm.f53 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 Denorm.f9053 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 Dlgammad2.h157 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 Dasinf4.h80 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 Dlgammad2.h157 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 Dasinf4.h80 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 Ddnsqtest.c130 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 Denorm.lisp78 (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 DSparse-C.cc40 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 Dstruct2.c154 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 Droutage.c121 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 …]

12345678910>>...27