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

change old GNU keyword __real__ __imag__ to CREAL, CIMAG macro

This commit is contained in:
mdong 2016-06-24 17:06:46 -04:00
parent f04af36ad0
commit a722056e76
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
kernel/x86_64/cdot.c
View File

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

12
kernel/x86_64/zdot.c
View File

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