void bli_zewinvscalv( conj_t conj, int n, dcomplex* x, int incx, dcomplex* y, int incy ) { dcomplex* chi; dcomplex* psi; dcomplex conjchi; int i; if ( bli_is_conj( conj ) ) { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_zcopyconj( chi, &conjchi ); bli_zinvscals( &conjchi, psi ); } } else { for ( i = 0; i < n; ++i ) { chi = x + i*incx; psi = y + i*incy; bli_zinvscals( chi, psi ); } } }
void bla_z_div(bla_dcomplex *cp, const bla_dcomplex *ap, const bla_dcomplex *bp) { bli_zcopys( *ap, *cp ); bli_zinvscals( *bp, *cp ); }
void bla_z_div(doublecomplex *cp, doublecomplex *ap, doublecomplex *bp) { bli_zcopys( *ap, *cp ); bli_zinvscals( *bp, *cp ); }