Exemple #1
0
 inline 
 void sptrs (char const uplo, int const n, int const nrhs,
             double const* a, int const* ipiv, 
             double* b, int const ldb, int* info) 
 {
   LAPACK_DSPTRS (&uplo, &n, &nrhs, a, ipiv, b, &ldb, info);
 }
Exemple #2
0
inline std::ptrdiff_t sptrs( const UpLo, const fortran_int_t n,
        const fortran_int_t nrhs, const double* ap, const fortran_int_t* ipiv,
        double* b, const fortran_int_t ldb ) {
    fortran_int_t info(0);
    LAPACK_DSPTRS( &lapack_option< UpLo >::value, &n, &nrhs, ap, ipiv, b,
            &ldb, &info );
    return info;
}
Exemple #3
0
 inline void sptrs( char const uplo, integer_t const n,
         integer_t const nrhs, double* ap, integer_t* ipiv, double* b,
         integer_t const ldb, integer_t& info ) {
     LAPACK_DSPTRS( &uplo, &n, &nrhs, ap, ipiv, b, &ldb, &info );
 }