Example #1
0
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 );
		}
	}
}
Example #2
0
void bla_z_div(bla_dcomplex *cp, const bla_dcomplex *ap, const bla_dcomplex *bp)
{
	bli_zcopys( *ap, *cp );
	bli_zinvscals( *bp, *cp );
}
Example #3
0
void bla_z_div(doublecomplex *cp, doublecomplex *ap, doublecomplex *bp)
{
	bli_zcopys( *ap, *cp );
	bli_zinvscals( *bp, *cp );
}