Ejemplo n.º 1
0
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;
}
Ejemplo n.º 2
0
    /**
     * 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() ); }