Browse Source

more bugfix

tags/v0.3.8^2
Guillaume Horel 6 years ago
parent
commit
5d6525c87c
2 changed files with 6 additions and 6 deletions
  1. +3
    -3
      interface/lapack/trtrs.c
  2. +3
    -3
      interface/lapack/ztrtrs.c

+ 3
- 3
interface/lapack/trtrs.c View File

@@ -122,11 +122,11 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *

*Info = 0;

if (args.m == 0 || args.n == 0) return 0;
if (args.m == 0) return 0;

if (diag) {
if (AMIN_K(args.n, args.a, args.lda + 1) == ZERO) {
*Info = IAMIN_K(args.n, args.a, args.lda + 1);
if (AMIN_K(args.m, args.a, args.lda + 1) == ZERO) {
*Info = IAMIN_K(args.m, args.a, args.lda + 1);
return 0;
}
}


+ 3
- 3
interface/lapack/ztrtrs.c View File

@@ -122,11 +122,11 @@ int NAME(char *UPLO, char* TRANS, char* DIAG, blasint *N, blasint *NRHS, FLOAT *

*Info = 0;

if (args.m == 0 || args.n == 0) return 0;
if (args.m == 0) return 0;

if (diag) {
if (AMIN_K(args.n, args.a, args.lda + 1) == ZERO) {
*Info = IAMIN_K(args.n, args.a, args.lda + 1);
if (AMIN_K(args.m, args.a, args.lda + 1) == ZERO) {
*Info = IAMIN_K(args.m, args.a, args.lda + 1);
return 0;
}
}


Loading…
Cancel
Save