OSchip
/
OpenBLAS
Not watched
1
0
Fork 0
Code
Releases 66 Wiki evaluate Activity
Issues 0 Pull Requests 0 Datasets Model Cloudbrain HPC
Browse Source

Merge pull request #1713 from martin-frbg/issue1710 

Introduce blasabs macro and use it to switch between abs and labs for INTERFACE64
tags/v0.3.3
Martin Kroeker GitHub 7 years ago
parent
e788102c10 40c068a875
commit
4a553e8678
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
12 changed files with 13 additions and 11 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +2
    -0
      common.h
  2. +1
    -1
      interface/gbmv.c
  3. +1
    -1
      interface/gemv.c
  4. +1
    -1
      interface/sbmv.c
  5. +1
    -1
      interface/spmv.c
  6. +1
    -1
      interface/symv.c
  7. +1
    -1
      interface/zgbmv.c
  8. +1
    -1
      interface/zgemv.c
  9. +1
    -1
      interface/zhbmv.c
  10. +1
    -1
      interface/zhemv.c
  11. +1
    -1
      interface/zhpmv.c
  12. +1
    -1
      interface/zsbmv.c

+ 2
- 0
common.h View File

@@ -257,8 +257,10 @@ typedef unsigned long BLASULONG;


#ifdef USE64BITINT #ifdef USE64BITINT
typedef BLASLONG blasint; typedef BLASLONG blasint;
#define blasabs(x) labs(x)
#else #else
typedef int blasint; typedef int blasint;
#define blasabs(x) abs(x)
#endif #endif
#else #else
#ifdef USE64BITINT #ifdef USE64BITINT


+ 1
- 1
interface/gbmv.c View File

@@ -213,7 +213,7 @@ void CNAME(enum CBLAS_ORDER order,
if (trans) lenx = m; if (trans) lenx = m;
if (trans) leny = n; if (trans) leny = n;


if (beta != ONE) SCAL_K(leny, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0);
if (beta != ONE) SCAL_K(leny, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);


if (alpha == ZERO) return; if (alpha == ZERO) return;




+ 1
- 1
interface/gemv.c View File

@@ -199,7 +199,7 @@ void CNAME(enum CBLAS_ORDER order,
if (trans) lenx = m; if (trans) lenx = m;
if (trans) leny = n; if (trans) leny = n;


if (beta != ONE) SCAL_K(leny, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0);
if (beta != ONE) SCAL_K(leny, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);


if (alpha == ZERO) return; if (alpha == ZERO) return;




+ 1
- 1
interface/sbmv.c View File

@@ -184,7 +184,7 @@ void CNAME(enum CBLAS_ORDER order,


if (n == 0) return; if (n == 0) return;


if (beta != ONE) SCAL_K(n, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0);
if (beta != ONE) SCAL_K(n, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);


if (alpha == ZERO) return; if (alpha == ZERO) return;




+ 1
- 1
interface/spmv.c View File

@@ -168,7 +168,7 @@ void CNAME(enum CBLAS_ORDER order,


if (n == 0) return; if (n == 0) return;


if (beta != ONE) SCAL_K(n, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0);
if (beta != ONE) SCAL_K(n, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);


if (alpha == ZERO) return; if (alpha == ZERO) return;




+ 1
- 1
interface/symv.c View File

@@ -166,7 +166,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, FLOAT alpha,


if (n == 0) return; if (n == 0) return;


if (beta != ONE) SCAL_K(n, 0, 0, beta, y, abs(incy), NULL, 0, NULL, 0);
if (beta != ONE) SCAL_K(n, 0, 0, beta, y, blasabs(incy), NULL, 0, NULL, 0);


if (alpha == ZERO) return; if (alpha == ZERO) return;




+ 1
- 1
interface/zgbmv.c View File

@@ -237,7 +237,7 @@ void CNAME(enum CBLAS_ORDER order,
if (trans & 1) lenx = m; if (trans & 1) lenx = m;
if (trans & 1) leny = n; if (trans & 1) leny = n;


if (beta_r != ONE || beta_i != ZERO) SCAL_K(leny, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0);
if (beta_r != ONE || beta_i != ZERO) SCAL_K(leny, 0, 0, beta_r, beta_i, y, blasabs(incy), NULL, 0, NULL, 0);


if (alpha_r == ZERO && alpha_i == ZERO) return; if (alpha_r == ZERO && alpha_i == ZERO) return;




+ 1
- 1
interface/zgemv.c View File

@@ -225,7 +225,7 @@ void CNAME(enum CBLAS_ORDER order,
if (trans & 1) lenx = m; if (trans & 1) lenx = m;
if (trans & 1) leny = n; if (trans & 1) leny = n;


if (beta_r != ONE || beta_i != ZERO) SCAL_K(leny, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0);
if (beta_r != ONE || beta_i != ZERO) SCAL_K(leny, 0, 0, beta_r, beta_i, y, blasabs(incy), NULL, 0, NULL, 0);


if (alpha_r == ZERO && alpha_i == ZERO) return; if (alpha_r == ZERO && alpha_i == ZERO) return;




+ 1
- 1
interface/zhbmv.c View File

@@ -190,7 +190,7 @@ void CNAME(enum CBLAS_ORDER order,


if (n == 0) return; if (n == 0) return;


if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0);
if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, blasabs(incy), NULL, 0, NULL, 0);


if ((alpha_r == ZERO) && (alpha_i == ZERO)) return; if ((alpha_r == ZERO) && (alpha_i == ZERO)) return;




+ 1
- 1
interface/zhemv.c View File

@@ -181,7 +181,7 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo, blasint n, void *VALPHA


if (n == 0) return; if (n == 0) return;


if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0);
if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, blasabs(incy), NULL, 0, NULL, 0);


if ((alpha_r == ZERO) && (alpha_i == ZERO)) return; if ((alpha_r == ZERO) && (alpha_i == ZERO)) return;




+ 1
- 1
interface/zhpmv.c View File

@@ -180,7 +180,7 @@ void CNAME(enum CBLAS_ORDER order,


if (n == 0) return; if (n == 0) return;


if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, abs(incy), NULL, 0, NULL, 0);
if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, y, blasabs(incy), NULL, 0, NULL, 0);


if ((alpha_r == ZERO) && (alpha_i == ZERO)) return; if ((alpha_r == ZERO) && (alpha_i == ZERO)) return;




+ 1
- 1
interface/zsbmv.c View File

@@ -126,7 +126,7 @@ void NAME(char *UPLO, blasint *N, blasint *K, FLOAT *ALPHA, FLOAT *a, blasint *


if (n == 0) return; if (n == 0) return;


if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, c, abs(incy), NULL, 0, NULL, 0);
if ((beta_r != ONE) || (beta_i != ZERO)) SCAL_K(n, 0, 0, beta_r, beta_i, c, blasabs(incy), NULL, 0, NULL, 0);


if ((alpha_r == ZERO) && (alpha_i == ZERO)) return; if ((alpha_r == ZERO) && (alpha_i == ZERO)) return;




Write Preview
Loading…
Cancel
Save