Ejemplo n.º 1
0
inline std::ptrdiff_t hptrf( const UpLo, const fortran_int_t n, float* ap,
        fortran_int_t* ipiv ) {
    fortran_int_t info(0);
    LAPACK_SSPTRF( &lapack_option< UpLo >::value, &n, ap, ipiv, &info );
    return info;
}
Ejemplo n.º 2
0
 inline 
 void sptrf (char const uplo, int const n, 
             float* ap, int* ipiv, int* info) 
 {
   LAPACK_SSPTRF (&uplo, &n, ap, ipiv, info);
 }