inline std::ptrdiff_t sbev( const char jobz, const UpLo, const fortran_int_t n, const fortran_int_t kd, double* ab, const fortran_int_t ldab, double* w, double* z, const fortran_int_t ldz, double* work ) { fortran_int_t info(0); LAPACK_DSBEV( &jobz, &lapack_option< UpLo >::value, &n, &kd, ab, &ldab, w, z, &ldz, work, &info ); return info; }
inline void hbev (char const jobz, char const uplo, int const n, int const kd, double* ab, int const ldab, double* w, double* z, int const ldz, double* work, int& info) { LAPACK_DSBEV (&jobz, &uplo, &n, &kd, ab, &ldab, w, z, &ldz, work, &info); }