v0.9.0
Macros | Functions
xerbla.c File Reference
#include <stdio.h>
#include <ctype.h>
#include "cblas.h"
#include "cblas_f77.h"

Go to the source code of this file.

Macros

#define XerblaStrLen   6
 
#define XerblaStrLen1   7
 

Functions

void F77_xerbla (char *srname, void *vinfo)
 

Macro Definition Documentation

◆ XerblaStrLen

#define XerblaStrLen   6

Definition at line 6 of file xerbla.c.

◆ XerblaStrLen1

#define XerblaStrLen1   7

Definition at line 7 of file xerbla.c.

Function Documentation

◆ F77_xerbla()

void F77_xerbla ( char *  srname,
void *  vinfo 
)

Definition at line 12 of file xerbla.c.

15 {
16 #ifdef F77_CHAR
17  char *srname;
18 #endif
19 
20  char rout[] = {'c','b','l','a','s','_','\0','\0','\0','\0','\0','\0','\0'};
21 
22 #ifdef F77_INT
23  F77_INT *info=vinfo;
24  F77_INT i;
25 #else
26  int *info=vinfo;
27  int i;
28 #endif
29 
30  extern int CBLAS_CallFromC;
31 
32 #ifdef F77_CHAR
33  srname = F2C_STR(F77_srname, XerblaStrLen);
34 #endif
35 
36  if (CBLAS_CallFromC)
37  {
38  for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]);
39  rout[XerblaStrLen+6] = '\0';
40  cblas_xerbla(*info+1,rout,"");
41  }
42  else
43  {
44  fprintf(stderr, "Parameter %d to routine %s was incorrect\n",
45  *info, srname);
46  }
47 }
#define XerblaStrLen
Definition: xerbla.c:6
int CBLAS_CallFromC
Definition: cblas_globals.c:1
void cblas_xerbla(int p, const char *rout, const char *form,...)
Definition: cblas_xerbla.c:8