void bli_cewinvscalv( conj_t conj, int n, scomplex* x, int incx, scomplex* y, int incy ) { scomplex* chi; scomplex* psi; scomplex conjchi; int i; if ( bli_is_conj( conj ) ) { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_ccopyconj( chi, &conjchi ); bli_cinvscals( &conjchi, psi ); } } else { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_cinvscals( chi, psi ); } } }
void bla_c_div(bla_scomplex *cp, const bla_scomplex *ap, const bla_scomplex *bp) { bli_ccopys( *ap, *cp ); bli_cinvscals( *bp, *cp ); }
void bla_c_div(singlecomplex *cp, singlecomplex *ap, singlecomplex *bp) { bli_ccopys( *ap, *cp ); bli_cinvscals( *bp, *cp ); }