Exemplo n.º 1
0
 inline 
 void pptrf (char const uplo, int const n, double* ap, int* info) {
   LAPACK_DPPTRF (&uplo, &n, ap, info);
 }
Exemplo n.º 2
0
inline std::ptrdiff_t pptrf( const UpLo, const fortran_int_t n, double* ap ) {
    fortran_int_t info(0);
    LAPACK_DPPTRF( &lapack_option< UpLo >::value, &n, ap, &info );
    return info;
}