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