C++ (Cpp) cublasDtpsv Beispiele

Beispiel #1

Datei: ardblas.c Projekt: rforge/gcb

void d_tpsv(SEXP ruplo, SEXP rtrans, SEXP rdiag, SEXP ra, SEXP rx, SEXP rincx)
{
	char
		uplo = getSymLoc(ruplo),
		trans = getTranspose(rtrans), 
		diag = getUnitTri(rdiag);
	double
		* a, * x;
	int
		rowsa, colsa,
		nx, incx = asInteger(rincx);

	unpackVector(rx, &nx, &x);
	unpackMatrix(ra, &rowsa, &colsa, &a);

	cublasDtpsv(uplo, trans, diag, rowsa, a, x, incx);
	checkCublasError("d_tpsv");
}

Beispiel #2

Datei: tpsv.hpp Projekt: gx/boost-numeric_bindings

inline void tpsv( const Order, const UpLo, const Trans, const Diag,
                  const int n, const double* ap, double* x, const int incx ) {
    BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) );
    cublasDtpsv( blas_option< UpLo >::value, blas_option< Trans >::value,
                 blas_option< Diag >::value, n, ap, x, incx );
}