Go to the documentation of this file.00001 #include <stdio.h>
00002 #include <ctype.h>
00003 #include "cblas.h"
00004 #include "cblas_f77.h"
00005
00006 #define XerblaStrLen 6
00007 #define XerblaStrLen1 7
00008
00009 #ifdef F77_CHAR
00010 void F77_xerbla(F77_CHAR F77_srname, void *vinfo)
00011 #else
00012 void F77_xerbla(char *srname, void *vinfo)
00013 #endif
00014
00015 {
00016 #ifdef F77_CHAR
00017 char *srname;
00018 #endif
00019
00020 char rout[] = {'c','b','l','a','s','_','\0','\0','\0','\0','\0','\0','\0'};
00021
00022 #ifdef F77_INT
00023 F77_INT *info=vinfo;
00024 F77_INT i;
00025 #else
00026 int *info=vinfo;
00027 int i;
00028 #endif
00029
00030 extern int CBLAS_CallFromC;
00031
00032 #ifdef F77_CHAR
00033 srname = F2C_STR(F77_srname, XerblaStrLen);
00034 #endif
00035
00036 if (CBLAS_CallFromC)
00037 {
00038 for(i=0; i != XerblaStrLen; i++) rout[i+6] = tolower(srname[i]);
00039 rout[XerblaStrLen+6] = '\0';
00040 cblas_xerbla(*info+1,rout,"");
00041 }
00042 else
00043 {
00044 fprintf(stderr, "Parameter %d to routine %s was incorrect\n",
00045 *info, srname);
00046 }
00047 }