mirror of https://github.com/xianyi/OpenBLAS.git
25 lines
389 B
C
25 lines
389 B
C
#ifdef CBLAS
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <stdarg.h>
|
|
#include "common.h"
|
|
|
|
OPENBLAS_EXPORT
|
|
|
|
void CNAME(blasint p, char *rout, char *form, ...)
|
|
{
|
|
va_list args;
|
|
|
|
va_start(args, form);
|
|
|
|
if (p)
|
|
fprintf(stderr, "Parameter %d to routine %s was incorrect\n", p, rout);
|
|
vfprintf(stderr, form, args);
|
|
va_end(args);
|
|
exit(-1);
|
|
}
|
|
#endif
|
|
|