Fix info code returned for invalid ldb
This commit is contained in:
parent
4d0b7fbec0
commit
7e93ab1b9e
|
@ -100,13 +100,13 @@ void CNAME( enum CBLAS_ORDER CORDER, enum CBLAS_TRANSPOSE CTRANS, blasint crows,
|
|||
|
||||
if ( order == BlasColMajor)
|
||||
{
|
||||
if ( trans == BlasNoTrans && *ldb < *rows ) info = 9;
|
||||
if ( trans == BlasTrans && *ldb < *cols ) info = 9;
|
||||
if ( trans == BlasNoTrans && *ldb < *rows ) info = 8;
|
||||
if ( trans == BlasTrans && *ldb < *cols ) info = 8;
|
||||
}
|
||||
if ( order == BlasRowMajor)
|
||||
{
|
||||
if ( trans == BlasNoTrans && *ldb < *cols ) info = 9;
|
||||
if ( trans == BlasTrans && *ldb < *rows ) info = 9;
|
||||
if ( trans == BlasNoTrans && *ldb < *cols ) info = 8;
|
||||
if ( trans == BlasTrans && *ldb < *rows ) info = 8;
|
||||
}
|
||||
|
||||
if ( order == BlasColMajor && *lda < *rows ) info = 7;
|
||||
|
|
Loading…
Reference in New Issue