CAMLprim value ml_gsl_blas_strsm(value side, value uplo, value transa, value diag, value alpha, value A, value B) { _DECLARE_MATRIX2(A, B); _CONVERT_MATRIX2(A, B); gsl_blas_strsm(CBLAS_SIDE_val(side), CBLAS_UPLO_val(uplo), CBLAS_TRANS_val(transa), CBLAS_DIAG_val(diag), Double_val(alpha), &m_A, &m_B); return Val_unit; }
/** * C++ version of gsl_blas_strsm(). * @param Side Side to apply operation to * @param Uplo Upper or lower triangular * @param TransA Transpose type * @param Diag Diagonal type * @param alpha A constant * @param A A matrix * @param B Another matrix * @return Error code on failure */ int strsm( CBLAS_SIDE_t Side, CBLAS_UPLO_t Uplo, CBLAS_TRANSPOSE_t TransA, CBLAS_DIAG_t Diag, float alpha, matrix_float const& A, matrix_float& B ){ return gsl_blas_strsm( Side, Uplo, TransA, Diag, alpha, A.get(), B.get() ); }