LAPACK  3.10.1
LAPACK: Linear Algebra PACKage

◆ F77_xerbla()

void F77_xerbla ( char *  srname,
void *  vinfo 
)

Definition at line 90 of file c_xerbla.c.

92 {
93 #ifdef F77_Char
94  char *srname;
95 #endif
96 
97  char rout[] = {'c','b','l','a','s','_','\0','\0','\0','\0','\0','\0','\0'};
98 
99 #ifdef F77_Integer
100  F77_Integer *info=vinfo;
101  F77_Integer i;
102  extern F77_Integer link_xerbla;
103 #else
104  int *info=vinfo;
105  int i;
106  extern int link_xerbla;
107 #endif
108 #ifdef F77_Char
109  srname = F2C_STR(F77_srname, XerblaStrLen);
110 #endif
111 
112  /* See the comment in cblas_xerbla() above */
113  if (link_xerbla)
114  {
115  link_xerbla = 0;
116  return;
117  }
118  for(i=0; i < 6; i++) rout[i+6] = tolower(srname[i]);
119  for(i=11; i >= 9; i--) if (rout[i] == ' ') rout[i] = '\0';
120 
121  /* We increment *info by 1 since the CBLAS interface adds one more
122  * argument to all level 2 and 3 routines.
123  */
124  cblas_xerbla(*info+1,rout,"");
125 }
int link_xerbla
Definition: c_c2chke.c:7
void cblas_xerbla(CBLAS_INT info, const char *rout, const char *form,...)
Definition: c_xerbla.c:8
#define XerblaStrLen
Definition: xerbla.c:6
Here is the caller graph for this function: