Browse Source

fix info return

tags/v0.3.27
kseniyazaytseva 1 year ago
parent
commit
5e9ead09ac
2 changed files with 5 additions and 5 deletions
  1. +2
    -2
      interface/geadd.c
  2. +3
    -3
      interface/zgeadd.c

+ 2
- 2
interface/geadd.c View File

@@ -117,8 +117,8 @@ void CNAME(enum CBLAS_ORDER order,

if (ldc < MAX(1, m)) info = 8;
if (lda < MAX(1, m)) info = 5;
if (n < 0) info = 2;
if (m < 0) info = 1;
if (n < 0) info = 1;
if (m < 0) info = 2;
}

if (info >= 0) {


+ 3
- 3
interface/zgeadd.c View File

@@ -66,7 +66,7 @@ void NAME(blasint *M, blasint *N, FLOAT *ALPHA, FLOAT *a, blasint *LDA,
info = 0;


if (lda < MAX(1, m)) info = 6;
if (lda < MAX(1, m)) info = 5;
if (ldc < MAX(1, m)) info = 8;

if (n < 0) info = 2;
@@ -115,8 +115,8 @@ void CNAME(enum CBLAS_ORDER order,

if (ldc < MAX(1, m)) info = 8;
if (lda < MAX(1, m)) info = 5;
if (n < 0) info = 2;
if (m < 0) info = 1;
if (n < 0) info = 1;
if (m < 0) info = 2;
}

if (info >= 0) {


Loading…
Cancel
Save