LAPACK 3.12.0
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ 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 CBLAS_INT *info=vinfo;
105 CBLAS_INT i;
106 extern CBLAS_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}
CBLAS_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 CBLAS_INT
Definition cblas.h:24
#define XerblaStrLen
Definition xerbla.c:6
Here is the call graph for this function: