| /dports/x11-toolkits/qwt6/qwt-6.1.6/examples/bode/ |
| H A D | complexnumber.h | 28 double d_imag; variable
33 d_imag( -0.0 ) in ComplexNumber()
39 d_imag( im ) in ComplexNumber()
50 return d_imag; in imag()
56 return ComplexNumber( x1.d_real + x2.d_real, x1.d_imag + x2.d_imag );
62 return ComplexNumber( x1.d_real - x2.d_real, x1.d_imag - x2.d_imag );
68 return ComplexNumber( x1.d_real * x2.d_real - x1.d_imag * x2.d_imag,
69 x1.d_real * x2.d_imag + x2.d_real * x1.d_imag );
75 double denom = x2.d_real * x2.d_real + x2.d_imag * x2.d_imag;
78 ( x1.d_real * x2.d_real + x1.d_imag * x2.d_imag ) / denom,
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | zgtrfs.c | 31 double d_imag(doublecomplex *); in zgtrfs_()
279 d__3)) + (d__4 = d_imag(&d__[1]), abs(d__4))) * (( in zgtrfs_()
288 d__3)) + (d__4 = d_imag(&d__[1]), abs(d__4))) * (( in zgtrfs_()
292 = x[i__4].r, abs(d__9)) + (d__10 = d_imag(&x[j * in zgtrfs_()
312 abs(d__11)) + (d__12 = d_imag(&du[i__]), abs( in zgtrfs_()
314 d__14 = d_imag(&x[i__ + 1 + j * x_dim1]), abs( in zgtrfs_()
338 d__3)) + (d__4 = d_imag(&d__[1]), abs(d__4))) * (( in zgtrfs_()
347 d__3)) + (d__4 = d_imag(&d__[1]), abs(d__4))) * (( in zgtrfs_()
351 = x[i__4].r, abs(d__9)) + (d__10 = d_imag(&x[j * in zgtrfs_()
409 d_imag(&work[i__]), abs(d__2))) / rwork[i__]; in zgtrfs_()
[all …]
|
| H A D | ztrrfs.c | 25 double d_imag(doublecomplex *); in ztrrfs_()
286 d__2 = d_imag(&a[i__ + k * a_dim1]), abs( in ztrrfs_()
302 d__2 = d_imag(&a[i__ + k * a_dim1]), abs( in ztrrfs_()
321 d__2 = d_imag(&a[i__ + k * a_dim1]), abs( in ztrrfs_()
337 d__2 = d_imag(&a[i__ + k * a_dim1]), abs( in ztrrfs_()
360 d_imag(&a[i__ + k * a_dim1]), abs(d__2))) in ztrrfs_()
362 d_imag(&x[i__ + j * x_dim1]), abs(d__4))) in ztrrfs_()
380 d_imag(&a[i__ + k * a_dim1]), abs(d__2))) in ztrrfs_()
382 d_imag(&x[i__ + j * x_dim1]), abs(d__4))) in ztrrfs_()
439 d_imag(&work[i__]), abs(d__2))) / rwork[i__]; in ztrrfs_()
[all …]
|
| H A D | ztprfs.c | 24 double d_imag(doublecomplex *); in ztprfs_()
280 d__2 = d_imag(&ap[kc + i__ - 1]), abs( in ztprfs_()
297 d__2 = d_imag(&ap[kc + i__ - 1]), abs( in ztprfs_()
318 d__2 = d_imag(&ap[kc + i__ - k]), abs( in ztprfs_()
335 d__2 = d_imag(&ap[kc + i__ - k]), abs( in ztprfs_()
360 d_imag(&ap[kc + i__ - 1]), abs(d__2))) * ( in ztprfs_()
362 d_imag(&x[i__ + j * x_dim1]), abs(d__4))); in ztprfs_()
380 d_imag(&ap[kc + i__ - 1]), abs(d__2))) * ( in ztprfs_()
382 d_imag(&x[i__ + j * x_dim1]), abs(d__4))); in ztprfs_()
440 d_imag(&work[i__]), abs(d__2))) / rwork[i__]; in ztprfs_()
[all …]
|
| H A D | ztbrfs.c | 26 double d_imag(doublecomplex *); in ztbrfs_()
334 d__2 = d_imag(&ab[i__ + 1 - k + k * in ztbrfs_()
352 d__2 = d_imag(&ab[i__ + 1 - k + k * in ztbrfs_()
377 d_imag(&ab[*kd + 1 + i__ - k + k * in ztbrfs_()
399 d_imag(&ab[*kd + 1 + i__ - k + k * in ztbrfs_()
421 d_imag(&ab[i__ + 1 - k + k * ab_dim1]), in ztbrfs_()
423 d__3)) + (d__4 = d_imag(&x[i__ + j * in ztbrfs_()
443 d_imag(&ab[i__ + 1 - k + k * ab_dim1]), in ztbrfs_()
445 d__3)) + (d__4 = d_imag(&x[i__ + j * in ztbrfs_()
462 d_imag(&work[i__]), abs(d__2))) / rwork[i__]; in ztbrfs_()
[all …]
|
| H A D | zptrfs.c | 27 double d_imag(doublecomplex *); in zptrfs_()
244 d_imag(&dx), abs(d__4))); in zptrfs_()
262 + (d__6 = d_imag(&e[1]), abs(d__6))) * ((d__7 = x[ in zptrfs_()
263 i__2].r, abs(d__7)) + (d__8 = d_imag(&x[j * x_dim1 + in zptrfs_()
296 + (d__4 = d_imag(&e[i__ - 1]), abs(d__4))) * (( in zptrfs_()
329 d_imag(&dx), abs(d__8))); in zptrfs_()
342 d_imag(&dx), abs(d__4))); in zptrfs_()
361 + (d__6 = d_imag(&e[1]), abs(d__6))) * ((d__7 = x[ in zptrfs_()
395 + (d__4 = d_imag(&e[i__ - 1]), abs(d__4))) * (( in zptrfs_()
429 d_imag(&dx), abs(d__8))); in zptrfs_()
[all …]
|
| H A D | zlartg.c | 159 d__2 = d_imag(&fs); in zlartg_()
164 d__2 = d_imag(&gs); in zlartg_()
173 d__3 = d_imag(g); in zlartg_()
178 d__2 = d_imag(&gs); in zlartg_()
187 d__2 = d_imag(&fs); in zlartg_()
206 d__2 = d_imag(f); in zlartg_()
209 d__2 = d_imag(f) / d__; in zlartg_()
214 di = safmx2 * d_imag(f); in zlartg_()
222 d__2 = -d_imag(&gs) / g2s; in zlartg_()
241 d__2 = f2s * d_imag(&fs); in zlartg_()
[all …]
|
| H A D | zsprfs.c | 25 double d_imag(doublecomplex *); in zsprfs_()
272 d_imag(&ap[ik]), abs(d__2))) * xk; in zsprfs_()
277 + (d__4 = d_imag(&x[i__ + j * x_dim1]), abs(d__4) in zsprfs_()
284 = d_imag(&ap[kk + k - 1]), abs(d__2))) * xk + s; in zsprfs_()
303 d_imag(&ap[ik]), abs(d__2))) * xk; in zsprfs_()
308 + (d__4 = d_imag(&x[i__ + j * x_dim1]), abs(d__4) in zsprfs_()
325 d_imag(&work[i__]), abs(d__2))) / rwork[i__]; in zsprfs_()
331 d_imag(&work[i__]), abs(d__2)) + safe1) / (rwork[i__] in zsprfs_()
384 d_imag(&work[i__]), abs(d__2)) + nz * eps * rwork[i__] in zsprfs_()
389 d_imag(&work[i__]), abs(d__2)) + nz * eps * rwork[i__] in zsprfs_()
[all …]
|
| H A D | zlags2.c | 18 double z_abs(doublecomplex *), d_imag(doublecomplex *); in zlags2_()
192 d_imag(&vb12), abs(d__2))) == 0.) { in zlags2_()
199 + ((d__3 = vb12.r, abs(d__3)) + (d__4 = d_imag(&vb12), in zlags2_()
262 + ((d__3 = ua22.r, abs(d__3)) + (d__4 = d_imag(&ua22), in zlags2_()
276 d_imag(&ua22), abs(d__4)))) <= avb22 / ((d__5 = vb21.r, in zlags2_()
353 ) + (d__2 = d_imag(a2), abs(d__2))); in zlags2_()
355 ) + (d__2 = d_imag(b2), abs(d__2))); in zlags2_()
419 ) + (d__2 = d_imag(a2), abs(d__2))); in zlags2_()
421 ) + (d__2 = d_imag(b2), abs(d__2))); in zlags2_()
426 + ((d__3 = ua12.r, abs(d__3)) + (d__4 = d_imag(&ua12), in zlags2_()
[all …]
|
| H A D | zlargv.c | 196 d__2 = d_imag(&fs); in zlargv_()
201 d__2 = d_imag(&gs); in zlargv_()
210 d__3 = d_imag(&g); in zlargv_()
216 d__2 = d_imag(&gs); in zlargv_()
219 d__2 = -d_imag(&gs) / d__; in zlargv_()
225 d__2 = d_imag(&fs); in zlargv_()
245 d__2 = d_imag(&f); in zlargv_()
248 d__2 = d_imag(&f) / d__; in zlargv_()
253 di = safmx2 * d_imag(&f); in zlargv_()
261 d__2 = -d_imag(&gs) / g2s; in zlargv_()
[all …]
|
| H A D | zsyrfs.c | 26 double d_imag(doublecomplex *); in zsyrfs_()
283 d_imag(&a[i__ + k * a_dim1]), abs(d__2))) * xk; in zsyrfs_()
288 .r, abs(d__3)) + (d__4 = d_imag(&x[i__ + j * in zsyrfs_()
294 d_imag(&a[k + k * a_dim1]), abs(d__2))) * xk + s; in zsyrfs_()
311 d_imag(&a[i__ + k * a_dim1]), abs(d__2))) * xk; in zsyrfs_()
316 .r, abs(d__3)) + (d__4 = d_imag(&x[i__ + j * in zsyrfs_()
331 d_imag(&work[i__]), abs(d__2))) / rwork[i__]; in zsyrfs_()
337 d_imag(&work[i__]), abs(d__2)) + safe1) / (rwork[i__] in zsyrfs_()
390 d_imag(&work[i__]), abs(d__2)) + nz * eps * rwork[i__] in zsyrfs_()
395 d_imag(&work[i__]), abs(d__2)) + nz * eps * rwork[i__] in zsyrfs_()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | zgtrfs.c | 214 double d_imag(doublecomplex *); in zgtrfs_()
361 …d_imag(&b[ j * b_dim1 + 1]), f2c_abs(d__2)) + ((d__3 = d__[1].r, f2c_abs( d__3)) + (d__4 = d_imag(… in zgtrfs_()
368 …d_imag(&b[ j * b_dim1 + 1]), f2c_abs(d__2)) + ((d__3 = d__[1].r, f2c_abs( d__3)) + (d__4 = d_imag(… in zgtrfs_()
381 …d_imag(&b[i__ + j * b_dim1]), f2c_abs(d__2)) + ((d__3 = dl[i__4].r, f2c_abs(d__3)) + (d__4 = d_ima… in zgtrfs_()
389 …d_imag(&b[ *n + j * b_dim1]), f2c_abs(d__2)) + ((d__3 = dl[i__3].r, f2c_abs(d__3)) + (d__4 = d_ima… in zgtrfs_()
398 …d_imag(&b[ j * b_dim1 + 1]), f2c_abs(d__2)) + ((d__3 = d__[1].r, f2c_abs( d__3)) + (d__4 = d_imag(… in zgtrfs_()
405 …d_imag(&b[ j * b_dim1 + 1]), f2c_abs(d__2)) + ((d__3 = d__[1].r, f2c_abs( d__3)) + (d__4 = d_imag(… in zgtrfs_()
418 …d_imag(&b[i__ + j * b_dim1]), f2c_abs(d__2)) + ((d__3 = du[i__4].r, f2c_abs(d__3)) + (d__4 = d_ima… in zgtrfs_()
426 …d_imag(&b[ *n + j * b_dim1]), f2c_abs(d__2)) + ((d__3 = du[i__3].r, f2c_abs(d__3)) + (d__4 = d_ima… in zgtrfs_()
446 …d__4 = ((d__1 = work[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&work[i__]), f2c_abs(d__2))) / rwork… in zgtrfs_()
[all …]
|
| H A D | ztprfs.c | 174 double d_imag(doublecomplex *); in ztprfs_()
330 …rwork[i__] = (d__1 = b[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&b[ i__ + j * b_dim1]), f2c_abs(d_… in ztprfs_()
347 … xk = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(& x[k + j * x_dim1]), f2c_abs(d__2)); in ztprfs_()
369 … xk = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(& x[k + j * x_dim1]), f2c_abs(d__2)); in ztprfs_()
396 … xk = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(& x[k + j * x_dim1]), f2c_abs(d__2)); in ztprfs_()
456 …r, f2c_abs(d__1)) + (d__2 = d_imag(&ap[kc + i__ - 1]), f2c_abs(d__2))) * ( (d__3 = x[i__5].r, f2c_… in ztprfs_()
472 … s = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&x[ k + j * x_dim1]), f2c_abs(d__2)); in ztprfs_()
480 …r, f2c_abs(d__1)) + (d__2 = d_imag(&ap[kc + i__ - 1]), f2c_abs(d__2))) * ( (d__3 = x[i__5].r, f2c_… in ztprfs_()
507 …r, f2c_abs(d__1)) + (d__2 = d_imag(&ap[kc + i__ - k]), f2c_abs(d__2))) * ( (d__3 = x[i__5].r, f2c_… in ztprfs_()
523 … s = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&x[ k + j * x_dim1]), f2c_abs(d__2)); in ztprfs_()
[all …]
|
| H A D | ztrrfs.c | 181 double d_imag(doublecomplex *); in ztrrfs_()
341 …rwork[i__] = (d__1 = b[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&b[ i__ + j * b_dim1]), f2c_abs(d_… in ztrrfs_()
357 … xk = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(& x[k + j * x_dim1]), f2c_abs(d__2)); in ztrrfs_()
378 … xk = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(& x[k + j * x_dim1]), f2c_abs(d__2)); in ztrrfs_()
403 … xk = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(& x[k + j * x_dim1]), f2c_abs(d__2)); in ztrrfs_()
460 …, f2c_abs(d__1)) + (d__2 = d_imag(&a[i__ + k * a_dim1]), f2c_abs(d__2))) * ((d__3 = x[i__5].r, f2c… in ztrrfs_()
475 … s = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&x[ k + j * x_dim1]), f2c_abs(d__2)); in ztrrfs_()
483 …, f2c_abs(d__1)) + (d__2 = d_imag(&a[i__ + k * a_dim1]), f2c_abs(d__2))) * ((d__3 = x[i__5].r, f2c… in ztrrfs_()
508 …, f2c_abs(d__1)) + (d__2 = d_imag(&a[i__ + k * a_dim1]), f2c_abs(d__2))) * ((d__3 = x[i__5].r, f2c… in ztrrfs_()
523 … s = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&x[ k + j * x_dim1]), f2c_abs(d__2)); in ztrrfs_()
[all …]
|
| H A D | ztbrfs.c | 188 double d_imag(doublecomplex *); in ztbrfs_()
352 …rwork[i__] = (d__1 = b[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&b[ i__ + j * b_dim1]), f2c_abs(d_… in ztbrfs_()
368 … xk = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(& x[k + j * x_dim1]), f2c_abs(d__2)); in ztbrfs_()
392 … xk = (d__1 = x[i__5].r, f2c_abs(d__1)) + (d__2 = d_imag(& x[k + j * x_dim1]), f2c_abs(d__2)); in ztbrfs_()
420 … xk = (d__1 = x[i__4].r, f2c_abs(d__1)) + (d__2 = d_imag(& x[k + j * x_dim1]), f2c_abs(d__2)); in ztbrfs_()
486 …(d__1)) + (d__2 = d_imag(&ab[*kd + 1 + i__ - k + k * ab_dim1]), f2c_abs(d__2))) * ((d__3 = x[i__5]… in ztbrfs_()
501 … s = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&x[ k + j * x_dim1]), f2c_abs(d__2)); in ztbrfs_()
512 …(d__1)) + (d__2 = d_imag(&ab[*kd + 1 + i__ - k + k * ab_dim1]), f2c_abs(d__2))) * ((d__3 = x[i__4]… in ztbrfs_()
540 …abs(d__1)) + (d__2 = d_imag(&ab[i__ + 1 - k + k * ab_dim1]), f2c_abs(d__2))) * ((d__3 = x[i__4].r,… in ztbrfs_()
555 … s = (d__1 = x[i__5].r, f2c_abs(d__1)) + (d__2 = d_imag(&x[ k + j * x_dim1]), f2c_abs(d__2)); in ztbrfs_()
[all …]
|
| H A D | zptrfs.c | 185 double d_imag(doublecomplex *); in zptrfs_()
323 …d__1 = bi.r, f2c_abs(d__1)) + (d__2 = d_imag(&bi), f2c_abs(d__2)) + ((d__3 = dx.r, f2c_abs(d__3)) … in zptrfs_()
347 …d_imag(&bi), f2c_abs(d__2)) + ((d__3 = dx.r, f2c_abs(d__3)) + (d__4 = d_imag(&dx), f2c_abs(d__4)))… in zptrfs_()
387 …d_imag(& bi), f2c_abs(d__2)) + ((d__3 = e[i__3].r, f2c_abs(d__3)) + (d__4 = d_imag(&e[i__ - 1]), f… in zptrfs_()
414 …d_imag(&bi), f2c_abs(d__2)) + ((d__3 = e[i__2].r, f2c_abs(d__3)) + (d__4 = d_imag(&e[*n - 1]), f2c… in zptrfs_()
433 …d__1 = bi.r, f2c_abs(d__1)) + (d__2 = d_imag(&bi), f2c_abs(d__2)) + ((d__3 = dx.r, f2c_abs(d__3)) … in zptrfs_()
458 …d_imag(&bi), f2c_abs(d__2)) + ((d__3 = dx.r, f2c_abs(d__3)) + (d__4 = d_imag(&dx), f2c_abs(d__4)))… in zptrfs_()
498 …d_imag(& bi), f2c_abs(d__2)) + ((d__3 = e[i__3].r, f2c_abs(d__3)) + (d__4 = d_imag(&e[i__ - 1]), f… in zptrfs_()
525 …d_imag(&bi), f2c_abs(d__2)) + ((d__3 = e[i__2].r, f2c_abs(d__3)) + (d__4 = d_imag(&e[*n - 1]), f2c… in zptrfs_()
545 …d__4 = ((d__1 = work[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&work[i__]), f2c_abs(d__2))) / rwork… in zptrfs_()
[all …]
|
| H A D | zlartg.c | 205 d__2 = d_imag(&fs); in zlartg_()
210 d__2 = d_imag(&gs); in zlartg_()
219 d__3 = d_imag(g); in zlartg_()
224 d__2 = d_imag(&gs); in zlartg_()
234 d__2 = d_imag(&fs); in zlartg_()
255 d__2 = d_imag(f); in zlartg_()
258 d__2 = d_imag(f) / d__; in zlartg_()
267 di = safmx2 * d_imag(f); in zlartg_()
277 d__2 = -d_imag(&gs) / g2s; in zlartg_()
299 d__2 = f2s * d_imag(&fs); in zlartg_()
[all …]
|
| H A D | zla_syamv.c | 173 double d_imag(doublecomplex *), d_sign(doublereal *, doublereal *); in zla_syamv_()
303 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[j + i__ * a_dim1]), f2c_abs(d__2)); in zla_syamv_()
307 …y[iy] += *alpha * ((d__1 = x[i__3].r, f2c_abs(d__1)) + ( d__2 = d_imag(&x[j]), f2c_abs(d__2))) * t… in zla_syamv_()
315 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[i__ + j * a_dim1]), f2c_abs(d__2)); in zla_syamv_()
319 …y[iy] += *alpha * ((d__1 = x[i__3].r, f2c_abs(d__1)) + ( d__2 = d_imag(&x[j]), f2c_abs(d__2))) * t… in zla_syamv_()
358 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[i__ + j * a_dim1]), f2c_abs(d__2)); in zla_syamv_()
370 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[j + i__ * a_dim1]), f2c_abs(d__2)); in zla_syamv_()
417 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[j + i__ * a_dim1]), f2c_abs(d__2)); in zla_syamv_()
430 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[i__ + j * a_dim1]), f2c_abs(d__2)); in zla_syamv_()
475 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[i__ + j * a_dim1]), f2c_abs(d__2)); in zla_syamv_()
[all …]
|
| H A D | zla_heamv.c | 172 double d_imag(doublecomplex *), d_sign(doublereal *, doublereal *); in zla_heamv_()
302 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[j + i__ * a_dim1]), f2c_abs(d__2)); in zla_heamv_()
306 …y[iy] += *alpha * ((d__1 = x[i__3].r, f2c_abs(d__1)) + ( d__2 = d_imag(&x[j]), f2c_abs(d__2))) * t… in zla_heamv_()
314 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[i__ + j * a_dim1]), f2c_abs(d__2)); in zla_heamv_()
318 …y[iy] += *alpha * ((d__1 = x[i__3].r, f2c_abs(d__1)) + ( d__2 = d_imag(&x[j]), f2c_abs(d__2))) * t… in zla_heamv_()
357 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[i__ + j * a_dim1]), f2c_abs(d__2)); in zla_heamv_()
369 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[j + i__ * a_dim1]), f2c_abs(d__2)); in zla_heamv_()
416 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[j + i__ * a_dim1]), f2c_abs(d__2)); in zla_heamv_()
429 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[i__ + j * a_dim1]), f2c_abs(d__2)); in zla_heamv_()
474 … temp = (d__1 = a[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag( &a[i__ + j * a_dim1]), f2c_abs(d__2)); in zla_heamv_()
[all …]
|
| H A D | zsprfs.c | 183 double d_imag(doublecomplex *); in zsprfs_()
321 …rwork[i__] = (d__1 = b[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&b[ i__ + j * b_dim1]), f2c_abs(d_… in zsprfs_()
335 … xk = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&x[k + j * x_dim1]), f2c_abs(d__2)); in zsprfs_()
343 … rwork[i__] += ((d__1 = ap[i__4].r, f2c_abs(d__1)) + (d__2 = d_imag(&ap[ik]), f2c_abs(d__2))) * xk; in zsprfs_()
346 …__4].r, f2c_abs(d__1)) + (d__2 = d_imag(&ap[ ik]), f2c_abs(d__2))) * ((d__3 = x[i__5].r, f2c_abs(d… in zsprfs_()
351 …rwork[k] = rwork[k] + ((d__1 = ap[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&ap[kk + k - 1]), f2c_a… in zsprfs_()
365 … xk = (d__1 = x[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(&x[k + j * x_dim1]), f2c_abs(d__2)); in zsprfs_()
367 … rwork[k] += ((d__1 = ap[i__3].r, f2c_abs(d__1)) + (d__2 = d_imag(& ap[kk]), f2c_abs(d__2))) * xk; in zsprfs_()
375 … rwork[i__] += ((d__1 = ap[i__4].r, f2c_abs(d__1)) + (d__2 = d_imag(&ap[ik]), f2c_abs(d__2))) * xk; in zsprfs_()
378 …__4].r, f2c_abs(d__1)) + (d__2 = d_imag(&ap[ ik]), f2c_abs(d__2))) * ((d__3 = x[i__5].r, f2c_abs(d… in zsprfs_()
[all …]
|
| H A D | zlags2.c | 152 double z_abs(doublecomplex *), d_imag(doublecomplex *); in zlags2_()
244 …if (f2c_abs(ua11r) + ((d__1 = ua12.r, f2c_abs(d__1)) + (d__2 = d_imag(& ua12), f2c_abs(d__2))) == … in zlags2_()
262 …abs(d__1)) + ( d__2 = d_imag(&ua12), f2c_abs(d__2)))) <= avb12 / (f2c_abs(vb11r) + ((d__3 = vb12.r… in zlags2_()
342 … = ua21.r, f2c_abs(d__1)) + (d__2 = d_imag(&ua21), f2c_abs(d__2)) + ((d__3 = ua22.r, f2c_abs(d__3)… in zlags2_()
350 …else if ((d__1 = vb21.r, f2c_abs(d__1)) + (d__2 = d_imag(&vb21), f2c_abs(d__2)) + z_abs(&vb22) == … in zlags2_()
358 …d_imag(& ua21), f2c_abs(d__2)) + ((d__3 = ua22.r, f2c_abs(d__3)) + (d__4 = d_imag(&ua22), f2c_abs(… in zlags2_()
448 … if ((d__1 = ua21.r, f2c_abs(d__1)) + (d__2 = d_imag(&ua21), f2c_abs(d__2)) + f2c_abs(ua22r) == 0.) in zlags2_()
460 …_abs(d__1)) + (d__2 = d_imag(& ua21), f2c_abs(d__2)) + f2c_abs(ua22r)) <= avb21 / ((d__3 = vb21.r,… in zlags2_()
528 … = ua11.r, f2c_abs(d__1)) + (d__2 = d_imag(&ua11), f2c_abs(d__2)) + ((d__3 = ua12.r, f2c_abs(d__3)… in zlags2_()
532 … = vb11.r, f2c_abs(d__1)) + (d__2 = d_imag(&vb11), f2c_abs(d__2)) + ((d__3 = vb12.r, f2c_abs(d__3)… in zlags2_()
[all …]
|
| H A D | zlargv.c | 261 d__2 = d_imag(&fs); in zlargv_()
266 d__2 = d_imag(&gs); in zlargv_()
275 d__3 = d_imag(&g); in zlargv_()
282 d__2 = d_imag(&gs); in zlargv_()
293 d__2 = d_imag(&fs); in zlargv_()
314 d__2 = d_imag(&f); in zlargv_()
317 d__2 = d_imag(&f) / d__; in zlargv_()
326 di = safmx2 * d_imag(&f); in zlargv_()
336 d__2 = -d_imag(&gs) / g2s; in zlargv_()
361 d__2 = f2s * d_imag(&fs); in zlargv_()
[all …]
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/complex16/ |
| H A D | zlartg.c | 216 d__2 = d_imag(&fs); in zlartg_()
222 d__2 = d_imag(&gs); in zlartg_()
235 d__3 = d_imag(g); in zlartg_()
241 d__2 = d_imag(&gs); in zlartg_()
254 d__2 = d_imag(&fs); in zlartg_()
277 d__2 = d_imag(f); in zlartg_()
281 d__2 = d_imag(f) / d__; in zlartg_()
289 di = safmx2 * d_imag(f); in zlartg_()
301 d__2 = -d_imag(&gs) / g2s; in zlartg_()
324 d__2 = f2s * d_imag(&fs); in zlartg_()
[all …]
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/ |
| H A D | zlartg.c | 167 d__2 = d_imag(&fs); in zlartg_()
172 d__2 = d_imag(&gs); in zlartg_()
181 d__3 = d_imag(g); in zlartg_()
186 d__2 = d_imag(&gs); in zlartg_()
195 d__2 = d_imag(&fs); in zlartg_()
214 d__2 = d_imag(f); in zlartg_()
217 d__2 = d_imag(f) / d__; in zlartg_()
222 di = safmx2 * d_imag(f); in zlartg_()
230 d__2 = -d_imag(&gs) / g2s; in zlartg_()
249 d__2 = f2s * d_imag(&fs); in zlartg_()
[all …]
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/complex16/ |
| H A D | zlartg.c | 216 d__2 = d_imag(&fs); in zlartg_()
222 d__2 = d_imag(&gs); in zlartg_()
235 d__3 = d_imag(g); in zlartg_()
241 d__2 = d_imag(&gs); in zlartg_()
254 d__2 = d_imag(&fs); in zlartg_()
277 d__2 = d_imag(f); in zlartg_()
281 d__2 = d_imag(f) / d__; in zlartg_()
289 di = safmx2 * d_imag(f); in zlartg_()
301 d__2 = -d_imag(&gs) / g2s; in zlartg_()
324 d__2 = f2s * d_imag(&fs); in zlartg_()
[all …]
|