Chris@202: #include "f2c.h"
Chris@202: #undef abs
Chris@202: #undef min
Chris@202: #undef max
Chris@202: #include "stdio.h"
Chris@202: 
Chris@202: static integer memfailure = 3;
Chris@202: 
Chris@202: #ifdef KR_headers
Chris@202: extern char *malloc();
Chris@202: extern void exit_();
Chris@202: 
Chris@202:  char *
Chris@202: F77_aloc(Len, whence) integer Len; char *whence;
Chris@202: #else
Chris@202: #include "stdlib.h"
Chris@202: #ifdef __cplusplus
Chris@202: extern "C" {
Chris@202: #endif
Chris@202: #ifdef __cplusplus
Chris@202: extern "C" {
Chris@202: #endif
Chris@202: extern void exit_(integer*);
Chris@202: #ifdef __cplusplus
Chris@202: 	}
Chris@202: #endif
Chris@202: 
Chris@202:  char *
Chris@202: F77_aloc(integer Len, const char *whence)
Chris@202: #endif
Chris@202: {
Chris@202: 	char *rv;
Chris@202: 	unsigned int uLen = (unsigned int) Len;	/* for K&R C */
Chris@202: 
Chris@202: 	if (!(rv = (char*)malloc(uLen))) {
Chris@202: 		fprintf(stderr, "malloc(%u) failure in %s\n",
Chris@202: 			uLen, whence);
Chris@202: 		exit_(&memfailure);
Chris@202: 		}
Chris@202: 	return rv;
Chris@202: 	}
Chris@202: #ifdef __cplusplus
Chris@202: }
Chris@202: #endif