| /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
50 r__4 = yy, r__4 *= r__4, r__4 *= r__4; in mpfrbs_0_()
56 r__3 * r__3) * .12723f - r__4 * r__4 * .0467883f + r__6 * (r__5 * 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_()
95 r__4 = *ylat, r__4 *= r__4, r__4 *= r__4; in mpfrbs_0_()
101 r__3 * (r__3 * r__3) * .12723f - r__4 * r__4 * .0467883f + r__6 * 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_()
111 r__4 = p; in mpxvdg_()
113 r__3 = g - r__4 * r__4; in mpxvdg_()
135 r__4 = a; 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 | cla_herpvgrw.c | 115 real ret_val, r__1, r__2, r__3, r__4; in cla_herpvgrw_() local
198 work[*n + i__] = max(r__3,r__4); in cla_herpvgrw_()
203 work[*n + j] = max(r__3,r__4); in cla_herpvgrw_()
228 work[*n + j] = max(r__3,r__4); in cla_herpvgrw_()
261 work[k] = max(r__3,r__4); in cla_herpvgrw_()
281 work[k] = max(r__3,r__4); in cla_herpvgrw_()
291 r__4 = work[k]; // , expr subst in cla_herpvgrw_()
292 work[k] = max(r__3,r__4); in cla_herpvgrw_()
344 work[k] = max(r__3,r__4); in cla_herpvgrw_()
364 work[k] = max(r__3,r__4); in cla_herpvgrw_()
[all …]
|
| H A D | cla_syrpvgrw.c | 115 real ret_val, r__1, r__2, r__3, r__4; in cla_syrpvgrw_() local
198 work[*n + i__] = max(r__3,r__4); in cla_syrpvgrw_()
203 work[*n + j] = max(r__3,r__4); in cla_syrpvgrw_()
228 work[*n + j] = max(r__3,r__4); in cla_syrpvgrw_()
261 work[k] = max(r__3,r__4); in cla_syrpvgrw_()
281 work[k] = max(r__3,r__4); in cla_syrpvgrw_()
291 r__4 = work[k]; // , expr subst in cla_syrpvgrw_()
292 work[k] = max(r__3,r__4); in cla_syrpvgrw_()
344 work[k] = max(r__3,r__4); in cla_syrpvgrw_()
364 work[k] = max(r__3,r__4); in cla_syrpvgrw_()
[all …]
|
| H A D | cla_porpvgrw.c | 98 real ret_val, r__1, r__2, r__3, r__4; in cla_porpvgrw_() local
164 r__4 = work[*ncols + j]; // , expr subst in cla_porpvgrw_()
165 work[*ncols + j] = max(r__3,r__4); in cla_porpvgrw_()
184 r__4 = work[*ncols + j]; // , expr subst in cla_porpvgrw_()
185 work[*ncols + j] = max(r__3,r__4); in cla_porpvgrw_()
206 r__4 = work[j]; // , expr subst in cla_porpvgrw_()
207 work[j] = max(r__3,r__4); in cla_porpvgrw_()
226 r__4 = work[j]; // , expr subst in cla_porpvgrw_()
227 work[j] = max(r__3,r__4); in cla_porpvgrw_()
|
| 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 …), f2c_abs(r__2)) + ((r__3 = d__[1].r, f2c_abs( r__3)) + (r__4 = r_imag(&d__[1]), f2c_abs(r__4))) … in cgtrfs_()
372 …), f2c_abs(r__2)) + ((r__3 = d__[1].r, f2c_abs( r__3)) + (r__4 = r_imag(&d__[1]), f2c_abs(r__4))) … in cgtrfs_()
402 …), f2c_abs(r__2)) + ((r__3 = d__[1].r, f2c_abs( r__3)) + (r__4 = r_imag(&d__[1]), f2c_abs(r__4))) … in cgtrfs_()
409 …), f2c_abs(r__2)) + ((r__3 = d__[1].r, f2c_abs( r__3)) + (r__4 = r_imag(&d__[1]), f2c_abs(r__4))) … in cgtrfs_()
450 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in cgtrfs_()
451 s = max(r__3,r__4); in cgtrfs_()
458 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in cgtrfs_()
459 s = max(r__3,r__4); in cgtrfs_()
567 …r__4 = (r__1 = x[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r__2)); /… in cgtrfs_()
[all …]
|
| H A D | slangt.c | 100 real ret_val, r__1, r__2, r__3, r__4; in slangt_() local
152 anorm = (r__4 = dl[i__], f2c_abs(r__4)); in slangt_()
157 anorm = (r__4 = d__[i__], f2c_abs(r__4)); in slangt_()
162 anorm = (r__4 = du[i__], f2c_abs(r__4)); in slangt_()
|
| H A D | ctgevc.c | 230 real r__1, r__2, r__3, r__4, r__5, r__6; in ctgevc_() local
489 anorm = max(r__3,r__4); in ctgevc_()
494 bnorm = max(r__3,r__4); in ctgevc_()
549 r__4 = max(r__4,r__5); // ; expr subst in ctgevc_()
578 scale = max(r__3,r__4); in ctgevc_()
589 scale = min(r__3,r__4); in ctgevc_()
759 xmax = max(r__3,r__4); in ctgevc_()
786 xmax = max(r__3,r__4); in ctgevc_()
873 r__4 = max(r__4,r__5); // ; expr subst in ctgevc_()
902 scale = max(r__3,r__4); in ctgevc_()
[all …]
|
| H A D | csyequb.c | 132 real r__1, r__2, r__3, r__4; in csyequb_() local
237 s[i__] = max(r__3,r__4); in csyequb_()
242 s[j] = max(r__3,r__4); in csyequb_()
247 *amax = max(r__3,r__4); in csyequb_()
253 s[j] = max(r__3,r__4); in csyequb_()
258 *amax = max(r__3,r__4); in csyequb_()
272 s[j] = max(r__3,r__4); in csyequb_()
277 *amax = max(r__3,r__4); in csyequb_()
287 s[i__] = max(r__3,r__4); in csyequb_()
292 s[j] = max(r__3,r__4); in csyequb_()
[all …]
|
| H A D | cheequb.c | 122 real r__1, r__2, r__3, r__4; in cheequb_() local
225 s[i__] = max(r__3,r__4); in cheequb_()
230 s[j] = max(r__3,r__4); in cheequb_()
235 *amax = max(r__3,r__4); in cheequb_()
241 s[j] = max(r__3,r__4); in cheequb_()
246 *amax = max(r__3,r__4); in cheequb_()
260 s[j] = max(r__3,r__4); in cheequb_()
265 *amax = max(r__3,r__4); in cheequb_()
275 s[i__] = max(r__3,r__4); in cheequb_()
280 s[j] = max(r__3,r__4); in cheequb_()
[all …]
|
| H A D | slagv2.c | 151 real r__1, r__2, r__3, r__4, r__5, r__6; in slagv2_() local
201 …r__6 = (r__3 = a[(a_dim1 << 1) + 1], f2c_abs(r__3)) + (r__4 = a[(a_dim1 << 1) + 2], f2c_abs(r__4)); in slagv2_()
211 r__4 = (r__3 = b[b_dim1 + 1], f2c_abs(r__3)); in slagv2_()
213 r__4 = max(r__4,r__5); // ; expr subst in slagv2_()
214 bnorm = max(r__4,safmin); in slagv2_()
288 …r__6 = (r__3 = a[a_dim1 + 2], f2c_abs(r__3) ) + (r__4 = a[(a_dim1 << 1) + 2], f2c_abs(r__4)); // ,… in slagv2_()
292 …r__6 = (r__3 = b[b_dim1 + 2], f2c_abs(r__3) ) + (r__4 = b[(b_dim1 << 1) + 2], f2c_abs(r__4)); // ,… in slagv2_()
|
| H A D | ctrrfs.c | 178 real r__1, r__2, r__3, r__4; in ctrrfs_() local
462 …abs(r__2))) * ((r__3 = x[i__5].r, f2c_abs(r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctrrfs_()
485 …abs(r__2))) * ((r__3 = x[i__5].r, f2c_abs(r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctrrfs_()
510 …abs(r__2))) * ((r__3 = x[i__5].r, f2c_abs(r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctrrfs_()
533 …abs(r__2))) * ((r__3 = x[i__5].r, f2c_abs(r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctrrfs_()
553 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in ctrrfs_()
554 s = max(r__3,r__4); in ctrrfs_()
561 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in ctrrfs_()
562 s = max(r__3,r__4); in ctrrfs_()
656 …r__4 = (r__1 = x[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r__2)); /… in ctrrfs_()
[all …]
|
| H A D | ctprfs.c | 171 real r__1, r__2, r__3, r__4; in ctprfs_() local
458 …bs(r__2))) * ( (r__3 = x[i__5].r, f2c_abs(r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctprfs_()
482 …bs(r__2))) * ( (r__3 = x[i__5].r, f2c_abs(r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctprfs_()
509 …bs(r__2))) * ( (r__3 = x[i__5].r, f2c_abs(r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctprfs_()
533 …bs(r__2))) * ( (r__3 = x[i__5].r, f2c_abs(r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctprfs_()
554 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in ctprfs_()
555 s = max(r__3,r__4); in ctprfs_()
562 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in ctprfs_()
563 s = max(r__3,r__4); in ctprfs_()
657 …r__4 = (r__1 = x[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r__2)); /… in ctprfs_()
[all …]
|
| H A D | ctbrfs.c | 185 real r__1, r__2, r__3, r__4; in ctbrfs_() local
488 …bs(r__2))) * ((r__3 = x[i__5] .r, f2c_abs(r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctbrfs_()
514 …bs(r__2))) * ((r__3 = x[i__4] .r, f2c_abs(r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctbrfs_()
542 …bs(r__2))) * ((r__3 = x[i__4].r, f2c_abs( r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctbrfs_()
568 …bs(r__2))) * ((r__3 = x[i__4].r, f2c_abs( r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r… in ctbrfs_()
588 …r__4 = ((r__1 = work[i__5].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in ctbrfs_()
589 s = max(r__3,r__4); in ctbrfs_()
596 …r__4 = ((r__1 = work[i__5].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in ctbrfs_()
597 s = max(r__3,r__4); in ctbrfs_()
691 …r__4 = (r__1 = x[i__5].r, f2c_abs(r__1)) + (r__2 = r_imag(&x[i__ + j * x_dim1]), f2c_abs(r__2)); /… in ctbrfs_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | slangt.c | 17 real ret_val, r__1, r__2, r__3, r__4, r__5; in slangt_() local
135 r__3 = dabs(d__[1]) + dabs(dl[1]), r__4 = (r__1 = d__[*n], dabs( in slangt_()
137 anorm = dmax(r__3,r__4); in slangt_()
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_()
156 r__3 = dabs(d__[1]) + dabs(du[1]), r__4 = (r__1 = d__[*n], dabs( in slangt_()
158 anorm = dmax(r__3,r__4); 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 | cgtrfs.c | 278 dabs(r__3)) + (r__4 = r_imag(&d__[1]), dabs(r__4))) * in cgtrfs_()
287 dabs(r__3)) + (r__4 = r_imag(&d__[1]), dabs(r__4))) * in cgtrfs_()
324 .r, dabs(r__3)) + (r__4 = r_imag(&dl[*n - 1]), dabs( in cgtrfs_()
325 r__4))) * ((r__5 = x[i__4].r, dabs(r__5)) + (r__6 = in cgtrfs_()
337 dabs(r__3)) + (r__4 = r_imag(&d__[1]), dabs(r__4))) * in cgtrfs_()
346 dabs(r__3)) + (r__4 = r_imag(&d__[1]), dabs(r__4))) * in cgtrfs_()
383 .r, dabs(r__3)) + (r__4 = r_imag(&du[*n - 1]), dabs( in cgtrfs_()
384 r__4))) * ((r__5 = x[i__4].r, dabs(r__5)) + (r__6 = in cgtrfs_()
409 s = dmax(r__3,r__4); in cgtrfs_()
416 s = dmax(r__3,r__4); in cgtrfs_()
[all …]
|
| H A D | ctgevc.c | 372 anorm = dmax(r__3,r__4); in ctgevc_()
377 bnorm = dmax(r__3,r__4); in ctgevc_()
430 b[i__3].r, dabs(r__1)) * bscale, r__4 = max(r__4, in ctgevc_()
448 ) + (r__4 = r_imag(&bcoeff), dabs(r__4)) < small; in ctgevc_()
581 r__3)) + (r__4 = r_imag(&d__), dabs(r__4)))) { in ctgevc_()
606 xmax = dmax(r__3,r__4); in ctgevc_()
634 xmax = dmax(r__3,r__4); in ctgevc_()
711 b[i__2].r, dabs(r__1)) * bscale, r__4 = max(r__4, in ctgevc_()
729 ) + (r__4 = r_imag(&bcoeff), dabs(r__4)) < small; in ctgevc_()
828 d__), dabs(r__4)))) { in ctgevc_()
[all …]
|
| H A D | slagv2.c | 19 real r__1, r__2, r__3, r__4, r__5, r__6; in slagv2_() local
153 r__2)), r__6 = (r__3 = a[(a_dim1 << 1) + 1], dabs(r__3)) + (r__4 = in slagv2_()
154 a[(a_dim1 << 1) + 2], dabs(r__4)), r__5 = max(r__5,r__6); 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_()
168 bnorm = dmax(r__4,safmin); in slagv2_()
256 r__3)) + (r__4 = a[(a_dim1 << 1) + 2], dabs(r__4)); in slagv2_()
261 r__3)) + (r__4 = b[(b_dim1 << 1) + 2], dabs(r__4)); in slagv2_()
|
| H A D | ctprfs.c | 19 real r__1, r__2, r__3, r__4; in ctprfs_() local
359 ((r__3 = x[i__5].r, dabs(r__3)) + (r__4 = in ctprfs_()
360 r_imag(&x[i__ + j * x_dim1]), dabs(r__4))) in ctprfs_()
380 ((r__3 = x[i__5].r, dabs(r__3)) + (r__4 = in ctprfs_()
381 r_imag(&x[i__ + j * x_dim1]), dabs(r__4))) in ctprfs_()
402 ((r__3 = x[i__5].r, dabs(r__3)) + (r__4 = in ctprfs_()
403 r_imag(&x[i__ + j * x_dim1]), dabs(r__4))) in ctprfs_()
423 ((r__3 = x[i__5].r, dabs(r__3)) + (r__4 = in ctprfs_()
443 s = dmax(r__3,r__4); in ctprfs_()
450 s = dmax(r__3,r__4); in ctprfs_()
[all …]
|
| H A D | ctrrfs.c | 21 real r__1, r__2, r__3, r__4; in ctrrfs_() local
361 r__4 = r_imag(&x[i__ + j * x_dim1]), dabs( in ctrrfs_()
362 r__4))); in ctrrfs_()
381 r__4 = r_imag(&x[i__ + j * x_dim1]), dabs( in ctrrfs_()
382 r__4))); in ctrrfs_()
401 r__4 = r_imag(&x[i__ + j * x_dim1]), dabs( in ctrrfs_()
402 r__4))); in ctrrfs_()
422 r__4))); in ctrrfs_()
439 s = dmax(r__3,r__4); in ctrrfs_()
446 s = dmax(r__3,r__4); in ctrrfs_()
[all …]
|
| H A D | slanst.c | 17 real ret_val, r__1, r__2, r__3, r__4, r__5; in slanst_() local
128 r__3 = dabs(d__[1]) + dabs(e[1]), r__4 = (r__1 = e[*n - 1], dabs( in slanst_()
130 anorm = dmax(r__3,r__4); in slanst_()
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 | ctbrfs.c | 21 real r__1, r__2, r__3, r__4; in ctbrfs_() local
377 .r, dabs(r__3)) + (r__4 = r_imag(&x[i__ + in ctbrfs_()
378 j * x_dim1]), dabs(r__4))); in ctbrfs_()
400 j * x_dim1]), dabs(r__4))); in ctbrfs_()
421 r__3)) + (r__4 = r_imag(&x[i__ + j * in ctbrfs_()
422 x_dim1]), dabs(r__4))); in ctbrfs_()
443 r__3)) + (r__4 = r_imag(&x[i__ + j * in ctbrfs_()
444 x_dim1]), dabs(r__4))); in ctbrfs_()
461 s = dmax(r__3,r__4); in ctbrfs_()
468 s = dmax(r__3,r__4); in ctbrfs_()
[all …]
|
| H A D | chprfs.c | 20 real r__1, r__2, r__3, r__4; in chprfs_() local
274 r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), in chprfs_()
275 dabs(r__4))); in chprfs_()
304 r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), in chprfs_()
305 dabs(r__4))); in chprfs_()
320 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in chprfs_()
322 s = dmax(r__3,r__4); in chprfs_()
326 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in chprfs_()
329 s = dmax(r__3,r__4); in chprfs_()
438 r__3 = lstres, r__4 = (r__1 = x[i__3].r, dabs(r__1)) + (r__2 = in chprfs_()
[all …]
|
| H A D | cporfs.c | 21 real r__1, r__2, r__3, r__4; in cporfs_() local
279 i__5].r, dabs(r__3)) + (r__4 = r_imag(&x[i__ + j * in cporfs_()
280 x_dim1]), dabs(r__4))); in cporfs_()
305 i__5].r, dabs(r__3)) + (r__4 = r_imag(&x[i__ + j * in cporfs_()
306 x_dim1]), dabs(r__4))); in cporfs_()
319 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in cporfs_()
321 s = dmax(r__3,r__4); in cporfs_()
325 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in cporfs_()
328 s = dmax(r__3,r__4); in cporfs_()
437 r__3 = lstres, r__4 = (r__1 = x[i__3].r, dabs(r__1)) + (r__2 = in cporfs_()
[all …]
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/ |
| H A D | slanst.c | 24 real ret_val, r__1, r__2, r__3, r__4, r__5; in slanst_() local
134 r__3 = dabs(d__[1]) + dabs(e[1]), r__4 = (r__1 = e[*n - 1], dabs( in slanst_()
136 anorm = dmax(r__3,r__4); in slanst_()
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_()
|