summaryrefslogtreecommitdiff
path: root/numpy/linalg/pythonxerbla.c
diff options
context:
space:
mode:
Diffstat (limited to 'numpy/linalg/pythonxerbla.c')
-rw-r--r--numpy/linalg/pythonxerbla.c33
1 files changed, 0 insertions, 33 deletions
diff --git a/numpy/linalg/pythonxerbla.c b/numpy/linalg/pythonxerbla.c
deleted file mode 100644
index 2473670dc..000000000
--- a/numpy/linalg/pythonxerbla.c
+++ /dev/null
@@ -1,33 +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)
-{
- char format[] = "On entry to %.*s" \
- " parameter number %d had an illegal value";
- char buf[70]; /* 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;
-}