From a809431e34819e9f377f50aaa44b1b661f6036c6 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 26 Apr 2017 19:58:59 +0200 Subject: [PATCH 1/3] 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 000000000..b2687fb1e --- /dev/null +++ b/interface/xerbla.c @@ -0,0 +1,22 @@ +#ifdef CBLAS + +#include +#include +#include +#include +#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 + From 7f546f54fa468d466a7dd90c8f235dccb697af6c Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 26 Apr 2017 20:01:34 +0200 Subject: [PATCH 2/3] Add cblas_xerbla --- interface/Makefile | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/interface/Makefile b/interface/Makefile index 713a8c04c..9b2b93b83 100644 --- a/interface/Makefile +++ b/interface/Makefile @@ -315,7 +315,7 @@ CCBLAS3OBJS = \ cblas_csyrk.$(SUFFIX) cblas_csyr2k.$(SUFFIX) \ cblas_chemm.$(SUFFIX) cblas_cherk.$(SUFFIX) cblas_cher2k.$(SUFFIX) \ cblas_comatcopy.$(SUFFIX) cblas_cimatcopy.$(SUFFIX)\ - cblas_cgeadd.$(SUFFIX) + cblas_cgeadd.$(SUFFIX) cblas_xerbla.$(SUFFIX) @@ -2137,3 +2137,5 @@ cblas_cgeadd.$(SUFFIX) cblas_cgeadd.$(PSUFFIX) : zgeadd.c cblas_zgeadd.$(SUFFIX) cblas_zgeadd.$(PSUFFIX) : zgeadd.c $(CC) -c $(CFLAGS) -DCBLAS $< -o $(@F) +cblas_xerbla.$(SUFFIX) cblas_xerbla.$(PSUFFIX) : xerbla.c + $(CC) -c $(CFLAGS) -DCBLAS $< -o $(@F) From 1e06b49854fc1a01a9f75d4c29348a3187c4954e Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Wed, 26 Apr 2017 20:29:30 +0200 Subject: [PATCH 3/3] Update xerbla.c --- interface/xerbla.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/interface/xerbla.c b/interface/xerbla.c index b2687fb1e..c3a174552 100644 --- a/interface/xerbla.c +++ b/interface/xerbla.c @@ -14,7 +14,7 @@ void CNAME(blasint p, char *rout, char *form, ...) if (p) fprintf(stderr, "Parameter %d to routine %s was incorrect\n", p, rout); - vfprintf(stderr, form, argptr); + vfprintf(stderr, form, args); va_end(args); exit(-1); }