F77_xerbla()

void F77_xerbla	(	char *	srname,
		void *	vinfo )

Definition at line 95 of file c_xerbla.c.

{
#ifdef F77_Char
   char *srname;
#endif
 
   char rout[] = {'c','b','l','a','s','_','\0','\0','\0','\0','\0','\0','\0', '\0'};
 
#ifdef F77_Integer
   F77_Integer *info=vinfo;
   F77_Integer i;
   extern F77_Integer link_xerbla;
#else
   CBLAS_INT *info=vinfo;
   CBLAS_INT i;
   extern CBLAS_INT link_xerbla;
#endif
#ifdef F77_Char
   srname = F2C_STR(F77_srname, XerblaStrLen);
#endif
 
   /* See the comment in cblas_xerbla() above */
   if (link_xerbla)
   {
      link_xerbla = 0;
      return;
   }
   for(i=0;  i  < 7; i++) rout[i+6] = tolower(srname[i]);
   for(i=12; i >= 9; i--) if (rout[i] == ' ') rout[i] = '\0';
 
   /* We increment *info by 1 since the CBLAS interface adds one more
    * argument to all level 2 and 3 routines.
    */
   cblas_xerbla(*info+1,rout,"");
}