Home
last modified time | relevance | path

Searched refs:A_BL (Results 1 – 25 of 96) sorted by relevance

1234

/dports/math/openblas/OpenBLAS-0.3.18/relapack/src/
H A Dchegst.c102 float *const A_BL = A + 2 * n1; in RELAPACK_chegst_rec() local
118 BLAS(ctrsm)("R", "L", "C", "N", &n2, &n1, ONE, B_TL, ldB, A_BL, ldA); in RELAPACK_chegst_rec()
127 BLAS(chemm)("R", "L", &n2, &n1, MHALF, A_TL, ldA, B_BL, ldB, ONE, A_BL, ldA); in RELAPACK_chegst_rec()
129 BLAS(cher2k)("L", "N", &n2, &n1, MONE, A_BL, ldA, B_BL, ldB, ONE, A_BR, ldA); in RELAPACK_chegst_rec()
136 BLAS(chemm)("R", "L", &n2, &n1, MHALF, A_TL, ldA, B_BL, ldB, ONE, A_BL, ldA); in RELAPACK_chegst_rec()
138 BLAS(ctrsm)("L", "L", "N", "N", &n2, &n1, ONE, B_BR, ldB, A_BL, ldA); in RELAPACK_chegst_rec()
166 BLAS(ctrmm)("R", "L", "N", "N", &n2, &n1, ONE, B_TL, ldB, A_BL, ldA); in RELAPACK_chegst_rec()
175 BLAS(chemm)("L", "L", &n2, &n1, HALF, A_BR, ldA, B_BL, ldB, ONE, A_BL, ldA); in RELAPACK_chegst_rec()
177 BLAS(cher2k)("L", "C", &n1, &n2, ONE, A_BL, ldA, B_BL, ldB, ONE, A_TL, ldA); in RELAPACK_chegst_rec()
184 BLAS(chemm)("L", "L", &n2, &n1, HALF, A_BR, ldA, B_BL, ldB, ONE, A_BL, ldA); in RELAPACK_chegst_rec()
[all …]
H A Dssygst.c100 float *const A_BL = A + n1; in RELAPACK_ssygst_rec() local
116 BLAS(strsm)("R", "L", "T", "N", &n2, &n1, ONE, B_TL, ldB, A_BL, ldA); in RELAPACK_ssygst_rec()
122 BLAS(saxpy)(&n2, ONE, Work + n2 * i, iONE, A_BL + *ldA * i, iONE); in RELAPACK_ssygst_rec()
127 BLAS(ssyr2k)("L", "N", &n2, &n1, MONE, A_BL, ldA, B_BL, ldB, ONE, A_BR, ldA); in RELAPACK_ssygst_rec()
131 BLAS(saxpy)(&n2, ONE, Work + n2 * i, iONE, A_BL + *ldA * i, iONE); in RELAPACK_ssygst_rec()
136 BLAS(strsm)("L", "L", "N", "N", &n2, &n1, ONE, B_BR, ldB, A_BL, ldA); in RELAPACK_ssygst_rec()
164 BLAS(strmm)("R", "L", "N", "N", &n2, &n1, ONE, B_TL, ldB, A_BL, ldA); in RELAPACK_ssygst_rec()
170 BLAS(saxpy)(&n2, ONE, Work + n2 * i, iONE, A_BL + *ldA * i, iONE); in RELAPACK_ssygst_rec()
175 BLAS(ssyr2k)("L", "T", &n1, &n2, ONE, A_BL, ldA, B_BL, ldB, ONE, A_TL, ldA); in RELAPACK_ssygst_rec()
179 BLAS(saxpy)(&n2, ONE, Work + n2 * i, iONE, A_BL + *ldA * i, iONE); in RELAPACK_ssygst_rec()
[all …]
H A Ddsygst.c100 double *const A_BL = A + n1; in RELAPACK_dsygst_rec() local
116 BLAS(dtrsm)("R", "L", "T", "N", &n2, &n1, ONE, B_TL, ldB, A_BL, ldA); in RELAPACK_dsygst_rec()
122 BLAS(daxpy)(&n2, ONE, Work + n2 * i, iONE, A_BL + *ldA * i, iONE); in RELAPACK_dsygst_rec()
127 BLAS(dsyr2k)("L", "N", &n2, &n1, MONE, A_BL, ldA, B_BL, ldB, ONE, A_BR, ldA); in RELAPACK_dsygst_rec()
131 BLAS(daxpy)(&n2, ONE, Work + n2 * i, iONE, A_BL + *ldA * i, iONE); in RELAPACK_dsygst_rec()
136 BLAS(dtrsm)("L", "L", "N", "N", &n2, &n1, ONE, B_BR, ldB, A_BL, ldA); in RELAPACK_dsygst_rec()
164 BLAS(dtrmm)("R", "L", "N", "N", &n2, &n1, ONE, B_TL, ldB, A_BL, ldA); in RELAPACK_dsygst_rec()
170 BLAS(daxpy)(&n2, ONE, Work + n2 * i, iONE, A_BL + *ldA * i, iONE); in RELAPACK_dsygst_rec()
175 BLAS(dsyr2k)("L", "T", &n1, &n2, ONE, A_BL, ldA, B_BL, ldB, ONE, A_TL, ldA); in RELAPACK_dsygst_rec()
179 BLAS(daxpy)(&n2, ONE, Work + n2 * i, iONE, A_BL + *ldA * i, iONE); in RELAPACK_dsygst_rec()
[all …]
H A Dzhegst.c100 double *const A_BL = A + 2 * n1; in RELAPACK_zhegst_rec() local
116 BLAS(ztrsm)("R", "L", "C", "N", &n2, &n1, ONE, B_TL, ldB, A_BL, ldA); in RELAPACK_zhegst_rec()
125 BLAS(zhemm)("R", "L", &n2, &n1, MHALF, A_TL, ldA, B_BL, ldB, ONE, A_BL, ldA); in RELAPACK_zhegst_rec()
127 BLAS(zher2k)("L", "N", &n2, &n1, MONE, A_BL, ldA, B_BL, ldB, ONE, A_BR, ldA); in RELAPACK_zhegst_rec()
134 BLAS(zhemm)("R", "L", &n2, &n1, MHALF, A_TL, ldA, B_BL, ldB, ONE, A_BL, ldA); in RELAPACK_zhegst_rec()
136 BLAS(ztrsm)("L", "L", "N", "N", &n2, &n1, ONE, B_BR, ldB, A_BL, ldA); in RELAPACK_zhegst_rec()
164 BLAS(ztrmm)("R", "L", "N", "N", &n2, &n1, ONE, B_TL, ldB, A_BL, ldA); in RELAPACK_zhegst_rec()
173 BLAS(zhemm)("L", "L", &n2, &n1, HALF, A_BR, ldA, B_BL, ldB, ONE, A_BL, ldA); in RELAPACK_zhegst_rec()
175 BLAS(zher2k)("L", "C", &n1, &n2, ONE, A_BL, ldA, B_BL, ldB, ONE, A_TL, ldA); in RELAPACK_zhegst_rec()
182 BLAS(zhemm)("L", "L", &n2, &n1, HALF, A_BR, ldA, B_BL, ldB, ONE, A_BL, ldA); in RELAPACK_zhegst_rec()
[all …]
H A Dslauum.c67 float *const A_BL = A + n1; in RELAPACK_slauum_rec() local
75 BLAS(ssyrk)("L", "T", &n1, &n2, ONE, A_BL, ldA, ONE, A_TL, ldA); in RELAPACK_slauum_rec()
77 BLAS(strmm)("L", "L", "T", "N", &n2, &n1, ONE, A_BR, ldA, A_BL, ldA); in RELAPACK_slauum_rec()
H A Dclauum.c69 float *const A_BL = A + 2 * n1; in RELAPACK_clauum_rec() local
77 BLAS(cherk)("L", "C", &n1, &n2, ONE, A_BL, ldA, ONE, A_TL, ldA); in RELAPACK_clauum_rec()
79 BLAS(ctrmm)("L", "L", "C", "N", &n2, &n1, ONE, A_BR, ldA, A_BL, ldA); in RELAPACK_clauum_rec()
H A Dzlauum.c67 double *const A_BL = A + 2 * n1; in RELAPACK_zlauum_rec() local
75 BLAS(zherk)("L", "C", &n1, &n2, ONE, A_BL, ldA, ONE, A_TL, ldA); in RELAPACK_zlauum_rec()
77 BLAS(ztrmm)("L", "L", "C", "N", &n2, &n1, ONE, A_BR, ldA, A_BL, ldA); in RELAPACK_zlauum_rec()
H A Ddlauum.c67 double *const A_BL = A + n1; in RELAPACK_dlauum_rec() local
75 BLAS(dsyrk)("L", "T", &n1, &n2, ONE, A_BL, ldA, ONE, A_TL, ldA); in RELAPACK_dlauum_rec()
77 BLAS(dtrmm)("L", "L", "T", "N", &n2, &n1, ONE, A_BR, ldA, A_BL, ldA); in RELAPACK_dlauum_rec()
H A Dzpotrf.c68 double *const A_BL = A + 2 * n1; in RELAPACK_zpotrf_rec() local
78 BLAS(ztrsm)("R", "L", "C", "N", &n2, &n1, ONE, A_TL, ldA, A_BL, ldA); in RELAPACK_zpotrf_rec()
80 BLAS(zherk)("L", "N", &n2, &n1, MONE, A_BL, ldA, ONE, A_BR, ldA); in RELAPACK_zpotrf_rec()
H A Dspotrf.c68 float *const A_BL = A + n1; in RELAPACK_spotrf_rec() local
78 BLAS(strsm)("R", "L", "T", "N", &n2, &n1, ONE, A_TL, ldA, A_BL, ldA); in RELAPACK_spotrf_rec()
80 BLAS(ssyrk)("L", "N", &n2, &n1, MONE, A_BL, ldA, ONE, A_BR, ldA); in RELAPACK_spotrf_rec()
H A Ddpotrf.c68 double *const A_BL = A + n1; in RELAPACK_dpotrf_rec() local
78 BLAS(dtrsm)("R", "L", "T", "N", &n2, &n1, ONE, A_TL, ldA, A_BL, ldA); in RELAPACK_dpotrf_rec()
80 BLAS(dsyrk)("L", "N", &n2, &n1, MONE, A_BL, ldA, ONE, A_BR, ldA); in RELAPACK_dpotrf_rec()
H A Dcpotrf.c71 float *const A_BL = A + 2 * n1; in RELAPACK_cpotrf_rec() local
81 BLAS(ctrsm)("R", "L", "C", "N", &n2, &n1, ONE, A_TL, ldA, A_BL, ldA); in RELAPACK_cpotrf_rec()
83 BLAS(cherk)("L", "N", &n2, &n1, MONE, A_BL, ldA, ONE, A_BR, ldA); in RELAPACK_cpotrf_rec()
H A Ddtrtri.c83 double *const A_BL = A + n1; in RELAPACK_dtrtri_rec() local
93 BLAS(dtrmm)("R", "L", "N", diag, &n2, &n1, MONE, A_TL, ldA, A_BL, ldA); in RELAPACK_dtrtri_rec()
95 BLAS(dtrsm)("L", "L", "N", diag, &n2, &n1, ONE, A_BR, ldA, A_BL, ldA); in RELAPACK_dtrtri_rec()
H A Dstrtri.c83 float *const A_BL = A + n1; in RELAPACK_strtri_rec() local
93 BLAS(strmm)("R", "L", "N", diag, &n2, &n1, MONE, A_TL, ldA, A_BL, ldA); in RELAPACK_strtri_rec()
95 BLAS(strsm)("L", "L", "N", diag, &n2, &n1, ONE, A_BR, ldA, A_BL, ldA); in RELAPACK_strtri_rec()
H A Dctrtri.c85 float *const A_BL = A + 2 * n1; in RELAPACK_ctrtri_rec() local
95 BLAS(ctrmm)("R", "L", "N", diag, &n2, &n1, MONE, A_TL, ldA, A_BL, ldA); in RELAPACK_ctrtri_rec()
97 BLAS(ctrsm)("L", "L", "N", diag, &n2, &n1, ONE, A_BR, ldA, A_BL, ldA); in RELAPACK_ctrtri_rec()
H A Dztrtri.c83 double *const A_BL = A + 2 * n1; in RELAPACK_ztrtri_rec() local
93 BLAS(ztrmm)("R", "L", "N", diag, &n2, &n1, MONE, A_TL, ldA, A_BL, ldA); in RELAPACK_ztrtri_rec()
95 BLAS(ztrsm)("L", "L", "N", diag, &n2, &n1, ONE, A_BR, ldA, A_BL, ldA); in RELAPACK_ztrtri_rec()
H A Ddgetrf.c87 double *const A_BL = A + n1; in RELAPACK_dgetrf_rec() local
104 BLAS(dgemm)("N", "N", &m2, &n2, &n1, MONE, A_BL, ldA, A_TR, ldA, ONE, A_BR, ldA); in RELAPACK_dgetrf_rec()
111 LAPACK(dlaswp)(&n1, A_BL, ldA, iONE, &n2, ipiv_B, iONE); in RELAPACK_dgetrf_rec()
H A Dcgetrf.c93 float *const A_BL = A + 2 * n1; in RELAPACK_cgetrf_rec() local
110 BLAS(cgemm)("N", "N", &m2, &n2, &n1, MONE, A_BL, ldA, A_TR, ldA, ONE, A_BR, ldA); in RELAPACK_cgetrf_rec()
117 LAPACK(claswp)(&n1, A_BL, ldA, iONE, &n2, ipiv_B, iONE); in RELAPACK_cgetrf_rec()
H A Dzgetrf.c92 double *const A_BL = A + 2 * n1; in RELAPACK_zgetrf_rec() local
110 BLAS(zgemm)("N", "N", &m2, &n2, &n1, MONE, A_BL, ldA, A_TR, ldA, ONE, A_BR, ldA); in RELAPACK_zgetrf_rec()
117 LAPACK(zlaswp)(&n1, A_BL, ldA, iONE, &n2, ipiv_B, iONE); in RELAPACK_zgetrf_rec()
H A Dsgetrf.c89 float *const A_BL = A + n1; in RELAPACK_sgetrf_rec() local
107 BLAS(sgemm)("N", "N", &m2, &n2, &n1, MONE, A_BL, ldA, A_TR, ldA, ONE, A_BR, ldA); in RELAPACK_sgetrf_rec()
114 LAPACK(slaswp)(&n1, A_BL, ldA, iONE, &n2, ipiv_B, iONE); in RELAPACK_sgetrf_rec()
H A Dspbtrf.c98 float *const A_BL = A + n1; in RELAPACK_spbtrf_rec() local
116 float *const A_BLt = A_BL; in RELAPACK_spbtrf_rec()
117 float *const A_BLb = A_BL + n21; in RELAPACK_spbtrf_rec()
H A Dzpbtrf.c96 double *const A_BL = A + 2 * n1; in RELAPACK_zpbtrf_rec() local
114 double *const A_BLt = A_BL; in RELAPACK_zpbtrf_rec()
115 double *const A_BLb = A_BL + 2 * n21; in RELAPACK_zpbtrf_rec()
H A Dcpbtrf.c95 float *const A_BL = A + 2 * n1; in RELAPACK_cpbtrf_rec() local
113 float *const A_BLt = A_BL; in RELAPACK_cpbtrf_rec()
114 float *const A_BLb = A_BL + 2 * n21; in RELAPACK_cpbtrf_rec()
H A Ddpbtrf.c95 double *const A_BL = A + n1; in RELAPACK_dpbtrf_rec() local
113 double *const A_BLt = A_BL; in RELAPACK_dpbtrf_rec()
114 double *const A_BLb = A_BL + n21; in RELAPACK_dpbtrf_rec()
H A Dzhetrf.c128 double *const A_BL = A + 2 * n1; in RELAPACK_zhetrf_rec() local
146 RELAPACK_zgemmt(uplo, "N", "T", &n2, &n1, MONE, A_BL, ldA, Work_BL, ldWork, ONE, A_BR, ldA); in RELAPACK_zhetrf_rec()
161 double *const A_BL_b = A_BL + 2 * n2_out; in RELAPACK_zhetrf_rec()

1234