xerbla.cc (interfaces/blas/C/xerbla.cc)

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12

#include <interfaces/blas/C/xerbla.h>
#include <cstdio>

extern "C" {

void
ULMBLAS(xerbla)(const char rout[6], const int *info)
{
fprintf(stderr, "Parameter %d to routine %s was incorrect\n", *info, rout);
}

} // extern "C"