1
2
3
4
5
6
7
8
9
10
11
12
|
#include <interfaces/blas/F77/xerbla.h>
#include <cstdio>
extern "C" {
void
F77BLAS(xerbla)(const char rout[6], const int *info)
{
fprintf(stderr, "Parameter %d to routine %s was incorrect\n", *info, rout);
}
} // extern "C"
|