const GFC_COMPLEX_8 * restrict pa;
const GFC_COMPLEX_8 * restrict pb;
GFC_COMPLEX_8 res;
- GFC_COMPLEX_8 conjga;
index_type count;
index_type astride;
index_type bstride;
while (count--)
{
- COMPLEX_ASSIGN(conjga, REALPART (*pa), -IMAGPART (*pa));
- res += conjga * *pb;
+ res += __builtin_conj (*pa) * *pb;
pa += astride;
pb += bstride;
}