xerbla.c (ulmBLAS/src/auxiliary/xerbla.c)

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12
     13
     14
     15
     16
     17
     18

#include <auxiliary/xerbla.h>

#include <stdio.h>

//

//  Declaration for the BLAS error message function used and required by

//  BLAS level 2 and level 3 functions.

//

void

ULMBLAS(xerbla)(const char rout[6], const int info)

{

    fprintf(stderr, "Parameter %d to routine %s was incorrect\n", info, rout);

}

void

F77BLAS(xerbla)(const char rout[6], const int *info)

{

    ULMBLAS(xerbla)(rout, *info);

}