projects
/
opencv
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Update to 2.0.0 tree from current Fremantle build
[opencv]
/
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
}