summaryrefslogtreecommitdiff
path: root/numpy/linalg/python_xerbla.c
diff options
context:
space:
mode:
authorPauli Virtanen <pav@iki.fi>2013-04-10 19:35:13 +0300
committerPauli Virtanen <pav@iki.fi>2013-04-10 22:48:12 +0300
commit9c00887ba60c0c3c4ae7ad349c6f43831c3ae353 (patch)
tree9ef486fffb47a605e09edfb84ced7f17c63bdd3e /numpy/linalg/python_xerbla.c
parent9bfa19b11f38b5fe710d872db6a8628fc6a72359 (diff)
downloadnumpy-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.c37
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;
-}