| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/CLAPACK/ |
| H A D | strsyl.c | 299 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in strsyl_()
339 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in strsyl_()
351 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l1 * in strsyl_()
384 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in strsyl_()
397 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l2 * in strsyl_()
431 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in strsyl_()
443 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l2 * in strsyl_()
455 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l1 * in strsyl_()
467 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l2 * in strsyl_()
567 sumr = sdot_(&i__3, &c__[k1 + c_dim1], ldc, &b[l1 * in strsyl_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | strsyl.c | 293 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in strsyl_()
333 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in strsyl_()
345 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l1 * in strsyl_()
378 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in strsyl_()
391 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l2 * in strsyl_()
425 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in strsyl_()
437 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l2 * in strsyl_()
449 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l1 * in strsyl_()
461 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l2 * in strsyl_()
561 sumr = sdot_(&i__3, &c__[k1 + c_dim1], ldc, &b[l1 * in strsyl_()
[all …]
|
| H A D | ssptri.c | 27 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in ssptri_()
199 ap[kc + k - 1] -= sdot_(&i__1, &work[1], &c__1, &ap[kc], & in ssptri_()
227 ap[kc + k - 1] -= sdot_(&i__1, &work[1], &c__1, &ap[kc], & in ssptri_()
230 ap[kcnext + k - 1] -= sdot_(&i__1, &ap[kc], &c__1, &ap[kcnext] in ssptri_()
238 ap[kcnext + k] -= sdot_(&i__1, &work[1], &c__1, &ap[kcnext], & in ssptri_()
315 ap[kc] -= sdot_(&i__1, &work[1], &c__1, &ap[kc + 1], &c__1); in ssptri_()
342 ap[kc] -= sdot_(&i__1, &work[1], &c__1, &ap[kc + 1], &c__1); in ssptri_()
344 ap[kcnext + 1] -= sdot_(&i__1, &ap[kc + 1], &c__1, &ap[kcnext in ssptri_()
352 ap[kcnext] -= sdot_(&i__1, &work[1], &c__1, &ap[kcnext + 2], & in ssptri_()
|
| H A D | stgsna.c | 41 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in stgsna_()
535 tmprr = sdot_(n, &work[1], &c__1, &vl[ks * vl_dim1 + 1], & in stgsna_()
537 tmpri = sdot_(n, &work[1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], in stgsna_()
542 tmpii = sdot_(n, &work[1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], in stgsna_()
544 tmpir = sdot_(n, &work[1], &c__1, &vl[ks * vl_dim1 + 1], & in stgsna_()
550 tmprr = sdot_(n, &work[1], &c__1, &vl[ks * vl_dim1 + 1], & in stgsna_()
552 tmpri = sdot_(n, &work[1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], in stgsna_()
557 tmpii = sdot_(n, &work[1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], in stgsna_()
559 tmpir = sdot_(n, &work[1], &c__1, &vl[ks * vl_dim1 + 1], & in stgsna_()
577 uhav = sdot_(n, &work[1], &c__1, &vl[ks * vl_dim1 + 1], &c__1) in stgsna_()
[all …]
|
| H A D | ssytri.c | 27 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in ssytri_()
198 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k * in ssytri_()
226 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k * in ssytri_()
229 a[k + (k + 1) * a_dim1] -= sdot_(&i__1, &a[k * a_dim1 + 1], & in ssytri_()
239 a[k + 1 + (k + 1) * a_dim1] -= sdot_(&i__1, &work[1], &c__1, & in ssytri_()
306 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k + 1 + in ssytri_()
335 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k + 1 + in ssytri_()
338 a[k + (k - 1) * a_dim1] -= sdot_(&i__1, &a[k + 1 + k * a_dim1] in ssytri_()
348 a[k - 1 + (k - 1) * a_dim1] -= sdot_(&i__1, &work[1], &c__1, & in ssytri_()
|
| H A D | strsna.c | 40 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in strsna_()
404 prod = sdot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * in strsna_()
413 prod1 = sdot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * in strsna_()
415 prod1 += sdot_(n, &vr[(ks + 1) * vr_dim1 + 1], &c__1, &vl[(ks in strsna_()
417 prod2 = sdot_(n, &vl[ks * vl_dim1 + 1], &c__1, &vr[(ks + 1) * in strsna_()
419 prod2 -= sdot_(n, &vl[(ks + 1) * vl_dim1 + 1], &c__1, &vr[ks * in strsna_()
|
| H A D | slauu2.c | 22 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in slauu2_()
133 a[i__ + i__ * a_dim1] = sdot_(&i__2, &a[i__ + i__ * a_dim1], in slauu2_()
155 a[i__ + i__ * a_dim1] = sdot_(&i__2, &a[i__ + i__ * a_dim1], & in slauu2_()
|
| H A D | slatdf.c | 31 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in slatdf_()
191 splus += sdot_(&i__2, &z__[j + 1 + j * z_dim1], &c__1, &z__[j + 1 in slatdf_()
194 sminu = sdot_(&i__2, &z__[j + 1 + j * z_dim1], &c__1, &rhs[j + 1], in slatdf_()
273 temp = 1.f / sqrt(sdot_(n, xm, &c__1, xm, &c__1)); in slatdf_()
|
| H A D | spotf2.c | 27 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in spotf2_()
146 ajj = a[j + j * a_dim1] - sdot_(&i__2, &a[j * a_dim1 + 1], &c__1, in spotf2_()
179 ajj = a[j + j * a_dim1] - sdot_(&i__2, &a[j + a_dim1], lda, &a[j in spotf2_()
|
| H A D | slapll.c | 16 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in slapll_()
102 c__ = -tau * sdot_(n, &x[1], incx, &y[1], incy); in slapll_()
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | strsyl.c | 177 extern real sdot_(integer *, real *, integer *, real *, integer *); in strsyl_()
369 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * b_dim1 + 1], &c__1); in strsyl_()
412 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * b_dim1 + 1], &c__1); in strsyl_()
421 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l1 * b_dim1 + 1], &c__1); in strsyl_()
453 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * b_dim1 + 1], &c__1); in strsyl_()
462 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l2 * b_dim1 + 1], &c__1); in strsyl_()
494 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * b_dim1 + 1], &c__1); in strsyl_()
503 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l2 * b_dim1 + 1], &c__1); in strsyl_()
512 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l1 * b_dim1 + 1], &c__1); in strsyl_()
521 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l2 * b_dim1 + 1], &c__1); in strsyl_()
[all …]
|
| H A D | stgsna.c | 399 extern real sdot_(integer *, real *, integer *, real *, integer *); in stgsna_()
649 tmprr = sdot_(n, &work[1], &c__1, &vl[ks * vl_dim1 + 1], & c__1); in stgsna_()
650 tmpri = sdot_(n, &work[1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], &c__1); in stgsna_()
652 tmpii = sdot_(n, &work[1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], &c__1); in stgsna_()
653 tmpir = sdot_(n, &work[1], &c__1, &vl[ks * vl_dim1 + 1], & c__1); in stgsna_()
657 tmprr = sdot_(n, &work[1], &c__1, &vl[ks * vl_dim1 + 1], & c__1); in stgsna_()
658 tmpri = sdot_(n, &work[1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], &c__1); in stgsna_()
660 tmpii = sdot_(n, &work[1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], &c__1); in stgsna_()
661 tmpir = sdot_(n, &work[1], &c__1, &vl[ks * vl_dim1 + 1], & c__1); in stgsna_()
676 uhav = sdot_(n, &work[1], &c__1, &vl[ks * vl_dim1 + 1], &c__1) ; in stgsna_()
[all …]
|
| H A D | ssptri.c | 116 extern real sdot_(integer *, real *, integer *, real *, integer *); in ssptri_()
232 ap[kc + k - 1] -= sdot_(&i__1, &work[1], &c__1, &ap[kc], & c__1); in ssptri_()
256 ap[kc + k - 1] -= sdot_(&i__1, &work[1], &c__1, &ap[kc], & c__1); in ssptri_()
258 ap[kcnext + k - 1] -= sdot_(&i__1, &ap[kc], &c__1, &ap[kcnext] , &c__1); in ssptri_()
264 ap[kcnext + k] -= sdot_(&i__1, &work[1], &c__1, &ap[kcnext], & c__1); in ssptri_()
332 ap[kc] -= sdot_(&i__1, &work[1], &c__1, &ap[kc + 1], &c__1); in ssptri_()
356 ap[kc] -= sdot_(&i__1, &work[1], &c__1, &ap[kc + 1], &c__1); in ssptri_()
358 ap[kcnext + 1] -= sdot_(&i__1, &ap[kc + 1], &c__1, &ap[kcnext + 2], &c__1); in ssptri_()
364 ap[kcnext] -= sdot_(&i__1, &work[1], &c__1, &ap[kcnext + 2], & c__1); in ssptri_()
|
| H A D | ssytri.c | 121 extern real sdot_(integer *, real *, integer *, real *, integer *); in ssytri_()
236 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k * a_dim1 + 1], &c__1); in ssytri_()
260 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k * a_dim1 + 1], &c__1); in ssytri_()
262 …a[k + (k + 1) * a_dim1] -= sdot_(&i__1, &a[k * a_dim1 + 1], & c__1, &a[(k + 1) * a_dim1 + 1], &c__… in ssytri_()
268 … a[k + 1 + (k + 1) * a_dim1] -= sdot_(&i__1, &work[1], &c__1, & a[(k + 1) * a_dim1 + 1], &c__1); in ssytri_()
320 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k + 1 + k * a_dim1], &c__1); in ssytri_()
344 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k + 1 + k * a_dim1], &c__1); in ssytri_()
346 …a[k + (k - 1) * a_dim1] -= sdot_(&i__1, &a[k + 1 + k * a_dim1] , &c__1, &a[k + 1 + (k - 1) * a_dim… in ssytri_()
352 …a[k - 1 + (k - 1) * a_dim1] -= sdot_(&i__1, &work[1], &c__1, & a[k + 1 + (k - 1) * a_dim1], &c__1); in ssytri_()
|
| H A D | ssytri_rook.c | 135 extern real sdot_(integer *, real *, integer *, real *, integer *); in ssytri_rook_()
250 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k * a_dim1 + 1], &c__1); in ssytri_rook_()
274 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k * a_dim1 + 1], &c__1); in ssytri_rook_()
276 …a[k + (k + 1) * a_dim1] -= sdot_(&i__1, &a[k * a_dim1 + 1], & c__1, &a[(k + 1) * a_dim1 + 1], &c__… in ssytri_rook_()
282 … a[k + 1 + (k + 1) * a_dim1] -= sdot_(&i__1, &work[1], &c__1, & a[(k + 1) * a_dim1 + 1], &c__1); in ssytri_rook_()
371 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k + 1 + k * a_dim1], &c__1); in ssytri_rook_()
395 a[k + k * a_dim1] -= sdot_(&i__1, &work[1], &c__1, &a[k + 1 + k * a_dim1], &c__1); in ssytri_rook_()
397 …a[k + (k - 1) * a_dim1] -= sdot_(&i__1, &a[k + 1 + k * a_dim1] , &c__1, &a[k + 1 + (k - 1) * a_dim… in ssytri_rook_()
403 …a[k - 1 + (k - 1) * a_dim1] -= sdot_(&i__1, &work[1], &c__1, & a[k + 1 + (k - 1) * a_dim1], &c__1); in ssytri_rook_()
|
| H A D | strsna.c | 284 extern real sdot_(integer *, real *, integer *, real *, integer *); in strsna_()
523 prod = sdot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * vl_dim1 + 1], &c__1); in strsna_()
531 prod1 = sdot_(n, &vr[ks * vr_dim1 + 1], &c__1, &vl[ks * vl_dim1 + 1], &c__1); in strsna_()
532 … prod1 += sdot_(n, &vr[(ks + 1) * vr_dim1 + 1], &c__1, &vl[(ks + 1) * vl_dim1 + 1], &c__1); in strsna_()
533 prod2 = sdot_(n, &vl[ks * vl_dim1 + 1], &c__1, &vr[(ks + 1) * vr_dim1 + 1], &c__1); in strsna_()
534 prod2 -= sdot_(n, &vl[(ks + 1) * vl_dim1 + 1], &c__1, &vr[ks * vr_dim1 + 1], &c__1); in strsna_()
|
| H A D | slatdf.c | 176 extern real sdot_(integer *, real *, integer *, real *, integer *); in slatdf_()
237 splus += sdot_(&i__2, &z__[j + 1 + j * z_dim1], &c__1, &z__[j + 1 + j * z_dim1], &c__1); in slatdf_()
239 sminu = sdot_(&i__2, &z__[j + 1 + j * z_dim1], &c__1, &rhs[j + 1], &c__1); in slatdf_()
313 temp = 1.f / sqrt(sdot_(n, xm, &c__1, xm, &c__1)); in slatdf_()
|
| H A D | ssptrd.c | 155 extern real sdot_(integer *, real *, integer *, real *, integer *); in ssptrd_()
229 alpha = taui * -.5f * sdot_(&i__, &tau[1], &c__1, &ap[i1], & c__1); in ssptrd_()
268 alpha = taui * -.5f * sdot_(&i__2, &tau[i__], &c__1, &ap[ii + 1], &c__1); in ssptrd_()
|
| H A D | slapll.c | 97 extern real sdot_(integer *, real *, integer *, real *, integer *); in slapll_()
135 c__ = -tau * sdot_(n, &x[1], incx, &y[1], incy); in slapll_()
|
| /dports/math/openblas/OpenBLAS-0.3.18/relapack/src/ |
| H A D | strsyl_rec2.c | 165 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in RELAPACK_strsyl_rec2()
201 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in RELAPACK_strsyl_rec2()
212 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l1 * in RELAPACK_strsyl_rec2()
241 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in RELAPACK_strsyl_rec2()
253 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l2 * in RELAPACK_strsyl_rec2()
283 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l1 * in RELAPACK_strsyl_rec2()
294 sumr = sdot_(&i__2, &c__[k1 + c_dim1], ldc, &b[l2 * in RELAPACK_strsyl_rec2()
305 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l1 * in RELAPACK_strsyl_rec2()
316 sumr = sdot_(&i__2, &c__[k2 + c_dim1], ldc, &b[l2 * in RELAPACK_strsyl_rec2()
390 sumr = sdot_(&i__3, &c__[k1 + c_dim1], ldc, &b[l1 * in RELAPACK_strsyl_rec2()
[all …]
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/linpack/ |
| H A D | sqrsl.c | 39 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in sqrsl_()
307 t = -sdot_(&i__2, &x[j + j * x_dim1], &c__1, &qy[j], &c__1) / x[j + j in sqrsl_()
342 t = -sdot_(&i__2, &x[j + j * x_dim1], &c__1, &qty[j], &c__1) / x[j + in sqrsl_()
473 t = -sdot_(&i__2, &x[j + j * x_dim1], &c__1, &rsd[j], &c__1) / x[j + in sqrsl_()
486 t = -sdot_(&i__2, &x[j + j * x_dim1], &c__1, &xb[j], &c__1) / x[j + j in sqrsl_()
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/linpack/ |
| H A D | sqrsl.c | 39 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in sqrsl_()
307 t = -sdot_(&i__2, &x[j + j * x_dim1], &c__1, &qy[j], &c__1) / x[j + j in sqrsl_()
342 t = -sdot_(&i__2, &x[j + j * x_dim1], &c__1, &qty[j], &c__1) / x[j + in sqrsl_()
473 t = -sdot_(&i__2, &x[j + j * x_dim1], &c__1, &rsd[j], &c__1) / x[j + in sqrsl_()
486 t = -sdot_(&i__2, &x[j + j * x_dim1], &c__1, &xb[j], &c__1) / x[j + j in sqrsl_()
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/cgcode/ |
| H A D | sppcg.c | 44 extern doublereal sdot_(integer *, real *, integer *, real *, integer *), in sppcg_()
553 denom = sqrt(sdot_(n, &b[1], &c__1, &h__[1], &c__1)); in sppcg_()
558 denom = sqrt(sdot_(n, &b[1], &c__1, &h__[1], &c__1)); in sppcg_()
578 s0norm = sqrt(sdot_(n, &r__[1], &c__1, &b[1], &c__1)); in sppcg_()
604 alpha = r__1 * r__1 / sdot_(n, &h__[1], &c__1, &b[1], &c__1); in sppcg_()
619 snorm = sqrt(sdot_(n, &r__[1], &c__1, &h__[1], &c__1)); in sppcg_()
|
| /dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/VNL/src/vxl/v3p/netlib/lapack/single/ |
| H A D | slapll.c | 27 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in slapll_()
130 c__ = -tau * sdot_(n, &x[1], incx, &y[1], incy); in slapll_()
|
| /dports/misc/vxl/vxl-3.3.2/v3p/netlib/lapack/single/ |
| H A D | slapll.c | 27 extern doublereal sdot_(integer *, real *, integer *, real *, integer *); in slapll_()
130 c__ = -tau * sdot_(n, &x[1], incx, &y[1], incy); in slapll_()
|