interface/xerbla.c

   1 #ifdef CBLAS
   2
   3 #include <stdio.h>
   4 #include <stdlib.h>
   5 #include <string.h>
   6 #include <stdarg.h>
   7 #include "common.h"
   8
   9 void CNAME(blasint p, char *rout, char *form, ...)
  10 {
  11    va_list args;
  12
  13    va_start(args, form);
  14
  15    if (p)
  16       fprintf(stderr, "Parameter %d to routine %s was incorrect\n", p, rout);
  17    vfprintf(stderr, form, args);
  18    va_end(args);
  19    exit(-1);
  20 }
  21 #endif
  22