Browse Source

Add cblas_{c/z}srot cblas_{c/z}rotg support

tags/v0.3.19
gxw 3 years ago
parent
commit
25f99fa9f8
2 changed files with 15 additions and 1 deletions
  1. +7
    -1
      interface/zrot.c
  2. +8
    -0
      interface/zrotg.c

+ 7
- 1
interface/zrot.c View File

@@ -42,14 +42,20 @@
#include "functable.h"
#endif

#ifndef CBLAS
void NAME(blasint *N, FLOAT *x, blasint *INCX, FLOAT *y, blasint *INCY, FLOAT *C, FLOAT *S){

BLASLONG n = *N;
BLASLONG incx = *INCX;
BLASLONG incy = *INCY;
FLOAT c = *C;
FLOAT s = *S;

#else
void CNAME(blasint n, void *VX, blasint incx, void *VY, blasint incy, FLOAT c, FLOAT s) {
FLOAT *x = (FLOAT*) VX;
FLOAT *y = (FLOAT*) VY;
#endif /* CBLAS */

PRINT_DEBUG_NAME;

if (n <= 0) return;


+ 8
- 0
interface/zrotg.c View File

@@ -4,8 +4,16 @@
#include "functable.h"
#endif

#ifndef CBLAS
void NAME(FLOAT *DA, FLOAT *DB, FLOAT *C, FLOAT *S){

#else
void CNAME(void *VDA, void *VDB, FLOAT *C, void *VS) {
FLOAT *DA = (FLOAT*) VDA;
FLOAT *DB = (FLOAT*) VDB;
FLOAT *S = (FLOAT*) VS;
#endif /* CBLAS */

#if defined(__i386__) || defined(__x86_64__) || defined(__ia64__) || defined(_M_X64) || defined(_M_IX86)

long double da_r = *(DA + 0);


Loading…
Cancel
Save