Home
last modified time | relevance | path

Searched refs:clacpy_ (Results 1 – 25 of 136) sorted by relevance

123456

/dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/
H A Dcgesvd.c966 clacpy_("F", n, n, &a[a_offset], lda, &vt[vt_offset], ldvt); in cgesvd_()
1013 clacpy_("U", n, n, &a[a_offset], lda, &work[ir], &ldwrkr); in cgesvd_()
2010 clacpy_("L", m, n, &a[a_offset], lda, &u[u_offset], ldu); in cgesvd_()
2028 clacpy_("U", n, n, &a[a_offset], lda, &vt[vt_offset], ldvt); in cgesvd_()
2149 clacpy_("F", m, m, &a[a_offset], lda, &u[u_offset], ldu); in cgesvd_()
2199 clacpy_("L", m, m, &a[a_offset], lda, &work[ir], &ldwrkr); in cgesvd_()
2319 clacpy_("L", m, m, &a[a_offset], lda, &u[u_offset], ldu); in cgesvd_()
2337 clacpy_("U", m, m, &u[u_offset], ldu, &work[ir], &ldwrkr); in cgesvd_()
2385 clacpy_("L", m, m, &a[a_offset], lda, &u[u_offset], ldu); in cgesvd_()
3189 clacpy_("L", m, m, &a[a_offset], lda, &u[u_offset], ldu); in cgesvd_()
[all …]
H A Dcgesdd.c817 clacpy_("U", n, n, &a[a_offset], lda, &work[ir], &ldwrkr); in cgesdd_()
892 clacpy_("U", n, n, &a[a_offset], lda, &work[ir], &ldwrkr); in cgesdd_()
937 clacpy_("F", n, n, &u[u_offset], ldu, &work[ir], &ldwrkr); in cgesdd_()
955 clacpy_("L", m, n, &a[a_offset], lda, &u[u_offset], ldu); in cgesdd_()
1003 clacpy_("F", m, n, &a[a_offset], lda, &u[u_offset], ldu); in cgesdd_()
1099 clacpy_("L", m, n, &a[a_offset], lda, &u[u_offset], ldu); in cgesdd_()
1123 clacpy_("F", m, n, &a[a_offset], lda, &u[u_offset], ldu); in cgesdd_()
1136 clacpy_("L", m, n, &a[a_offset], lda, &u[u_offset], ldu); in cgesdd_()
1160 clacpy_("F", m, n, &a[a_offset], lda, &u[u_offset], ldu); in cgesdd_()
1606 clacpy_("L", m, m, &a[a_offset], lda, &u[u_offset], ldu); in cgesdd_()
[all …]
H A Dcuncsd.c333 …int clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), xerbla_(cha… in cuncsd_()
665 clacpy_("L", p, q, &x11[x11_offset], ldx11, &u1[u1_offset], ldu1); in cuncsd_()
671 clacpy_("L", &i__1, q, &x21[x21_offset], ldx21, &u2[u2_offset], ldu2); in cuncsd_()
680 … clacpy_("U", &i__1, &i__2, &x11[(x11_dim1 << 1) + 1], ldx11, &v1t[ (v1t_dim1 << 1) + 2], ldv1t); in cuncsd_()
704 clacpy_("U", p, &i__1, &x12[x12_offset], ldx12, &v2t[v2t_offset], ldv2t); in cuncsd_()
709 …clacpy_("U", &i__1, &i__2, &x22[*q + 1 + (*p + 1) * x22_dim1], ldx22, &v2t[*p + 1 + (*p + 1) * v2t… in cuncsd_()
724 clacpy_("U", q, p, &x11[x11_offset], ldx11, &u1[u1_offset], ldu1); in cuncsd_()
730 clacpy_("U", q, &i__1, &x21[x21_offset], ldx21, &u2[u2_offset], ldu2); in cuncsd_()
739 … clacpy_("L", &i__1, &i__2, &x11[x11_dim1 + 2], ldx11, &v1t[( v1t_dim1 << 1) + 2], ldv1t); in cuncsd_()
769 clacpy_("L", &i__1, p, &x12[x12_offset], ldx12, &v2t[v2t_offset], ldv2t); in cuncsd_()
[all …]
H A Dcuncsd2by1.c618 clacpy_("L", p, q, &x11[x11_offset], ldx11, &u1[u1_offset], ldu1); in cuncsd2by1_()
624 clacpy_("L", &i__1, q, &x21[x21_offset], ldx21, &u2[u2_offset], ldu2); in cuncsd2by1_()
704 clacpy_("L", &i__1, &i__2, &x11[x11_dim1 + 2], ldx11, &u1[( u1_dim1 << 1) + 2], ldu1); in cuncsd2by1_()
713 clacpy_("L", &i__1, q, &x21[x21_offset], ldx21, &u2[u2_offset], ldu2); in cuncsd2by1_()
720 clacpy_("U", p, q, &x11[x11_offset], ldx11, &v1t[v1t_offset], ldv1t); in cuncsd2by1_()
756 clacpy_("L", p, q, &x11[x11_offset], ldx11, &u1[u1_offset], ldu1); in cuncsd2by1_()
778 clacpy_("L", &i__1, &i__2, &x21[x21_dim1 + 2], ldx21, &u2[( u2_dim1 << 1) + 2], ldu2); in cuncsd2by1_()
787 clacpy_("U", &i__1, q, &x21[x21_offset], ldx21, &v1t[v1t_offset], ldv1t); in cuncsd2by1_()
843 clacpy_("L", &i__1, &i__2, &x11[x11_dim1 + 2], ldx11, &u1[( u1_dim1 << 1) + 2], ldu1); in cuncsd2by1_()
862 clacpy_("L", &i__1, &i__2, &x21[x21_dim1 + 2], ldx21, &u2[( u2_dim1 << 1) + 2], ldu2); in cuncsd2by1_()
[all …]
H A Dctgex2.c214 …int clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), clartg_(com… in ctgex2_()
263 clacpy_("Full", &m, &m, &a[*j1 + *j1 * a_dim1], lda, s, &c__2); in ctgex2_()
264 clacpy_("Full", &m, &m, &b[*j1 + *j1 * b_dim1], ldb, t, &c__2); in ctgex2_()
270 clacpy_("Full", &m, &m, s, &c__2, work, &m); in ctgex2_()
271 clacpy_("Full", &m, &m, t, &c__2, &work[m * m], &m); in ctgex2_()
335 clacpy_("Full", &m, &m, s, &c__2, work, &m); in ctgex2_()
336 clacpy_("Full", &m, &m, t, &c__2, &work[m * m], &m); in ctgex2_()
H A Dctgsyl.c321 …int clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), claset_(cha… in ctgsyl_()
520 clacpy_("F", m, n, &c__[c_offset], ldc, &work[1], m); in ctgsyl_()
521 clacpy_("F", m, n, &f[f_offset], ldf, &work[*m * *n + 1], m); in ctgsyl_()
527 clacpy_("F", m, n, &work[1], m, &c__[c_offset], ldc); in ctgsyl_()
528 clacpy_("F", m, n, &work[*m * *n + 1], m, &f[f_offset], ldf); in ctgsyl_()
713 clacpy_("F", m, n, &c__[c_offset], ldc, &work[1], m); in ctgsyl_()
714 clacpy_("F", m, n, &f[f_offset], ldf, &work[*m * *n + 1], m); in ctgsyl_()
720 clacpy_("F", m, n, &work[1], m, &c__[c_offset], ldc); in ctgsyl_()
721 clacpy_("F", m, n, &work[*m * *n + 1], m, &f[f_offset], ldf); in ctgsyl_()
H A Dcsysvx.c287 …int clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), xerbla_(cha… in csysvx_()
411 clacpy_(uplo, n, n, &a[a_offset], lda, &af[af_offset], ldaf); in csysvx_()
425 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); in csysvx_()
H A Dchesvx.c290 …er *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_( char *, integer … in chesvx_()
411 clacpy_(uplo, n, n, &a[a_offset], lda, &af[af_offset], ldaf); in chesvx_()
425 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); in chesvx_()
H A Dclaqr2.c299 …er *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_(char *, integer *… in claqr2_()
451 clacpy_("U", &jw, &jw, &h__[kwtop + kwtop * h_dim1], ldh, &t[t_offset], ldt); in claqr2_()
583 clacpy_("U", &jw, &jw, &t[t_offset], ldt, &h__[kwtop + kwtop * h_dim1] , ldh); in claqr2_()
615 clacpy_("A", &kln, &jw, &wv[wv_offset], ldwv, &h__[krow + kwtop * h_dim1], ldh); in claqr2_()
632 clacpy_("A", &jw, &kln, &t[t_offset], ldt, &h__[kwtop + kcol * h_dim1], ldh); in claqr2_()
650 clacpy_("A", &kln, &jw, &wv[wv_offset], ldwv, &z__[krow + kwtop * z_dim1], ldz); in claqr2_()
H A Dcposvxx.c510 …int clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), xerbla_(cha… in cposvxx_()
681 clacpy_(uplo, n, n, &a[a_offset], lda, &af[af_offset], ldaf); in cposvxx_()
696 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); in cposvxx_()
H A Dcsysvxx.c521 …int clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), xerbla_(cha… in csysvxx_()
693 clacpy_(uplo, n, n, &a[a_offset], lda, &af[af_offset], ldaf); in csysvxx_()
715 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); in csysvxx_()
H A Dchesvxx.c523 …er *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_( char *, integer … in chesvxx_()
695 clacpy_(uplo, n, n, &a[a_offset], lda, &af[af_offset], ldaf); in chesvxx_()
717 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); in chesvxx_()
H A Dcspsvx.c280 …int clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), xerbla_(cha… in cspsvx_()
370 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); in cspsvx_()
H A Dchpsvx.c280 … integer *, complex *, integer *, real *, real *, complex *, integer *), clacpy_(char *, integer *… in chpsvx_()
367 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); in chpsvx_()
H A Dclaqr3.c297 …er *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_(char *, integer *… in claqr3_()
456 clacpy_("U", &jw, &jw, &h__[kwtop + kwtop * h_dim1], ldh, &t[t_offset], ldt); in claqr3_()
596 clacpy_("U", &jw, &jw, &t[t_offset], ldt, &h__[kwtop + kwtop * h_dim1] , ldh); in claqr3_()
628 clacpy_("A", &kln, &jw, &wv[wv_offset], ldwv, &h__[krow + kwtop * h_dim1], ldh); in claqr3_()
645 clacpy_("A", &jw, &kln, &t[t_offset], ldt, &h__[kwtop + kcol * h_dim1], ldh); in claqr3_()
663 clacpy_("A", &kln, &jw, &wv[wv_offset], ldwv, &z__[krow + kwtop * z_dim1], ldz); in claqr3_()
H A Dcptsvx.c235 …int clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), xerbla_(cha… in cptsvx_()
323 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); in cptsvx_()
H A Dchseqr.c322 …er *, complex *, integer *, integer *, complex *, integer *, integer *), clacpy_(char *, integer *… in chseqr_()
497 clacpy_("A", n, n, &h__[h_offset], ldh, hl, &c__49); in chseqr_()
506 clacpy_("A", n, n, hl, &c__49, &h__[h_offset], ldh); in chseqr_()
H A Dcposvx.c315 …int clacpy_(char *, integer *, integer *, complex *, integer *, complex *, integer *), xerbla_(cha… in cposvx_()
496 clacpy_(uplo, n, n, &a[a_offset], lda, &af[af_offset], ldaf); in cposvx_()
510 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx); in cposvx_()
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/
H A Dcgesvd.c1346 clacpy_("U", n, n, &a[a_offset], lda, &work[ir], & in cgesvd_()
1514 clacpy_("U", n, n, &a[a_offset], lda, &work[iu], & in cgesvd_()
1543 clacpy_("U", n, n, &work[iu], &ldwrku, &work[ir], & in cgesvd_()
1702 clacpy_("U", n, n, &a[a_offset], lda, &work[iu], & in cgesvd_()
1893 clacpy_("U", n, n, &a[a_offset], lda, &work[ir], & in cgesvd_()
2079 clacpy_("U", n, n, &a[a_offset], lda, &work[iu], & in cgesvd_()
2275 clacpy_("U", n, n, &a[a_offset], lda, &work[iu], & in cgesvd_()
3017 clacpy_("L", m, m, &a[a_offset], lda, &work[ir], & in cgesvd_()
3189 clacpy_("L", m, m, &a[a_offset], lda, &work[iu], & in cgesvd_()
3377 clacpy_("L", m, m, &a[a_offset], lda, &work[iu], & in cgesvd_()
[all …]
H A Dcgesdd.c879 clacpy_("F", &chunk, n, &work[ir], &ldwrkr, &a[i__ + in cgesdd_()
1004 clacpy_("L", m, n, &a[a_offset], lda, &u[u_offset], ldu, ( in cgesdd_()
1082 clacpy_("F", m, n, &a[a_offset], lda, &u[u_offset], ldu, ( in cgesdd_()
1189 clacpy_("F", &chunk, n, &work[iu], &ldwrku, &a[i__ + in cgesdd_()
1210 clacpy_("L", m, n, &a[a_offset], lda, &u[u_offset], ldu, ( in cgesdd_()
1247 clacpy_("F", m, n, &a[a_offset], lda, &u[u_offset], ldu, ( in cgesdd_()
1265 clacpy_("L", m, n, &a[a_offset], lda, &u[u_offset], ldu, ( in cgesdd_()
1302 clacpy_("F", m, n, &a[a_offset], lda, &u[u_offset], ldu, ( in cgesdd_()
1419 clacpy_("F", &chunk, n, &work[iu], &ldwrku, &a[i__ + in cgesdd_()
1999 clacpy_("F", m, &blk, &work[ivt], &ldwkvt, &a[i__ * in cgesdd_()
[all …]
H A Dctgex2.c43 extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex in ctgex2_()
205 clacpy_("Full", &m, &m, &a[*j1 + *j1 * a_dim1], lda, s, &c__2, (ftnlen)4); in ctgex2_()
206 clacpy_("Full", &m, &m, &b[*j1 + *j1 * b_dim1], ldb, t, &c__2, (ftnlen)4); in ctgex2_()
214 clacpy_("Full", &m, &m, s, &c__2, work, &m, (ftnlen)4); in ctgex2_()
215 clacpy_("Full", &m, &m, t, &c__2, &work[m * m], &m, (ftnlen)4); in ctgex2_()
268 clacpy_("Full", &m, &m, s, &c__2, work, &m, (ftnlen)4); in ctgex2_()
269 clacpy_("Full", &m, &m, t, &c__2, &work[m * m], &m, (ftnlen)4); in ctgex2_()
H A Dctgsyl.c52 extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex in ctgsyl_()
379 clacpy_("F", m, n, &c__[c_offset], ldc, &work[1], m, (ftnlen) in ctgsyl_()
381 clacpy_("F", m, n, &f[f_offset], ldf, &work[*m * *n + 1], m, ( in ctgsyl_()
390 clacpy_("F", m, n, &work[1], m, &c__[c_offset], ldc, (ftnlen) in ctgsyl_()
392 clacpy_("F", m, n, &work[*m * *n + 1], m, &f[f_offset], ldf, ( in ctgsyl_()
561 clacpy_("F", m, n, &c__[c_offset], ldc, &work[1], m, (ftnlen) in ctgsyl_()
563 clacpy_("F", m, n, &f[f_offset], ldf, &work[*m * *n + 1], m, ( in ctgsyl_()
572 clacpy_("F", m, n, &work[1], m, &c__[c_offset], ldc, (ftnlen) in ctgsyl_()
574 clacpy_("F", m, n, &work[*m * *n + 1], m, &f[f_offset], ldf, ( in ctgsyl_()
H A Dcsysvx.c29 extern /* Subroutine */ int clacpy_(char *, integer *, integer *, complex in csysvx_()
309 clacpy_(uplo, n, n, &a[a_offset], lda, &af[af_offset], ldaf, (ftnlen) in csysvx_()
342 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx, (ftnlen)4); in csysvx_()
H A Dchesvx.c37 *, integer *, complex *, integer *, integer *, ftnlen), clacpy_( in chesvx_()
309 clacpy_(uplo, n, n, &a[a_offset], lda, &af[af_offset], ldaf, (ftnlen) in chesvx_()
342 clacpy_("Full", n, nrhs, &b[b_offset], ldb, &x[x_offset], ldx, (ftnlen)4); in chesvx_()
/dports/math/scalapack/scalapack-2.1.0/REDIST/SRC/
H A Dpcgemr2.c16 #define clacpy_ CLACPY macro
21 #define clacpy_ clacpy macro
75 void clacpy_();

123456