C++ (Cpp) LAPACK_SGETRSの例

コード例 #1

ファイル: gesv.hpp プロジェクト: Killerregenwurm/utcore

 inline 
 void getrs (char const trans, int const n, int const nrhs,
             float const* a, int const lda, int const* ipiv, 
             float* b, int const ldb, int* info) 
 {
   LAPACK_SGETRS (&trans, &n, &nrhs, a, &lda, ipiv, b, &ldb, info);
 }

コード例 #2

ファイル: getrs.hpp プロジェクト: AntonDV235/OMCompiler

inline std::ptrdiff_t getrs( Order, const Trans, const fortran_int_t n,
        const fortran_int_t nrhs, const float* a, const fortran_int_t lda,
        const fortran_int_t* ipiv, float* b, const fortran_int_t ldb ) {
    BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) );
    fortran_int_t info(0);
    LAPACK_SGETRS( &lapack_option< Trans >::value, &n, &nrhs, a, &lda, ipiv,
            b, &ldb, &info );
    return info;
}