floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add logic

This commit is contained in:
Guillaume Horel 2019-09-02 21:57:28 -04:00
parent a4f17a9297
commit 42203dafdc
1 changed files with 57 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
lapack/trtrs/trtrs_single.c
View File

@ -41,28 +41,63 @@
blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) { blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
#ifndef TRANS #ifndef UPLO
LASWP_PLUS(args -> n, 1, args -> m, ZERO, args -> b, args -> ldb, NULL, 0, args -> c, 1); #ifndef DIAG
#ifndef DIAG
if (args -> n == 1){ if (args -> n == 1){
TRSV_NLU (args -> m, args -> a, args -> lda, args -> b, 1, sb); TRSV_NLU (args -> m, args -> a, args -> lda, args -> b, 1, sb);
TRSV_NUN (args -> m, args -> a, args -> lda, args -> b, 1, sb); } else {
} else { TRSM_LNLU (args, range_m, range_n, sa, sb, 0);
TRSM_LNLU (args, range_m, range_n, sa, sb, 0); }
TRSM_LNUN (args, range_m, range_n, sa, sb, 0);
}
#else #else
if (args -> n == 1){
if (args -> n == 1){ TRSV_NLU (args -> m, args -> a, args -> lda, args -> b, 1, sb);
TRSV_TUN (args -> m, args -> a, args -> lda, args -> b, 1, sb); } else {
TRSV_TLU (args -> m, args -> a, args -> lda, args -> b, 1, sb); TRSM_LNLU (args, range_m, range_n, sa, sb, 0);
} else { }
TRSM_LTUN (args, range_m, range_n, sa, sb, 0); #endif
TRSM_LTLU (args, range_m, range_n, sa, sb, 0); #else
} #ifndef DIAG
if (args -> n == 1){
LASWP_MINUS(args -> n, 1, args -> m, ZERO, args -> b, args -> ldb, NULL, 0, args -> c, -1); TRSV_NLU (args -> m, args -> a, args -> lda, args -> b, 1, sb);
} else {
TRSM_LNLU (args, range_m, range_n, sa, sb, 0);
}
#else
if (args -> n == 1){
TRSV_NLU (args -> m, args -> a, args -> lda, args -> b, 1, sb);
} else {
TRSM_LNLU (args, range_m, range_n, sa, sb, 0);
}
#endif
#else
#ifndef DIAG
#ifndef DIAG
if (args -> n == 1){
TRSV_NLU (args -> m, args -> a, args -> lda, args -> b, 1, sb);
} else {
TRSM_LNLU (args, range_m, range_n, sa, sb, 0);
}
#else
if (args -> n == 1){
TRSV_NLU (args -> m, args -> a, args -> lda, args -> b, 1, sb);
} else {
TRSM_LNLU (args, range_m, range_n, sa, sb, 0);
}
#endif
#else
#ifndef DIAG
if (args -> n == 1){
TRSV_NLU (args -> m, args -> a, args -> lda, args -> b, 1, sb);
} else {
TRSM_LNLU (args, range_m, range_n, sa, sb, 0);
}
#else
if (args -> n == 1){
TRSV_NLU (args -> m, args -> a, args -> lda, args -> b, 1, sb);
} else {
TRSM_LNLU (args, range_m, range_n, sa, sb, 0);
}
#endif
#endif #endif
return 0; } return 0; }