/dports/math/openblas/OpenBLAS-0.3.18/relapack/src/ |
H A D | chegst.c | 102 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 D | ssygst.c | 100 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 D | dsygst.c | 100 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 D | zhegst.c | 100 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 D | slauum.c | 67 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 D | clauum.c | 69 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 D | zlauum.c | 67 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 D | dlauum.c | 67 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 D | zpotrf.c | 68 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 D | spotrf.c | 68 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 D | dpotrf.c | 68 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 D | cpotrf.c | 71 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 D | dtrtri.c | 83 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 D | strtri.c | 83 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 D | ctrtri.c | 85 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 D | ztrtri.c | 83 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 D | dgetrf.c | 87 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 D | cgetrf.c | 93 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 D | zgetrf.c | 92 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 D | sgetrf.c | 89 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 D | spbtrf.c | 98 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 D | zpbtrf.c | 96 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 D | cpbtrf.c | 95 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 D | dpbtrf.c | 95 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 D | zhetrf.c | 128 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()
|