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