1
      2
      3
      4
      5
<doc  6
      7

      8
      9
     10
     11
#ifndef INTERFACE_BLAS_F77_XERBLA_H
#define INTERFACE_BLAS_F77_XERBLA_H 1

extern "C" {

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

// extern "C"

#endif // INTERFACE_BLAS_F77_XERBLA_H