예제 #1
0
파일: pptri.hpp 프로젝트: CQMP/scripts 
inline std::ptrdiff_t pptri( const UpLo, const fortran_int_t n, float* ap ) {
    fortran_int_t info(0);
    LAPACK_SPPTRI( &lapack_option< UpLo >::value, &n, ap, &info );
    return info;
}
예제 #2
0
 inline 
 void pptri (char const uplo, int const n, float* ap, int* info) {
   LAPACK_SPPTRI (&uplo, &n, ap, info);
 }