X-Git-Url: https://vcs.maemo.org/git/?a=blobdiff_plain;f=3rdparty%2Flapack%2Ff77_aloc.c;fp=3rdparty%2Flapack%2Ff77_aloc.c;h=9ebd5e97f1a68fe9a97db4cff99e13f68f910ad8;hb=e4c14cdbdf2fe805e79cd96ded236f57e7b89060;hp=0000000000000000000000000000000000000000;hpb=454138ff8a20f6edb9b65a910101403d8b520643;p=opencv

diff --git a/3rdparty/lapack/f77_aloc.c b/3rdparty/lapack/f77_aloc.c
new file mode 100644
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;
+}