diff options
author | Pauli Virtanen <pav@iki.fi> | 2013-04-10 19:35:13 +0300 |
---|---|---|
committer | Pauli Virtanen <pav@iki.fi> | 2013-04-10 22:48:12 +0300 |
commit | 9c00887ba60c0c3c4ae7ad349c6f43831c3ae353 (patch) | |
tree | 9ef486fffb47a605e09edfb84ced7f17c63bdd3e /numpy/linalg/python_xerbla.c | |
parent | 9bfa19b11f38b5fe710d872db6a8628fc6a72359 (diff) | |
download | numpy-9c00887ba60c0c3c4ae7ad349c6f43831c3ae353.tar.gz |
MAINT: move umath_linalg under numpy/linalg and use the same lapack_lite
Also, link umath_linalg against the system BLAS/LAPACK if available.
Diffstat (limited to 'numpy/linalg/python_xerbla.c')
-rw-r--r-- | numpy/linalg/python_xerbla.c | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/numpy/linalg/python_xerbla.c b/numpy/linalg/python_xerbla.c deleted file mode 100644 index 4e5a68413..000000000 --- a/numpy/linalg/python_xerbla.c +++ /dev/null @@ -1,37 +0,0 @@ -#include "Python.h" -#include "f2c.h" - -/* - From the original manpage: - -------------------------- - XERBLA is an error handler for the LAPACK routines. - It is called by an LAPACK routine if an input parameter has an invalid value. - A message is printed and execution stops. - - Instead of printing a message and stopping the execution, a - ValueError is raised with the message. - - Parameters: - ----------- - srname: Subroutine name to use in error message, maximum six characters. - Spaces at the end are skipped. - info: Number of the invalid parameter. -*/ - -int xerbla_(char *srname, integer *info) -{ - const char* format = "On entry to %.*s" \ - " parameter number %d had an illegal value"; - char buf[57 + 6 + 4]; /* 57 for strlen(format), - 6 for name, 4 for param. num. */ - - int len = 0; /* length of subroutine name*/ - while( len<6 && srname[len]!='\0' ) - len++; - while( len && srname[len-1]==' ' ) - len--; - - snprintf(buf, sizeof(buf), format, len, srname, *info); - PyErr_SetString(PyExc_ValueError, buf); - return 0; -} |