From a809431e34819e9f377f50aaa44b1b661f6036c6 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Wed, 26 Apr 2017 19:58:59 +0200
Subject: [PATCH] Add cblas_xerbla()

---
 interface/xerbla.c | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 interface/xerbla.c

diff --git a/interface/xerbla.c b/interface/xerbla.c
new file mode 100644
index 0000000..b2687fb
--- /dev/null
+++ b/interface/xerbla.c
@@ -0,0 +1,22 @@
+#ifdef CBLAS
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <stdarg.h>
+#include "common.h"
+
+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, argptr);
+   va_end(args);
+   exit(-1);
+}
+#endif
+
-- 
2.7.4