예제 #1
0
파일: trtri.hpp 프로젝트: CQMP/scripts
inline std::ptrdiff_t trtri( Order, const UpLo, const Diag,
        const fortran_int_t n, float* a, const fortran_int_t lda ) {
    BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) );
    fortran_int_t info(0);
    LAPACK_STRTRI( &lapack_option< UpLo >::value, &lapack_option<
            Diag >::value, &n, a, &lda, &info );
    return info;
}
예제 #2
0
파일: trtri.hpp 프로젝트: fluxdark/jflib
 inline void trtri( char const uplo, char const diag, integer_t const n,
         float* a, integer_t const lda, integer_t& info ) {
     LAPACK_STRTRI( &uplo, &diag, &n, a, &lda, &info );
 }