|
@@ -39,7 +39,7 @@ static char *rout; |
|
|
|
|
|
|
|
|
static void F77_xerbla(char *srname, void *vinfo) |
|
|
static void F77_xerbla(char *srname, void *vinfo) |
|
|
{ |
|
|
{ |
|
|
int info=*(int*)vinfo; |
|
|
|
|
|
|
|
|
blasint info=*(blasint*)vinfo; |
|
|
|
|
|
|
|
|
if (link_xerbla) |
|
|
if (link_xerbla) |
|
|
{ |
|
|
{ |
|
@@ -85,4 +85,4 @@ void set_xerbla(char* current_rout, int expected_info){ |
|
|
lerr = TRUE; |
|
|
lerr = TRUE; |
|
|
_info = expected_info; |
|
|
_info = expected_info; |
|
|
rout = current_rout; |
|
|
rout = current_rout; |
|
|
} |
|
|
|
|
|
|
|
|
} |