floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Replace gnu _real_ , _imag_ extensions in initializers

This commit is contained in:
Martin Kroeker 2017-03-13 00:38:37 +01:00 committed by GitHub
parent ea26b00c06
commit a6efabf155
2 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
kernel/x86_64/cdot.c
View File

@ -100,8 +100,7 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in
if ( n <= 0 ) if ( n <= 0 )
{ {
__real__ result = 0.0 ; result = OPENBLAS_MAKE_COMPLEX_FLOAT (0.0, 0.0) ;
__imag__ result = 0.0 ;
return(result); return(result);
} }
@ -161,11 +160,13 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in
} }
#if !defined(CONJ) #if !defined(CONJ)
__real__ result = dot[0] - dot[1]; result = OPENBLAS_MAKE_COMPLEX_FLOAT (dot[0]-dot[1], dot[4]+dot[5]) ;
__imag__ result = dot[4] + dot[5]; // CREAL(result) = dot[0] - dot[1];
// CIMAG(result) = dot[4] + dot[5];
#else #else
__real__ result = dot[0] + dot[1]; result = OPENBLAS_MAKE_COMPLEX_FLOAT (dot[0]+dot[1], dot[4]-dot[5]) ;
__imag__ result = dot[4] - dot[5]; // CREAL(result) = dot[0] + dot[1];
// CIMAG(result) = dot[4] - dot[5];
#endif #endif

15
kernel/x86_64/zdot.c
View File

@ -95,8 +95,9 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in
if ( n <= 0 ) if ( n <= 0 )
{ {
__real__ result = 0.0 ; // CREAL(result) = 0.0 ;
__imag__ result = 0.0 ; // CIMAG(result) = 0.0 ;
result=OPENBLAS_MAKE_COMPLEX_FLOAT(0.0,0.0);
return(result); return(result);
} }
@ -150,11 +151,13 @@ FLOAT _Complex CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG in
} }
#if !defined(CONJ) #if !defined(CONJ)
__real__ result = dot[0] - dot[1]; result=OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0]-dot[1],dot[2]+dot[3]);
__imag__ result = dot[2] + dot[3]; // CREAL(result) = dot[0] - dot[1];
// CIMAG(result) = dot[2] + dot[3];
#else #else
__real__ result = dot[0] + dot[1]; result=OPENBLAS_MAKE_COMPLEX_FLOAT(dot[0]+dot[1],dot[2]-dot[3]);
__imag__ result = dot[2] - dot[3]; // CREAL(result) = dot[0] + dot[1];
// CIMAG(result) = dot[2] - dot[3];
#endif #endif