Esempio n. 1
0
inline std::ptrdiff_t pptri( const UpLo, const fortran_int_t n,
        std::complex<double>* ap ) {
    fortran_int_t info(0);
    LAPACK_ZPPTRI( &lapack_option< UpLo >::value, &n, ap, &info );
    return info;
}
Esempio n. 2
0
 inline 
 void pptri (char const uplo, int const n, 
             traits::complex_d* ap, int* info) 
 {
   LAPACK_ZPPTRI(&uplo, &n, traits::complex_ptr (ap), info);
 }