| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | cpprfs.c | 20 real r__1, r__2, r__3, r__4; in cpprfs_() local
268 r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), in cpprfs_()
269 dabs(r__4))); in cpprfs_()
298 r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), in cpprfs_()
299 dabs(r__4))); in cpprfs_()
314 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in cpprfs_()
316 s = dmax(r__3,r__4); in cpprfs_()
320 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in cpprfs_()
323 s = dmax(r__3,r__4); in cpprfs_()
431 r__3 = lstres, r__4 = (r__1 = x[i__3].r, dabs(r__1)) + (r__2 = in cpprfs_()
[all …]
|
| H A D | csprfs.c | 20 real r__1, r__2, r__3, r__4; in csprfs_() local
274 r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), in csprfs_()
275 dabs(r__4))); in csprfs_()
305 r__3)) + (r__4 = r_imag(&x[i__ + j * x_dim1]), in csprfs_()
306 dabs(r__4))); in csprfs_()
321 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in csprfs_()
323 s = dmax(r__3,r__4); in csprfs_()
327 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in csprfs_()
330 s = dmax(r__3,r__4); in csprfs_()
439 r__3 = lstres, r__4 = (r__1 = x[i__3].r, dabs(r__1)) + (r__2 = in csprfs_()
[all …]
|
| H A D | cptrfs.c | 241 dabs(r__2)) + ((r__3 = dx.r, dabs(r__3)) + (r__4 = in cptrfs_()
242 r_imag(&dx), dabs(r__4))); in cptrfs_()
258 dabs(r__2)) + ((r__3 = dx.r, dabs(r__3)) + (r__4 = in cptrfs_()
259 r_imag(&dx), dabs(r__4))) + ((r__5 = e[1].r, dabs( in cptrfs_()
294 + (r__4 = r_imag(&e[i__ - 1]), dabs(r__4))) * (( in cptrfs_()
339 dabs(r__2)) + ((r__3 = dx.r, dabs(r__3)) + (r__4 = in cptrfs_()
340 r_imag(&dx), dabs(r__4))); in cptrfs_()
358 r_imag(&dx), dabs(r__4))) + ((r__5 = e[1].r, dabs( in cptrfs_()
393 + (r__4 = r_imag(&e[i__ - 1]), dabs(r__4))) * (( in cptrfs_()
448 s = dmax(r__3,r__4); in cptrfs_()
[all …]
|
| H A D | csyrfs.c | 21 real r__1, r__2, r__3, r__4; in csyrfs_() local
285 i__5].r, dabs(r__3)) + (r__4 = r_imag(&x[i__ + j * in csyrfs_()
286 x_dim1]), dabs(r__4))); in csyrfs_()
313 i__5].r, dabs(r__3)) + (r__4 = r_imag(&x[i__ + j * in csyrfs_()
314 x_dim1]), dabs(r__4))); in csyrfs_()
327 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in csyrfs_()
329 s = dmax(r__3,r__4); in csyrfs_()
333 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in csyrfs_()
336 s = dmax(r__3,r__4); in csyrfs_()
445 r__3 = lstres, r__4 = (r__1 = x[i__3].r, dabs(r__1)) + (r__2 = in csyrfs_()
[all …]
|
| H A D | cherfs.c | 21 real r__1, r__2, r__3, r__4; in cherfs_() local
285 i__5].r, dabs(r__3)) + (r__4 = r_imag(&x[i__ + j * in cherfs_()
286 x_dim1]), dabs(r__4))); in cherfs_()
311 i__5].r, dabs(r__3)) + (r__4 = r_imag(&x[i__ + j * in cherfs_()
312 x_dim1]), dabs(r__4))); in cherfs_()
325 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in cherfs_()
327 s = dmax(r__3,r__4); in cherfs_()
331 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in cherfs_()
334 s = dmax(r__3,r__4); in cherfs_()
443 r__3 = lstres, r__4 = (r__1 = x[i__3].r, dabs(r__1)) + (r__2 = in cherfs_()
[all …]
|
| H A D | cpbrfs.c | 21 real r__1, r__2, r__3, r__4; in cpbrfs_() local
291 = x[i__4].r, dabs(r__3)) + (r__4 = r_imag(&x[i__ in cpbrfs_()
292 + j * x_dim1]), dabs(r__4))); in cpbrfs_()
322 = x[i__4].r, dabs(r__3)) + (r__4 = r_imag(&x[i__ in cpbrfs_()
323 + j * x_dim1]), dabs(r__4))); in cpbrfs_()
336 r__3 = s, r__4 = ((r__1 = work[i__5].r, dabs(r__1)) + (r__2 = in cpbrfs_()
338 s = dmax(r__3,r__4); in cpbrfs_()
342 r__3 = s, r__4 = ((r__1 = work[i__5].r, dabs(r__1)) + (r__2 = in cpbrfs_()
345 s = dmax(r__3,r__4); in cpbrfs_()
454 r__3 = lstres, r__4 = (r__1 = x[i__5].r, dabs(r__1)) + (r__2 = in cpbrfs_()
[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 | cgerfs.c | 21 real r__1, r__2, r__3, r__4; in cgerfs_() local
299 i__5].r, dabs(r__3)) + (r__4 = r_imag(&x[i__ + j * in cgerfs_()
300 x_dim1]), dabs(r__4))); in cgerfs_()
313 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in cgerfs_()
315 s = dmax(r__3,r__4); in cgerfs_()
319 r__3 = s, r__4 = ((r__1 = work[i__3].r, dabs(r__1)) + (r__2 = in cgerfs_()
322 s = dmax(r__3,r__4); in cgerfs_()
431 r__3 = lstres, r__4 = (r__1 = x[i__3].r, dabs(r__1)) + (r__2 = in cgerfs_()
433 lstres = dmax(r__3,r__4); in cgerfs_()
|
| H A D | cladiv.c | 11 real r__1, r__2, r__3, r__4; in cladiv_() local
58 r__4 = r_imag(y); in cladiv_()
59 sladiv_(&r__1, &r__2, &r__3, &r__4, &zr, &zi); in cladiv_()
|
| H A D | cgeequ.c | 14 real r__1, r__2, r__3, r__4; in cgeequ_() local
169 r__3 = r__[i__], r__4 = (r__1 = a[i__3].r, dabs(r__1)) + (r__2 = in cgeequ_()
171 r__[i__] = dmax(r__3,r__4); in cgeequ_()
241 r__3 = c__[j], r__4 = ((r__1 = a[i__3].r, dabs(r__1)) + (r__2 = in cgeequ_()
243 c__[j] = dmax(r__3,r__4); in cgeequ_()
|
| 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
228 r__4 = tr[tr_dim1 + 2], dabs(r__4)), r__7 = max(r__7,r__8), r__8 = in slasy2_()
255 r__4 = tl[tl_dim1 + 2], dabs(r__4)), r__7 = max(r__7,r__8), r__8 = in slasy2_()
321 r__3 = (r__1 = x[x_dim1 + 1], dabs(r__1)), r__4 = (r__2 = x[x_dim1 + in slasy2_()
323 *xnorm = dmax(r__3,r__4); in slasy2_()
338 tr_dim1 + 2], dabs(r__3)), r__5 = max(r__5,r__6), r__6 = (r__4 = in slasy2_()
339 tr[(tr_dim1 << 1) + 2], dabs(r__4)); in slasy2_()
345 = max(r__5,r__6), r__6 = (r__4 = tl[(tl_dim1 << 1) + 2], dabs( in slasy2_()
346 r__4)); in slasy2_()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | cporfs.c | 182 real r__1, r__2, r__3, r__4; in cporfs_() local
358 …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 cporfs_()
387 …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 cporfs_()
405 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in cporfs_()
406 s = max(r__3,r__4); in cporfs_()
413 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in cporfs_()
414 s = max(r__3,r__4); in cporfs_()
522 …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 cporfs_()
523 lstres = max(r__3,r__4); in cporfs_()
|
| H A D | csprfs.c | 180 real r__1, r__2, r__3, r__4; in csprfs_() local
351 …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 csprfs_()
383 …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 csprfs_()
403 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in csprfs_()
404 s = max(r__3,r__4); in csprfs_()
411 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in csprfs_()
412 s = max(r__3,r__4); in csprfs_()
520 …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 csprfs_()
521 lstres = max(r__3,r__4); in csprfs_()
|
| H A D | cherfs.c | 191 real r__1, r__2, r__3, r__4; in cherfs_() local
368 …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 cherfs_()
397 …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 cherfs_()
415 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in cherfs_()
416 s = max(r__3,r__4); in cherfs_()
423 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in cherfs_()
424 s = max(r__3,r__4); in cherfs_()
532 …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 cherfs_()
533 lstres = max(r__3,r__4); in cherfs_()
|
| H A D | cpprfs.c | 171 real r__1, r__2, r__3, r__4; in cpprfs_() local
337 …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 cpprfs_()
369 …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 cpprfs_()
389 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in cpprfs_()
390 s = max(r__3,r__4); in cpprfs_()
397 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in cpprfs_()
398 s = max(r__3,r__4); in cpprfs_()
506 …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 cpprfs_()
507 lstres = max(r__3,r__4); in cpprfs_()
|
| H A D | chprfs.c | 180 real r__1, r__2, r__3, r__4; in chprfs_() local
347 …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 chprfs_()
379 …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 chprfs_()
399 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in chprfs_()
400 s = max(r__3,r__4); in chprfs_()
407 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in chprfs_()
408 s = max(r__3,r__4); in chprfs_()
516 …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 chprfs_()
517 lstres = max(r__3,r__4); in chprfs_()
|
| 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
323 …r_imag(&bi), f2c_abs(r__2)) + ((r__3 = dx.r, f2c_abs(r__3)) + (r__4 = r_imag(&dx), f2c_abs(r__4))); in cptrfs_()
347 …mag(&bi), f2c_abs(r__2)) + ((r__3 = dx.r, f2c_abs(r__3)) + (r__4 = r_imag(&dx), f2c_abs(r__4))) + … in cptrfs_()
414 …, f2c_abs(r__2)) + ((r__3 = e[i__2].r, f2c_abs(r__3)) + (r__4 = r_imag(&e[*n - 1]), f2c_abs(r__4))… in cptrfs_()
433 …r_imag(&bi), f2c_abs(r__2)) + ((r__3 = dx.r, f2c_abs(r__3)) + (r__4 = r_imag(&dx), f2c_abs(r__4))); in cptrfs_()
458 …mag(&bi), f2c_abs(r__2)) + ((r__3 = dx.r, f2c_abs(r__3)) + (r__4 = r_imag(&dx), f2c_abs(r__4))) + … in cptrfs_()
525 …, f2c_abs(r__2)) + ((r__3 = e[i__2].r, f2c_abs(r__3)) + (r__4 = r_imag(&e[*n - 1]), f2c_abs(r__4))… in cptrfs_()
545 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in cptrfs_()
546 s = max(r__3,r__4); in cptrfs_()
553 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in cptrfs_()
[all …]
|
| H A D | csyrfs.c | 191 real r__1, r__2, r__3, r__4; in csyrfs_() local
368 …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 csyrfs_()
397 …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 csyrfs_()
415 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in csyrfs_()
416 s = max(r__3,r__4); in csyrfs_()
423 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in csyrfs_()
424 s = max(r__3,r__4); in csyrfs_()
532 …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 csyrfs_()
533 lstres = max(r__3,r__4); in csyrfs_()
|
| H A D | cpbrfs.c | 189 real r__1, r__2, r__3, r__4; in cpbrfs_() local
376 …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 cpbrfs_()
409 …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 cpbrfs_()
427 …r__4 = ((r__1 = work[i__5].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in cpbrfs_()
428 s = max(r__3,r__4); in cpbrfs_()
435 …r__4 = ((r__1 = work[i__5].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in cpbrfs_()
436 s = max(r__3,r__4); in cpbrfs_()
544 …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 cpbrfs_()
545 lstres = max(r__3,r__4); in cpbrfs_()
|
| 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_()
236 *tol = max(r__4,r__5); in slagts_()
|
| H A D | cgerfs.c | 185 real r__1, r__2, r__3, r__4; in cgerfs_() local
391 …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 cgerfs_()
409 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2))) / rwork… in cgerfs_()
410 s = max(r__3,r__4); in cgerfs_()
417 …r__4 = ((r__1 = work[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&work[i__]), f2c_abs(r__2)) + safe1)… in cgerfs_()
418 s = max(r__3,r__4); in cgerfs_()
526 …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 cgerfs_()
527 lstres = max(r__3,r__4); in cgerfs_()
|
| H A D | cladiv.c | 56 real r__1, r__2, r__3, r__4; in cladiv_() local
81 r__4 = r_imag(y); in cladiv_()
82 sladiv_(&r__1, &r__2, &r__3, &r__4, &zr, &zi); in cladiv_()
|
| H A D | cgeequ.c | 132 real r__1, r__2, r__3, r__4; in cgeequ_() local
227 …r__4 = (r__1 = a[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&a[i__ + j * a_dim1]), f2c_abs(r__2)); /… in cgeequ_()
228 r__[i__] = max(r__3,r__4); in cgeequ_()
310 …r__4 = ((r__1 = a[i__3].r, f2c_abs(r__1)) + (r__2 = r_imag(&a[i__ + j * a_dim1]), f2c_abs(r__2))) … in cgeequ_()
311 c__[j] = max(r__3,r__4); in cgeequ_()
|
| 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
301 …<< 1) + 1], f2c_abs(r__3)), r__7 = max(r__7,r__8), r__8 = (r__4 = tr[ tr_dim1 + 2], f2c_abs(r__4)); in slasy2_()
326 …<< 1) + 1], f2c_abs(r__3)), r__7 = max(r__7,r__8), r__8 = (r__4 = tl[ tl_dim1 + 2], f2c_abs(r__4)); in slasy2_()
403 r__4 = (r__2 = x[x_dim1 + 2] , f2c_abs(r__2)); // , expr subst in slasy2_()
404 *xnorm = max(r__3,r__4); in slasy2_()
415 r__6 = (r__4 = tr[(tr_dim1 << 1) + 2], f2c_abs(r__4)); // ; expr subst in slasy2_()
420 r__6 = (r__4 = tl[(tl_dim1 << 1) + 2], f2c_abs(r__4)) ; // ; expr subst in slasy2_()
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/ |
| H A D | cladiv.c | 19 real r__1, r__2, r__3, r__4; in cladiv_() local
65 r__4 = r_imag(y); in cladiv_()
66 sladiv_(&r__1, &r__2, &r__3, &r__4, &zr, &zi); in cladiv_()
|