Mentions légales du service

Skip to content
Snippets Groups Projects

Fix issue #45 - Remove COMPLEX/REAL

Merged Mathieu Faverge requested to merge faverge/chameleon:issue45 into master
14 files
+ 33
77
Compare changes
  • Side-by-side
  • Inline
Files
14
@@ -23,8 +23,6 @@
@@ -23,8 +23,6 @@
#include "coreblas/lapacke.h"
#include "coreblas/lapacke.h"
#include "coreblas.h"
#include "coreblas.h"
#define COMPLEX
#define UPDATE( __nb, __value ) \
#define UPDATE( __nb, __value ) \
if (__value != 0. ){ \
if (__value != 0. ){ \
if ( *scale < __value ) { \
if ( *scale < __value ) { \
@@ -89,7 +87,6 @@
@@ -89,7 +87,6 @@
* \retval -k, the k-th argument had an illegal value
* \retval -k, the k-th argument had an illegal value
*
*
*/
*/
int CORE_zgessq(int M, int N,
int CORE_zgessq(int M, int N,
const MORSE_Complex64_t *A, int LDA,
const MORSE_Complex64_t *A, int LDA,
double *scale, double *sumsq)
double *scale, double *sumsq)
@@ -104,7 +101,7 @@ int CORE_zgessq(int M, int N,
@@ -104,7 +101,7 @@ int CORE_zgessq(int M, int N,
tmp = fabs(*ptr);
tmp = fabs(*ptr);
UPDATE( 1., tmp );
UPDATE( 1., tmp );
#ifdef COMPLEX
#if defined(PRECISION_z) || defined(PRECISION_c)
ptr++;
ptr++;
tmp = fabs(*ptr);
tmp = fabs(*ptr);
UPDATE( 1., tmp );
UPDATE( 1., tmp );
Loading