Update to 2.0.0 tree from current Fremantle build

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

diff --git a/3rdparty/lapack/f77_aloc.c b/3rdparty/lapack/f77_aloc.c
new file mode 100644 (file)
index 0000000..9ebd5e9
--- /dev/null
+++ b/3rdparty/lapack/f77_aloc.c
@@ -0,0 +1,22 @@
+#include "clapack.h"
+#undef abs
+#undef min
+#undef max
+#include "stdio.h"
+
+static integer memfailure = 3;
+
+#include "stdlib.h"
+
+char* F77_aloc(integer Len, char *whence)
+{
+    char *rv;
+    unsigned int uLen = (unsigned int) Len;    /* for K&R C */
+
+    if (!(rv = (char*)malloc(uLen))) {
+        fprintf(stderr, "malloc(%u) failure in %s\n",
+            uLen, whence);
+        exit_(&memfailure);
+    }
+    return rv;
+}