Merge pull request #1169 from martin-frbg/cblas_xerbla

Add trivial implementation of cblas_xerbla
This commit is contained in:
Martin Kroeker 2017-05-04 19:32:50 +02:00 committed by GitHub
commit 4f75989634
2 changed files with 25 additions and 1 deletions

View File

@ -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)

22
interface/xerbla.c Normal file
View File

@ -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, args);
va_end(args);
exit(-1);
}
#endif