projects
/
profile
/
ivi
/
opencv.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
9ebd5e97f1a68fe9a97db4cff99e13f68f910ad8
[profile/ivi/opencv.git]
/
3rdparty
/
lapack
/
f77_aloc.c
1
#include "clapack.h"
2
#undef abs
3
#undef min
4
#undef max
5
#include "stdio.h"
6
7
static integer memfailure = 3;
8
9
#include "stdlib.h"
10
11
char* F77_aloc(integer Len, char *whence)
12
{
13
char *rv;
14
unsigned int uLen = (unsigned int) Len; /* for K&R C */
15
16
if (!(rv = (char*)malloc(uLen))) {
17
fprintf(stderr, "malloc(%u) failure in %s\n",
18
uLen, whence);
19
exit_(&memfailure);
20
}
21
return rv;
22
}