inline std::ptrdiff_t spgv( const fortran_int_t itype, const char jobz,
const UpLo, const fortran_int_t n, float* ap, float* bp, float* w,
float* z, const fortran_int_t ldz, float* work ) {
fortran_int_t info(0);
LAPACK_SSPGV( &itype, &jobz, &lapack_option< UpLo >::value, &n, ap, bp, w,
z, &ldz, work, &info );
return info;
}
inline void spgv( integer_t const itype, char const jobz, char const uplo,
integer_t const n, float* ap, float* bp, float* w, float* z,
integer_t const ldz, float* work, integer_t& info ) {
LAPACK_SSPGV( &itype, &jobz, &uplo, &n, ap, bp, w, z, &ldz, work,
&info );
}
