git.maemo.org Git - opencv/blob - 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 }