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