inline
void sptrs (char const uplo, int const n, int const nrhs,
float const* a, int const* ipiv,
float* b, int const ldb, int* info)
{
LAPACK_SSPTRS (&uplo, &n, &nrhs, a, ipiv, b, &ldb, info);
}
inline std::ptrdiff_t sptrs( const UpLo, const fortran_int_t n,
const fortran_int_t nrhs, const float* ap, const fortran_int_t* ipiv,
float* b, const fortran_int_t ldb ) {
fortran_int_t info(0);
LAPACK_SSPTRS( &lapack_option< UpLo >::value, &n, &nrhs, ap, ipiv, b,
&ldb, &info );
return info;
}
inline void sptrs( char const uplo, integer_t const n,
integer_t const nrhs, float* ap, integer_t* ipiv, float* b,
integer_t const ldb, integer_t& info ) {
LAPACK_SSPTRS( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info );
}
