| /dports/science/cdcl/dcl-5.4.8-C/src/math1/maplib/ |
| H A D | mpfrbs.c | 24 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8, r__9; in mpfrbs_0_() local
52 r__5 = yy, r__5 *= r__5, r__6 = r__5, r__5 *= r__5; in mpfrbs_0_()
56 r__3 * r__3) * .12723f - r__4 * r__4 * .0467883f + r__6 * (r__5 * in mpfrbs_0_()
57 r__5) * .00413844f + r__7 * (r__7 * r__7) * 9.10851e-4f; in mpfrbs_0_()
63 r__4 = yy, r__5 = r__4, r__4 *= r__4, r__5 *= r__4; in mpfrbs_0_()
67 r__2) * .0204323f + r__5 * (r__4 * r__4) * .00940259f - r__7 * ( in mpfrbs_0_()
80 r__4 = yy, r__5 = r__4, r__4 *= r__4, r__5 *= r__4; in mpfrbs_0_()
86 r__2) * 17.5922f + r__5 * (r__4 * r__4) * 61.9335f + r__7 * (r__6 in mpfrbs_0_()
97 r__5 = *ylat, r__5 *= r__5, r__6 = r__5, r__5 *= r__5; in mpfrbs_0_()
102 (r__5 * r__5) * .00413844f + r__7 * (r__7 * r__7) * 9.10851e-4f); in mpfrbs_0_()
|
| H A D | mpfvdg.c | 27 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8, r__9, r__10, r__11, in mpxvdg_() local
81 r__4 = phi, r__5 = r__4, r__4 *= r__4, r__5 *= r__4; in mpxvdg_()
93 r__2 * r__2) * 2.441382f + r__5 * (r__4 * r__4) * 5.923668f - in mpxvdg_()
115 r__5 = p; in mpxvdg_()
123 r__3) - (r__5 * r__5 + r__6 * r__6) * (r__7 * r__7 - r__8 * r__8)) in mpxvdg_()
137 r__5 = q; in mpxvdg_()
143 r__3 + r__4 * r__4) - r__5 * r__5), abs(r__1)) / (r__6 * r__6 + in mpxvdg_()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | slasy2.c | 197 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8; in slasy2_() local
303 r__8 = (r__5 = tr[(tr_dim1 << 1) + 2], f2c_abs(r__5)); // ; expr subst in slasy2_()
328 r__8 = (r__5 = tl[(tl_dim1 << 1) + 2], f2c_abs(r__5)); // ; expr subst in slasy2_()
413 …r__5 = (r__1 = tr[tr_dim1 + 1], f2c_abs(r__1)), r__6 = (r__2 = tr[(tr_dim1 << 1) + 1], f2c_abs(r__… in slasy2_()
414 r__5 = max(r__5,r__6); in slasy2_()
416 smin = max(r__5,r__6); in slasy2_()
418 …r__5 = smin, r__6 = (r__1 = tl[tl_dim1 + 1], f2c_abs(r__1)), r__5 = max(r__5, r__6), r__6 = (r__2 … in slasy2_()
419 r__5 = max(r__5,r__6); in slasy2_()
421 smin = max(r__5,r__6); in slasy2_()
|
| H A D | slagv2.c | 151 real r__1, r__2, r__3, r__4, r__5, r__6; in slagv2_() local
200 r__5 = (r__1 = a[a_dim1 + 1], f2c_abs(r__1)) + (r__2 = a[a_dim1 + 2], f2c_abs( r__2)); in slagv2_()
202 r__5 = max(r__5,r__6); // ; expr subst in slagv2_()
203 anorm = max(r__5,safmin); in slagv2_()
212 …r__5 = (r__1 = b[(b_dim1 << 1) + 1], f2c_abs(r__1)) + (r__2 = b[(b_dim1 << 1) + 2], f2c_abs(r__2)); in slagv2_()
213 r__4 = max(r__4,r__5); // ; expr subst in slagv2_()
287 … r__5 = (r__1 = a[a_dim1 + 1], f2c_abs(r__1)) + (r__2 = a[(a_dim1 << 1) + 1], f2c_abs(r__2)); in slagv2_()
289 h1 = max(r__5,r__6); in slagv2_()
291 … r__5 = (r__1 = b[b_dim1 + 1], f2c_abs(r__1)) + (r__2 = b[(b_dim1 << 1) + 1], f2c_abs(r__2)); in slagv2_()
293 h2 = max(r__5,r__6); in slagv2_()
|
| H A D | cgtrfs.c | 211 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8, r__9, r__10, r__11, r__12, r__13, r__14; in cgtrfs_() local
365 …_abs( r__3)) + (r__4 = r_imag(&d__[1]), f2c_abs(r__4))) * (( r__5 = x[i__3].r, f2c_abs(r__5)) + (r… in cgtrfs_()
372 …_abs( r__3)) + (r__4 = r_imag(&d__[1]), f2c_abs(r__4))) * (( r__5 = x[i__3].r, f2c_abs(r__5)) + (r… in cgtrfs_()
385 …s(r__3)) + (r__4 = r_imag(&dl[i__ - 1]), f2c_abs(r__4))) * ((r__5 = x[i__5].r, f2c_abs(r__5) ) + (… in cgtrfs_()
393 …bs(r__3)) + (r__4 = r_imag(&dl[*n - 1]), f2c_abs(r__4))) * ((r__5 = x[i__4].r, f2c_abs(r__5)) + (r… in cgtrfs_()
402 …_abs( r__3)) + (r__4 = r_imag(&d__[1]), f2c_abs(r__4))) * (( r__5 = x[i__3].r, f2c_abs(r__5)) + (r… in cgtrfs_()
409 …_abs( r__3)) + (r__4 = r_imag(&d__[1]), f2c_abs(r__4))) * (( r__5 = x[i__3].r, f2c_abs(r__5)) + (r… in cgtrfs_()
422 …s(r__3)) + (r__4 = r_imag(&du[i__ - 1]), f2c_abs(r__4))) * ((r__5 = x[i__5].r, f2c_abs(r__5) ) + (… in cgtrfs_()
430 …bs(r__3)) + (r__4 = r_imag(&du[*n - 1]), f2c_abs(r__4))) * ((r__5 = x[i__4].r, f2c_abs(r__5)) + (r… in cgtrfs_()
|
| H A D | slagts.c | 154 real r__1, r__2, r__3, r__4, r__5; in slagts_() local
233 …r__4 = *tol, r__5 = (r__1 = a[k], f2c_abs(r__1)), r__4 = max(r__4, r__5), r__5 = (r__2 = b[k - 1],… in slagts_()
234 r__4 = max(r__4,r__5); in slagts_()
235 r__5 = (r__3 = d__[k - 2], f2c_abs(r__3)); // ; expr subst in slagts_()
236 *tol = max(r__4,r__5); in slagts_()
|
| H A D | slag2.c | 149 real r__1, r__2, r__3, r__4, r__5, r__6; in slag2_() local
183 r__5 = (r__1 = a[a_dim1 + 1], f2c_abs(r__1)) + (r__2 = a[a_dim1 + 2], f2c_abs( r__2)); in slag2_()
185 r__5 = max(r__5,r__6); // ; expr subst in slag2_()
186 anorm = max(r__5,*safmin); in slag2_()
389 r__5 = f2c_abs(*wr2); in slag2_()
391 r__4 = max(r__5,c5) * .5f; // , expr subst in slag2_()
|
| H A D | cptrfs.c | 182 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8, r__9, r__10, r__11, r__12; in cptrfs_() local
347 …x.r, f2c_abs(r__3)) + (r__4 = r_imag(&dx), f2c_abs(r__4))) + ((r__5 = e[1].r, f2c_abs(r__5)) + (r_… in cptrfs_()
387 …s(r__3)) + (r__4 = r_imag(&e[i__ - 1]), f2c_abs(r__4))) * (( r__5 = x[i__4].r, f2c_abs(r__5)) + (r… in cptrfs_()
414 …abs(r__3)) + (r__4 = r_imag(&e[*n - 1]), f2c_abs(r__4))) * ((r__5 = x[i__3].r, f2c_abs(r__5)) + (r… in cptrfs_()
458 …x.r, f2c_abs(r__3)) + (r__4 = r_imag(&dx), f2c_abs(r__4))) + ((r__5 = e[1].r, f2c_abs(r__5)) + (r_… in cptrfs_()
498 …s(r__3)) + (r__4 = r_imag(&e[i__ - 1]), f2c_abs(r__4))) * (( r__5 = x[i__4].r, f2c_abs(r__5)) + (r… in cptrfs_()
525 …abs(r__3)) + (r__4 = r_imag(&e[*n - 1]), f2c_abs(r__4))) * ((r__5 = x[i__3].r, f2c_abs(r__5)) + (r… in cptrfs_()
|
| H A D | ctgevc.c | 230 real r__1, r__2, r__3, r__4, r__5, r__6; in ctgevc_() local
548 r__5 = (r__1 = p[i__3].r, f2c_abs(r__1)) * bscale; in ctgevc_()
549 r__4 = max(r__4,r__5); // ; expr subst in ctgevc_()
584 r__5 = 1.f, r__6 = f2c_abs(acoeff); in ctgevc_()
585 r__5 = max(r__5,r__6); in ctgevc_()
588 r__4 = 1.f / (safmin * max(r__5,r__6)); // , expr subst in ctgevc_()
872 r__5 = (r__1 = p[i__2].r, f2c_abs(r__1)) * bscale; in ctgevc_()
873 r__4 = max(r__4,r__5); // ; expr subst in ctgevc_()
908 r__5 = 1.f, r__6 = f2c_abs(acoeff); in ctgevc_()
909 r__5 = max(r__5,r__6); in ctgevc_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | slasy2.c | 31 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8; in slasy2_() local
229 (r__5 = tr[(tr_dim1 << 1) + 2], dabs(r__5)); in slasy2_()
256 (r__5 = tl[(tl_dim1 << 1) + 2], dabs(r__5)); in slasy2_()
337 1) + 1], dabs(r__2)), r__5 = max(r__5,r__6), r__6 = (r__3 = tr[ in slasy2_()
338 tr_dim1 + 2], dabs(r__3)), r__5 = max(r__5,r__6), r__6 = (r__4 = in slasy2_()
340 smin = dmax(r__5,r__6); in slasy2_()
342 r__5 = smin, r__6 = (r__1 = tl[tl_dim1 + 1], dabs(r__1)), r__5 = max(r__5, in slasy2_()
343 r__6), r__6 = (r__2 = tl[(tl_dim1 << 1) + 1], dabs(r__2)), r__5 = in slasy2_()
344 max(r__5,r__6), r__6 = (r__3 = tl[tl_dim1 + 2], dabs(r__3)), r__5 in slasy2_()
345 = max(r__5,r__6), r__6 = (r__4 = tl[(tl_dim1 << 1) + 2], dabs( in slasy2_()
[all …]
|
| H A D | slagv2.c | 19 real r__1, r__2, r__3, r__4, r__5, r__6; in slagv2_() local
152 r__5 = (r__1 = a[a_dim1 + 1], dabs(r__1)) + (r__2 = a[a_dim1 + 2], dabs( in slagv2_()
154 a[(a_dim1 << 1) + 2], dabs(r__4)), r__5 = max(r__5,r__6); in slagv2_()
155 anorm = dmax(r__5,safmin); in slagv2_()
165 r__4 = (r__3 = b[b_dim1 + 1], dabs(r__3)), r__5 = (r__1 = b[(b_dim1 << 1) in slagv2_()
167 r__4 = max(r__4,r__5); in slagv2_()
254 r__5 = (r__1 = a[a_dim1 + 1], dabs(r__1)) + (r__2 = a[(a_dim1 << in slagv2_()
257 h1 = dmax(r__5,r__6); in slagv2_()
259 r__5 = (r__1 = b[b_dim1 + 1], dabs(r__1)) + (r__2 = b[(b_dim1 << in slagv2_()
262 h2 = dmax(r__5,r__6); in slagv2_()
|
| H A D | cgtrfs.c | 24 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8, r__9, r__10, r__11, in cgtrfs_() local
279 ((r__5 = x[i__3].r, dabs(r__5)) + (r__6 = r_imag(&x[j in cgtrfs_()
288 ((r__5 = x[i__3].r, dabs(r__5)) + (r__6 = r_imag(&x[j in cgtrfs_()
305 dl[i__ - 1]), dabs(r__4))) * ((r__5 = x[i__5].r, in cgtrfs_()
306 dabs(r__5)) + (r__6 = r_imag(&x[i__ - 1 + j * in cgtrfs_()
325 r__4))) * ((r__5 = x[i__4].r, dabs(r__5)) + (r__6 = in cgtrfs_()
338 ((r__5 = x[i__3].r, dabs(r__5)) + (r__6 = r_imag(&x[j in cgtrfs_()
347 ((r__5 = x[i__3].r, dabs(r__5)) + (r__6 = r_imag(&x[j in cgtrfs_()
364 du[i__ - 1]), dabs(r__4))) * ((r__5 = x[i__5].r, in cgtrfs_()
365 dabs(r__5)) + (r__6 = r_imag(&x[i__ - 1 + j * in cgtrfs_()
[all …]
|
| H A D | slagts.c | 13 real r__1, r__2, r__3, r__4, r__5; in slagts_() local
174 r__4 = *tol, r__5 = (r__1 = a[k], dabs(r__1)), r__4 = max( in slagts_()
175 r__4,r__5), r__5 = (r__2 = b[k - 1], dabs(r__2)), in slagts_()
176 r__4 = max(r__4,r__5), r__5 = (r__3 = d__[k - 2], in slagts_()
178 *tol = dmax(r__4,r__5); in slagts_()
|
| H A D | slangt.c | 17 real ret_val, r__1, r__2, r__3, r__4, r__5; in slangt_() local
141 r__4 = anorm, r__5 = (r__1 = d__[i__], dabs(r__1)) + (r__2 = in slangt_()
144 anorm = dmax(r__4,r__5); in slangt_()
162 r__4 = anorm, r__5 = (r__1 = d__[i__], dabs(r__1)) + (r__2 = in slangt_()
165 anorm = dmax(r__4,r__5); in slangt_()
|
| H A D | slag2.c | 14 real r__1, r__2, r__3, r__4, r__5, r__6; in slag2_() local
139 r__5 = (r__1 = a[a_dim1 + 1], dabs(r__1)) + (r__2 = a[a_dim1 + 2], dabs( in slag2_()
141 a[(a_dim1 << 1) + 2], dabs(r__4)), r__5 = max(r__5,r__6); in slag2_()
142 anorm = dmax(r__5,*safmin); in slag2_()
327 r__5 = dabs(*wr2); in slag2_()
328 r__3 = c4, r__4 = dmax(r__5,c5) * .5f; in slag2_()
|
| H A D | slanst.c | 17 real ret_val, r__1, r__2, r__3, r__4, r__5; in slanst_() local
134 r__4 = anorm, r__5 = (r__1 = d__[i__], dabs(r__1)) + (r__2 = in slanst_()
136 anorm = dmax(r__4,r__5); in slanst_()
|
| H A D | cptrfs.c | 21 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8, r__9, r__10, r__11, in cptrfs_() local
259 r_imag(&dx), dabs(r__4))) + ((r__5 = e[1].r, dabs( in cptrfs_()
260 r__5)) + (r__6 = r_imag(&e[1]), dabs(r__6))) * ((r__7 in cptrfs_()
295 r__5 = x[i__4].r, dabs(r__5)) + (r__6 = r_imag(&x[ in cptrfs_()
324 = r_imag(&e[*n - 1]), dabs(r__4))) * ((r__5 = x[i__3] in cptrfs_()
325 .r, dabs(r__5)) + (r__6 = r_imag(&x[*n - 1 + j * in cptrfs_()
358 r_imag(&dx), dabs(r__4))) + ((r__5 = e[1].r, dabs( in cptrfs_()
359 r__5)) + (r__6 = r_imag(&e[1]), dabs(r__6))) * ((r__7 in cptrfs_()
394 r__5 = x[i__4].r, dabs(r__5)) + (r__6 = r_imag(&x[ in cptrfs_()
424 = r_imag(&e[*n - 1]), dabs(r__4))) * ((r__5 = x[i__3] in cptrfs_()
[all …]
|
| H A D | ctgevc.c | 23 real r__1, r__2, r__3, r__4, r__5, r__6; in ctgevc_() local
429 + je * a_dim1]), dabs(r__3))) * ascale, r__5 = (r__1 = in ctgevc_()
431 r__5); in ctgevc_()
464 r__5 = 1.f, r__6 = dabs(acoeff), r__5 = max(r__5,r__6), in ctgevc_()
467 r__3 = scale, r__4 = 1.f / (safmin * dmax(r__5,r__6)); in ctgevc_()
710 + je * a_dim1]), dabs(r__3))) * ascale, r__5 = (r__1 = in ctgevc_()
712 r__5); in ctgevc_()
745 r__5 = 1.f, r__6 = dabs(acoeff), r__5 = max(r__5,r__6), in ctgevc_()
748 r__3 = scale, r__4 = 1.f / (safmin * dmax(r__5,r__6)); in ctgevc_()
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/ |
| H A D | slasy2.c | 39 real r__1, r__2, r__3, r__4, r__5, r__6, r__7, r__8; in slasy2_() local
236 (r__5 = tr[(tr_dim1 << 1) + 2], dabs(r__5)); in slasy2_()
263 (r__5 = tl[(tl_dim1 << 1) + 2], dabs(r__5)); in slasy2_()
344 1) + 1], dabs(r__2)), r__5 = max(r__5,r__6), r__6 = (r__3 = tr[ in slasy2_()
345 tr_dim1 + 2], dabs(r__3)), r__5 = max(r__5,r__6), r__6 = (r__4 = in slasy2_()
347 smin = dmax(r__5,r__6); in slasy2_()
349 r__5 = smin, r__6 = (r__1 = tl[tl_dim1 + 1], dabs(r__1)), r__5 = max(r__5, in slasy2_()
350 r__6), r__6 = (r__2 = tl[(tl_dim1 << 1) + 1], dabs(r__2)), r__5 = in slasy2_()
351 max(r__5,r__6), r__6 = (r__3 = tl[tl_dim1 + 2], dabs(r__3)), r__5 in slasy2_()
352 = max(r__5,r__6), r__6 = (r__4 = tl[(tl_dim1 << 1) + 2], dabs( in slasy2_()
[all …]
|
| H A D | slanst.c | 24 real ret_val, r__1, r__2, r__3, r__4, r__5; in slanst_() local
140 r__4 = anorm, r__5 = (r__1 = d__[i__], dabs(r__1)) + (r__2 = in slanst_()
142 anorm = dmax(r__4,r__5); in slanst_()
|
| /dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/CBLAS/ |
| H A D | sasum.c | 15 real ret_val, r__1, r__2, r__3, r__4, r__5, r__6; in sasum_() local
81 dabs(r__4)) + (r__5 = SX(i + 4), dabs(r__5)) + (r__6 = SX(i + in sasum_()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/blas/ |
| H A D | sasum.c | 12 real ret_val, r__1, r__2, r__3, r__4, r__5, r__6; in sasum_() local
75 i__ + 3], dabs(r__4)) + (r__5 = sx[i__ + 4], dabs(r__5)) + ( in sasum_()
|
| /dports/math/libflame/libflame-5.2.0/src/flablas/f2c/ |
| H A D | sasum.c | 7 real ret_val, r__1, r__2, r__3, r__4, r__5, r__6; in sasum_() local
70 …2], f2c_abs(r__3)) + (r__4 = sx[i__ + 3], f2c_abs(r__4)) + (r__5 = sx[i__ + 4], f2c_abs(r__5)) + (… in sasum_()
|
| /dports/math/superlu/superlu-5.2.2/CBLAS/ |
| H A D | sasum.c | 15 real ret_val, r__1, r__2, r__3, r__4, r__5, r__6; in sasum_() local
81 dabs(r__4)) + (r__5 = SX(i + 4), dabs(r__5)) + (r__6 = SX(i + in sasum_()
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CBLAS/ |
| H A D | sasum.c | 20 real ret_val, r__1, r__2, r__3, r__4, r__5, r__6; in sasum_() local
94 i__ + 3], dabs(r__4)) + (r__5 = sx[i__ + 4], dabs(r__5)) + ( in sasum_()
|