Example #1
0
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 );
		}
	}
}
Example #2
0
void bla_c_div(bla_scomplex *cp, const bla_scomplex *ap, const bla_scomplex *bp)
{
	bli_ccopys( *ap, *cp );
	bli_cinvscals( *bp, *cp );
}
Example #3
0
void bla_c_div(singlecomplex *cp, singlecomplex *ap, singlecomplex *bp)
{
	bli_ccopys( *ap, *cp );
	bli_cinvscals( *bp, *cp );
}