LAPACK  3.6.1
LAPACK: Linear Algebra PACKage
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  int *info=vinfo;
23  int i;
24 
25  extern int CBLAS_CallFromC;
26 
27 #ifdef F77_CHAR
28  srname = F2C_STR(F77_srname, XerblaStrLen);
29 #endif
30 
31  if (CBLAS_CallFromC)
32  {
33  for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]);
34  rout[XerblaStrLen+6] = '\0';
35  cblas_xerbla(*info+1,rout,"");
36  }
37  else
38  {
39  fprintf(stderr, "Parameter %d to routine %s was incorrect\n",
40  *info, srname);
41  }
42 }
#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