Update to 2.0.0 tree from current Fremantle build

[opencv] / 3rdparty / lapack / xerbla.c

diff --git a/3rdparty/lapack/xerbla.c b/3rdparty/lapack/xerbla.c
new file mode 100644 (file)
index 0000000..29c5a38
--- /dev/null
+++ b/3rdparty/lapack/xerbla.c
@@ -0,0 +1,43 @@
+#include "clapack.h"
+#include "stdio.h"
+
+/* Subroutine */ int xerbla_(char *srname, integer *info)
+{
+/*  -- LAPACK auxiliary routine (version 2.0) --   
+       Univ. of Tennessee, Univ. of California Berkeley, NAG Ltd.,   
+       Courant Institute, Argonne National Lab, and Rice University   
+       September 30, 1994   
+
+
+    Purpose   
+    =======   
+
+    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.   
+
+    Installers may consider modifying the STOP statement in order to   
+    call system-specific exception-handling facilities.   
+
+    Arguments   
+    =========   
+
+    SRNAME  (input) CHARACTER*6   
+            The name of the routine which called XERBLA.   
+
+    INFO    (input) INTEGER   
+            The position of the invalid parameter in the parameter list   
+
+            of the calling routine.   
+
+   ===================================================================== 
+*/
+
+    printf("** On entry to %6s, parameter number %2i had an illegal value\n",
+               srname, *info);
+
+/*     End of XERBLA */
+
+    return 0;
+} /* xerbla_ */
+