| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | sorbdb.c | 494 … slarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + 1 + i__ * x11_dim1], &c__1, &taup1[i__]); in sorbdb_()
499 … slarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + i__ * x11_dim1], &c__1, &taup1[i__]); in sorbdb_()
505 … slarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + 1 + i__ * x21_dim1], &c__1, &taup2[i__]); in sorbdb_()
510 … slarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + i__ * x21_dim1], &c__1, &taup2[i__]); in sorbdb_()
577 … slarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + i__ * x12_dim1], ldx12, &tauq2[i__]); in sorbdb_()
620 … slarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + i__ * x12_dim1], ldx12, &tauq2[i__]); in sorbdb_()
709 … slarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + (i__ + 1) * x11_dim1], ldx11, &taup1[i__]); in sorbdb_()
714 … slarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + i__ * x21_dim1], ldx21, &taup2[i__]); in sorbdb_()
784 … slarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + 1 + i__ * x12_dim1], &c__1, &tauq2[i__]); in sorbdb_()
789 … slarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + i__ * x12_dim1], &c__1, &tauq2[i__]); in sorbdb_()
[all …]
|
| H A D | dorbdb.c | 496 … dlarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + 1 + i__ * x11_dim1], &c__1, &taup1[i__]); in dorbdb_()
501 … dlarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + i__ * x11_dim1], &c__1, &taup1[i__]); in dorbdb_()
507 … dlarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + 1 + i__ * x21_dim1], &c__1, &taup2[i__]); in dorbdb_()
512 … dlarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + i__ * x21_dim1], &c__1, &taup2[i__]); in dorbdb_()
579 … dlarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + i__ * x12_dim1], ldx12, &tauq2[i__]); in dorbdb_()
622 … dlarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + i__ * x12_dim1], ldx12, &tauq2[i__]); in dorbdb_()
711 … dlarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + (i__ + 1) * x11_dim1], ldx11, &taup1[i__]); in dorbdb_()
716 … dlarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + i__ * x21_dim1], ldx21, &taup2[i__]); in dorbdb_()
786 … dlarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + 1 + i__ * x12_dim1], &c__1, &tauq2[i__]); in dorbdb_()
791 … dlarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + i__ * x12_dim1], &c__1, &tauq2[i__]); in dorbdb_()
[all …]
|
| H A D | zunbdb.c | 511 … zlarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + 1 + i__ * x11_dim1], &c__1, &taup1[i__]); in zunbdb_()
516 … zlarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + i__ * x11_dim1], &c__1, &taup1[i__]); in zunbdb_()
524 … zlarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + 1 + i__ * x21_dim1], &c__1, &taup2[i__]); in zunbdb_()
529 … zlarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + i__ * x21_dim1], &c__1, &taup2[i__]); in zunbdb_()
610 … zlarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + i__ * x12_dim1], ldx12, &tauq2[i__]); in zunbdb_()
666 … zlarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + i__ * x12_dim1], ldx12, &tauq2[i__]); in zunbdb_()
671 … zlarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + (i__ + 1) * x12_dim1], ldx12, &tauq2[i__]); in zunbdb_()
772 … zlarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + (i__ + 1) * x11_dim1], ldx11, &taup1[i__]); in zunbdb_()
779 … zlarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + i__ * x21_dim1], ldx21, &taup2[i__]); in zunbdb_()
843 … zlarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + 1 + i__ * x12_dim1], &c__1, &tauq2[i__]); in zunbdb_()
[all …]
|
| H A D | cunbdb.c | 513 … clarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + 1 + i__ * x11_dim1], &c__1, &taup1[i__]); in cunbdb_()
518 … clarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + i__ * x11_dim1], &c__1, &taup1[i__]); in cunbdb_()
526 … clarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + 1 + i__ * x21_dim1], &c__1, &taup2[i__]); in cunbdb_()
531 … clarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + i__ * x21_dim1], &c__1, &taup2[i__]); in cunbdb_()
612 … clarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + i__ * x12_dim1], ldx12, &tauq2[i__]); in cunbdb_()
668 … clarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + i__ * x12_dim1], ldx12, &tauq2[i__]); in cunbdb_()
673 … clarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + (i__ + 1) * x12_dim1], ldx12, &tauq2[i__]); in cunbdb_()
774 … clarfgp_(&i__2, &x11[i__ + i__ * x11_dim1], &x11[i__ + (i__ + 1) * x11_dim1], ldx11, &taup1[i__]); in cunbdb_()
781 … clarfgp_(&i__2, &x21[i__ + i__ * x21_dim1], &x21[i__ + i__ * x21_dim1], ldx21, &taup2[i__]); in cunbdb_()
845 … clarfgp_(&i__2, &x12[i__ + i__ * x12_dim1], &x12[i__ + 1 + i__ * x12_dim1], &c__1, &tauq2[i__]); in cunbdb_()
[all …]
|
| H A D | slabrd.c | 275 … slarfg_(&i__2, &a[i__ + i__ * a_dim1], &a[min(i__3,*m) + i__ * a_dim1], &c__1, &tauq[i__]); in slabrd_()
276 d__[i__] = a[i__ + i__ * a_dim1]; in slabrd_()
283 …spose", &i__2, &i__3, &c_b5, &a[i__ + (i__ + 1) * a_dim1], lda, &a[i__ + i__ * a_dim1], &c__1, &c_… in slabrd_()
308 … slarfg_(&i__2, &a[i__ + (i__ + 1) * a_dim1], &a[i__ + min( i__3,*n) * a_dim1], lda, &taup[i__]); in slabrd_()
309 e[i__] = a[i__ + (i__ + 1) * a_dim1]; in slabrd_()
314 …se", &i__2, &i__3, &c_b5, &a[i__ + 1 + (i__ + 1) * a_dim1], lda, &a[i__ + (i__ + 1) * a_dim1], lda… in slabrd_()
350 … slarfg_(&i__2, &a[i__ + i__ * a_dim1], &a[i__ + min(i__3,*n) * a_dim1], lda, &taup[i__]); in slabrd_()
351 d__[i__] = a[i__ + i__ * a_dim1]; in slabrd_()
358 …anspose", &i__2, &i__3, &c_b5, &a[i__ + 1 + i__ * a_dim1], lda, &a[i__ + i__ * a_dim1], lda, &c_b1… in slabrd_()
384 e[i__] = a[i__ + 1 + i__ * a_dim1]; in slabrd_()
[all …]
|
| H A D | dlabrd.c | 275 … dlarfg_(&i__2, &a[i__ + i__ * a_dim1], &a[min(i__3,*m) + i__ * a_dim1], &c__1, &tauq[i__]); in dlabrd_()
276 d__[i__] = a[i__ + i__ * a_dim1]; in dlabrd_()
283 …spose", &i__2, &i__3, &c_b5, &a[i__ + (i__ + 1) * a_dim1], lda, &a[i__ + i__ * a_dim1], &c__1, &c_… in dlabrd_()
308 … dlarfg_(&i__2, &a[i__ + (i__ + 1) * a_dim1], &a[i__ + min( i__3,*n) * a_dim1], lda, &taup[i__]); in dlabrd_()
309 e[i__] = a[i__ + (i__ + 1) * a_dim1]; in dlabrd_()
314 …se", &i__2, &i__3, &c_b5, &a[i__ + 1 + (i__ + 1) * a_dim1], lda, &a[i__ + (i__ + 1) * a_dim1], lda… in dlabrd_()
350 … dlarfg_(&i__2, &a[i__ + i__ * a_dim1], &a[i__ + min(i__3,*n) * a_dim1], lda, &taup[i__]); in dlabrd_()
351 d__[i__] = a[i__ + i__ * a_dim1]; in dlabrd_()
358 …anspose", &i__2, &i__3, &c_b5, &a[i__ + 1 + i__ * a_dim1], lda, &a[i__ + i__ * a_dim1], lda, &c_b1… in dlabrd_()
384 e[i__] = a[i__ + 1 + i__ * a_dim1]; in dlabrd_()
[all …]
|
| H A D | zlabrd.c | 291 i__2 = i__ + i__ * a_dim1; in zlabrd_()
302 i__2 = i__ + i__ * a_dim1; in zlabrd_()
308 …spose", &i__2, &i__3, &c_b2, &a[i__ + ( i__ + 1) * a_dim1], lda, &a[i__ + i__ * a_dim1], & c__1, &… in zlabrd_()
326 zscal_(&i__2, &tauq[i__], &y[i__ + 1 + i__ * y_dim1], &c__1); in zlabrd_()
361 …se", &i__2, &i__3, &c_b2, &a[i__ + 1 + (i__ + 1) * a_dim1], lda, &a[i__ + (i__ + 1) * a_dim1], lda… in zlabrd_()
377 zscal_(&i__2, &taup[i__], &x[i__ + 1 + i__ * x_dim1], &c__1); in zlabrd_()
414 i__2 = i__ + i__ * a_dim1; in zlabrd_()
431 …ranspose", &i__2, &i__3, &c_b2, &a[i__ + 1 + i__ * a_dim1], lda, &a[i__ + i__ * a_dim1], lda, &c_b… in zlabrd_()
449 zscal_(&i__2, &taup[i__], &x[i__ + 1 + i__ * x_dim1], &c__1); in zlabrd_()
482 …se", &i__2, &i__3, &c_b2, &a[i__ + 1 + (i__ + 1) * a_dim1], lda, &a[i__ + 1 + i__ * a_dim1] , &c__… in zlabrd_()
[all …]
|
| H A D | clabrd.c | 291 i__2 = i__ + i__ * a_dim1; in clabrd_()
302 i__2 = i__ + i__ * a_dim1; in clabrd_()
308 …spose", &i__2, &i__3, &c_b2, &a[i__ + ( i__ + 1) * a_dim1], lda, &a[i__ + i__ * a_dim1], & c__1, &… in clabrd_()
326 cscal_(&i__2, &tauq[i__], &y[i__ + 1 + i__ * y_dim1], &c__1); in clabrd_()
361 …se", &i__2, &i__3, &c_b2, &a[i__ + 1 + (i__ + 1) * a_dim1], lda, &a[i__ + (i__ + 1) * a_dim1], lda… in clabrd_()
377 cscal_(&i__2, &taup[i__], &x[i__ + 1 + i__ * x_dim1], &c__1); in clabrd_()
414 i__2 = i__ + i__ * a_dim1; in clabrd_()
431 …ranspose", &i__2, &i__3, &c_b2, &a[i__ + 1 + i__ * a_dim1], lda, &a[i__ + i__ * a_dim1], lda, &c_b… in clabrd_()
449 cscal_(&i__2, &taup[i__], &x[i__ + 1 + i__ * x_dim1], &c__1); in clabrd_()
482 …se", &i__2, &i__3, &c_b2, &a[i__ + 1 + (i__ + 1) * a_dim1], lda, &a[i__ + 1 + i__ * a_dim1] , &c__… in clabrd_()
[all …]
|
| H A D | dgtsv.c | 201 fact = d__[i__] / dl[i__]; in dgtsv_()
202 d__[i__] = dl[i__]; in dgtsv_()
205 dl[i__] = du[i__ + 1]; in dgtsv_()
233 fact = d__[i__] / dl[i__]; in dgtsv_()
234 d__[i__] = dl[i__]; in dgtsv_()
282 fact = d__[i__] / dl[i__]; in dgtsv_()
283 d__[i__] = dl[i__]; in dgtsv_()
286 dl[i__] = du[i__ + 1]; in dgtsv_()
329 d__[i__] = dl[i__]; in dgtsv_()
365 …b[i__ + j * b_dim1] = (b[i__ + j * b_dim1] - du[i__] * b[i__ + 1 + j * b_dim1] - dl[i__] * b[i__ +… in dgtsv_()
[all …]
|
| H A D | sgtsv.c | 201 fact = d__[i__] / dl[i__]; in sgtsv_()
202 d__[i__] = dl[i__]; in sgtsv_()
205 dl[i__] = du[i__ + 1]; in sgtsv_()
233 fact = d__[i__] / dl[i__]; in sgtsv_()
234 d__[i__] = dl[i__]; in sgtsv_()
282 fact = d__[i__] / dl[i__]; in sgtsv_()
283 d__[i__] = dl[i__]; in sgtsv_()
286 dl[i__] = du[i__ + 1]; in sgtsv_()
329 d__[i__] = dl[i__]; in sgtsv_()
365 …b[i__ + j * b_dim1] = (b[i__ + j * b_dim1] - du[i__] * b[i__ + 1 + j * b_dim1] - dl[i__] * b[i__ +… in sgtsv_()
[all …]
|
| /dports/science/hypre/hypre-2.23.0/src/lapack/ |
| H A D | dlabrd.c | 192 for (i__ = 1; i__ <= i__1; ++i__) { in dlabrd_()
212 d__[i__] = a_ref(i__, i__); in dlabrd_()
214 a_ref(i__, i__) = 1.; in dlabrd_()
226 &a_ref(i__, i__), &c__1, &c_b16, &y_ref(1, i__), & in dlabrd_()
236 &a_ref(i__, i__), &c__1, &c_b16, &y_ref(1, i__), & in dlabrd_()
265 e[i__] = a_ref(i__, i__ + 1); in dlabrd_()
303 for (i__ = 1; i__ <= i__1; ++i__) { in dlabrd_()
323 d__[i__] = a_ref(i__, i__); in dlabrd_()
325 a_ref(i__, i__) = 1.; in dlabrd_()
332 i__), lda, &a_ref(i__, i__), lda, &c_b16, &x_ref(i__ in dlabrd_()
[all …]
|
| H A D | dgebd2.c | 179 for (i__ = 1; i__ <= i__1; ++i__) { in dgebd2_()
188 d__[i__] = a_ref(i__, i__); in dgebd2_()
189 a_ref(i__, i__) = 1.; in dgebd2_()
197 a_ref(i__, i__) = d__[i__]; in dgebd2_()
209 e[i__] = a_ref(i__, i__ + 1); in dgebd2_()
218 a_ref(i__, i__ + 1) = e[i__]; in dgebd2_()
229 for (i__ = 1; i__ <= i__1; ++i__) { in dgebd2_()
238 d__[i__] = a_ref(i__, i__); in dgebd2_()
249 a_ref(i__, i__) = d__[i__]; in dgebd2_()
261 e[i__] = a_ref(i__ + 1, i__); in dgebd2_()
[all …]
|
| /dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
| H A D | dlabrd.c | 208 for (i__ = 1; i__ <= i__1; ++i__) { in dlabrd_()
220 &a[i__ * a_dim1 + 1], &c__1, &c_b5, &a[i__ + i__ * in dlabrd_()
230 d__[i__] = a[i__ + i__ * a_dim1]; in dlabrd_()
232 a[i__ + i__ * a_dim1] = 1.; in dlabrd_()
244 lda, &a[i__ + i__ * a_dim1], &c__1, &c_b16, &y[i__ * in dlabrd_()
254 ldx, &a[i__ + i__ * a_dim1], &c__1, &c_b16, &y[i__ * in dlabrd_()
283 e[i__] = a[i__ + (i__ + 1) * a_dim1]; in dlabrd_()
321 for (i__ = 1; i__ <= i__1; ++i__) { in dlabrd_()
343 d__[i__] = a[i__ + i__ * a_dim1]; in dlabrd_()
357 ldy, &a[i__ + i__ * a_dim1], lda, &c_b16, &x[i__ * in dlabrd_()
[all …]
|
| H A D | dgebd2.c | 197 for (i__ = 1; i__ <= i__1; ++i__) { in dgebd2_()
206 d__[i__] = a[i__ + i__ * a_dim1]; in dgebd2_()
218 a[i__ + i__ * a_dim1] = d__[i__]; in dgebd2_()
230 e[i__] = a[i__ + (i__ + 1) * a_dim1]; in dgebd2_()
238 lda, &taup[i__], &a[i__ + 1 + (i__ + 1) * a_dim1], in dgebd2_()
240 a[i__ + (i__ + 1) * a_dim1] = e[i__]; in dgebd2_()
251 for (i__ = 1; i__ <= i__1; ++i__) { in dgebd2_()
260 d__[i__] = a[i__ + i__ * a_dim1]; in dgebd2_()
271 a[i__ + i__ * a_dim1] = d__[i__]; in dgebd2_()
283 e[i__] = a[i__ + 1 + i__ * a_dim1]; in dgebd2_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | slabrd.c | 199 for (i__ = 1; i__ <= i__1; ++i__) { in slabrd_()
211 &a[i__ * a_dim1 + 1], &c__1, &c_b5, &a[i__ + i__ * in slabrd_()
221 d__[i__] = a[i__ + i__ * a_dim1]; in slabrd_()
235 lda, &a[i__ + i__ * a_dim1], &c__1, &c_b16, &y[i__ * in slabrd_()
245 ldx, &a[i__ + i__ * a_dim1], &c__1, &c_b16, &y[i__ * in slabrd_()
274 e[i__] = a[i__ + (i__ + 1) * a_dim1]; in slabrd_()
313 for (i__ = 1; i__ <= i__1; ++i__) { in slabrd_()
335 d__[i__] = a[i__ + i__ * a_dim1]; in slabrd_()
349 ldy, &a[i__ + i__ * a_dim1], lda, &c_b16, &x[i__ * in slabrd_()
359 1], lda, &a[i__ + i__ * a_dim1], lda, &c_b16, &x[i__ * in slabrd_()
[all …]
|
| H A D | dlabrd.c | 201 for (i__ = 1; i__ <= i__1; ++i__) { in dlabrd_()
213 &a[i__ * a_dim1 + 1], &c__1, &c_b5, &a[i__ + i__ * in dlabrd_()
223 d__[i__] = a[i__ + i__ * a_dim1]; in dlabrd_()
225 a[i__ + i__ * a_dim1] = 1.; in dlabrd_()
237 lda, &a[i__ + i__ * a_dim1], &c__1, &c_b16, &y[i__ * in dlabrd_()
247 ldx, &a[i__ + i__ * a_dim1], &c__1, &c_b16, &y[i__ * in dlabrd_()
276 e[i__] = a[i__ + (i__ + 1) * a_dim1]; in dlabrd_()
315 for (i__ = 1; i__ <= i__1; ++i__) { in dlabrd_()
337 d__[i__] = a[i__ + i__ * a_dim1]; in dlabrd_()
351 ldy, &a[i__ + i__ * a_dim1], lda, &c_b16, &x[i__ * in dlabrd_()
[all …]
|
| H A D | zlabrd.c | 204 for (i__ = 1; i__ <= i__1; ++i__) { in zlabrd_()
214 &y[i__ + y_dim1], ldy, &c_b2, &a[i__ + i__ * a_dim1], & in zlabrd_()
222 &a[i__ * a_dim1 + 1], &c__1, &c_b2, &a[i__ + i__ * in zlabrd_()
227 i__2 = i__ + i__ * a_dim1; in zlabrd_()
237 i__2 = i__ + i__ * a_dim1; in zlabrd_()
245 i__ + 1) * a_dim1], lda, &a[i__ + i__ * a_dim1], & in zlabrd_()
349 for (i__ = 1; i__ <= i__1; ++i__) { in zlabrd_()
361 &a[i__ + a_dim1], lda, &c_b2, &a[i__ + i__ * a_dim1], in zlabrd_()
388 i__2 = i__ + i__ * a_dim1; in zlabrd_()
412 1], lda, &a[i__ + i__ * a_dim1], lda, &c_b1, &x[i__ * in zlabrd_()
[all …]
|
| H A D | clabrd.c | 202 for (i__ = 1; i__ <= i__1; ++i__) { in clabrd_()
212 &y[i__ + y_dim1], ldy, &c_b2, &a[i__ + i__ * a_dim1], & in clabrd_()
220 &a[i__ * a_dim1 + 1], &c__1, &c_b2, &a[i__ + i__ * in clabrd_()
225 i__2 = i__ + i__ * a_dim1; in clabrd_()
235 i__2 = i__ + i__ * a_dim1; in clabrd_()
243 i__ + 1) * a_dim1], lda, &a[i__ + i__ * a_dim1], & in clabrd_()
347 for (i__ = 1; i__ <= i__1; ++i__) { in clabrd_()
359 &a[i__ + a_dim1], lda, &c_b2, &a[i__ + i__ * a_dim1], in clabrd_()
386 i__2 = i__ + i__ * a_dim1; in clabrd_()
410 1], lda, &a[i__ + i__ * a_dim1], lda, &c_b1, &x[i__ * in clabrd_()
[all …]
|
| H A D | dgebd2.c | 191 for (i__ = 1; i__ <= i__1; ++i__) { in dgebd2_()
200 d__[i__] = a[i__ + i__ * a_dim1]; in dgebd2_()
210 a[i__ + i__ * a_dim1] = d__[i__]; in dgebd2_()
222 e[i__] = a[i__ + (i__ + 1) * a_dim1]; in dgebd2_()
230 lda, &taup[i__], &a[i__ + 1 + (i__ + 1) * a_dim1], in dgebd2_()
232 a[i__ + (i__ + 1) * a_dim1] = e[i__]; in dgebd2_()
243 for (i__ = 1; i__ <= i__1; ++i__) { in dgebd2_()
252 d__[i__] = a[i__ + i__ * a_dim1]; in dgebd2_()
264 a[i__ + i__ * a_dim1] = d__[i__]; in dgebd2_()
276 e[i__] = a[i__ + 1 + i__ * a_dim1]; in dgebd2_()
[all …]
|
| H A D | sgebd2.c | 189 for (i__ = 1; i__ <= i__1; ++i__) { in sgebd2_()
198 d__[i__] = a[i__ + i__ * a_dim1]; in sgebd2_()
208 a[i__ + i__ * a_dim1] = d__[i__]; in sgebd2_()
220 e[i__] = a[i__ + (i__ + 1) * a_dim1]; in sgebd2_()
228 lda, &taup[i__], &a[i__ + 1 + (i__ + 1) * a_dim1], in sgebd2_()
230 a[i__ + (i__ + 1) * a_dim1] = e[i__]; in sgebd2_()
241 for (i__ = 1; i__ <= i__1; ++i__) { in sgebd2_()
250 d__[i__] = a[i__ + i__ * a_dim1]; in sgebd2_()
262 a[i__ + i__ * a_dim1] = d__[i__]; in sgebd2_()
274 e[i__] = a[i__ + 1 + i__ * a_dim1]; in sgebd2_()
[all …]
|
| /dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
| H A D | slabrd.cpp | 50 for (i__ = 1; i__ <= i__1; ++i__) { in F77_FUNC()
59 &a[i__*a_dim1+1],&c__1,&one,&a[i__+i__*a_dim1],&c__1); in F77_FUNC()
67 d__[i__] = a[i__ + i__ * a_dim1]; in F77_FUNC()
69 a[i__ + i__ * a_dim1] = 1.; in F77_FUNC()
79 lda, &a[i__ + i__ * a_dim1], &c__1, &zero, &y[i__ * in F77_FUNC()
89 ldx, &a[i__ + i__ * a_dim1], &c__1, &zero, &y[i__ * in F77_FUNC()
115 e[i__] = a[i__ + (i__ + 1) * a_dim1]; in F77_FUNC()
148 for (i__ = 1; i__ <= i__1; ++i__) { in F77_FUNC()
165 d__[i__] = a[i__ + i__ * a_dim1]; in F77_FUNC()
177 ldy, &a[i__ + i__ * a_dim1], lda, &zero, &x[i__ * in F77_FUNC()
[all …]
|
| H A D | dlabrd.cpp | 50 for (i__ = 1; i__ <= i__1; ++i__) { in F77_FUNC()
59 &a[i__*a_dim1+1],&c__1,&one,&a[i__+i__*a_dim1],&c__1); in F77_FUNC()
67 d__[i__] = a[i__ + i__ * a_dim1]; in F77_FUNC()
69 a[i__ + i__ * a_dim1] = 1.; in F77_FUNC()
79 lda, &a[i__ + i__ * a_dim1], &c__1, &zero, &y[i__ * in F77_FUNC()
89 ldx, &a[i__ + i__ * a_dim1], &c__1, &zero, &y[i__ * in F77_FUNC()
115 e[i__] = a[i__ + (i__ + 1) * a_dim1]; in F77_FUNC()
148 for (i__ = 1; i__ <= i__1; ++i__) { in F77_FUNC()
165 d__[i__] = a[i__ + i__ * a_dim1]; in F77_FUNC()
177 ldy, &a[i__ + i__ * a_dim1], lda, &zero, &x[i__ * in F77_FUNC()
[all …]
|
| /dports/math/R-cran-nloptr/nloptr/src/nlopt_src/luksan/ |
| H A D | mssubs.c | 34 for (i__ = 1; i__ <= i__1; ++i__) { in luksan_mxvmax__()
66 for (i__ = 1; i__ <= i__1; ++i__) { in luksan_mxvine__()
116 for (i__ = 1; i__ <= i__2; ++i__) { in luksan_mxdcmv__()
117 a[k + i__] = a[k + i__] + tempa * x[i__] + tempb * y[i__]; in luksan_mxdcmv__()
154 for (i__ = 1; i__ <= i__1; ++i__) { in luksan_mxvsav__()
156 y[i__] = x[i__] - y[i__]; in luksan_mxvsav__()
193 z__[i__] = *a * x[i__] + *b * y[i__]; in luksan_mxvlin__()
235 for (i__ = 1; i__ <= i__2; ++i__) { in luksan_mxdcmu__()
274 z__[i__] = y[i__] + *a * x[i__]; in luksan_mxvdir__()
627 z__[i__] = y[i__] + *a * x[i__]; in luksan_mxudir__()
[all …]
|
| /dports/math/nlopt/nlopt-2.7.1/src/algs/luksan/ |
| H A D | mssubs.c | 34 for (i__ = 1; i__ <= i__1; ++i__) { in luksan_mxvmax__()
66 for (i__ = 1; i__ <= i__1; ++i__) { in luksan_mxvine__()
116 for (i__ = 1; i__ <= i__2; ++i__) { in luksan_mxdcmv__()
117 a[k + i__] = a[k + i__] + tempa * x[i__] + tempb * y[i__]; in luksan_mxdcmv__()
154 for (i__ = 1; i__ <= i__1; ++i__) { in luksan_mxvsav__()
156 y[i__] = x[i__] - y[i__]; in luksan_mxvsav__()
193 z__[i__] = *a * x[i__] + *b * y[i__]; in luksan_mxvlin__()
235 for (i__ = 1; i__ <= i__2; ++i__) { in luksan_mxdcmu__()
274 z__[i__] = y[i__] + *a * x[i__]; in luksan_mxvdir__()
627 z__[i__] = y[i__] + *a * x[i__]; in luksan_mxudir__()
[all …]
|
| /dports/science/ergo/ergo-3.8/source/matrix/template_lapack/lapack/ |
| H A D | template_lapack_latrd.h | 214 for (i__ = *n; i__ >= i__1; --i__) { in template_lapack_latrd()
226 ldw, &a_ref(i__, i__ + 1), lda, &c_b6, &a_ref(1, i__), in template_lapack_latrd()
237 e[i__ - 1] = a_ref(i__ - 1, i__); in template_lapack_latrd()
238 a_ref(i__ - 1, i__) = 1.; in template_lapack_latrd()
284 for (i__ = 1; i__ <= i__1; ++i__) { in template_lapack_latrd()
291 w_ref(i__, 1), ldw, &c_b6, &a_ref(i__, i__), &c__1); in template_lapack_latrd()
295 a_ref(i__, 1), lda, &c_b6, &a_ref(i__, i__), &c__1); in template_lapack_latrd()
306 e[i__] = a_ref(i__ + 1, i__); in template_lapack_latrd()
307 a_ref(i__ + 1, i__) = 1.; in template_lapack_latrd()
313 a_ref(i__ + 1, i__), &c__1, &c_b16, &w_ref(i__ + 1, in template_lapack_latrd()
[all …]
|