C++ (Cpp) LAPACK_ZTRTRI Examples

Example #1

File: trtri.hpp Project: CQMP/scripts

inline std::ptrdiff_t trtri( Order, const UpLo, const Diag,
        const fortran_int_t n, std::complex<double>* a,
        const fortran_int_t lda ) {
    BOOST_STATIC_ASSERT( (is_same<Order, tag::column_major>::value) );
    fortran_int_t info(0);
    LAPACK_ZTRTRI( &lapack_option< UpLo >::value, &lapack_option<
            Diag >::value, &n, a, &lda, &info );
    return info;
}

Example #2

File: trtri.hpp Project: fluxdark/jflib

 inline void trtri( char const uplo, char const diag, integer_t const n,
         traits::complex_d* a, integer_t const lda, integer_t& info ) {
     LAPACK_ZTRTRI( &uplo, &diag, &n, traits::complex_ptr(a), &lda, &info );
 }