BLAS（Basic Linear Algebra Subprograms）是一个用于线性代数计算的函数库，可以在许多编程语言中使用。由于BLAS操作涉及矩阵计算，因此需要对输入的矩阵进行检查以确保其符合要求。以下是一些示例代码，用于检查矩阵大小、数据类型和存储顺序等方面的问题：

! Fortran 示例代码
INTEGER M, N
PARAMETER ( M = 100, N = 100 )
REAL A( M, N )
INTEGER LDA
PARAMETER ( LDA = M )
 
! 装载矩阵 A 的实数值
...
 
! 调用 BLAS 子程序 DGEMM
CALL DGEMM( 'N', 'N', M, N, K, ALPHA, A, LDA, B, LDB, BETA, C, LDC )
 
! 检查矩阵 A 是否符合要求
IF ( LDA .LT. M ) THEN
  WRITE(*,*) 'Error: LDA is too small'
ENDIF

// C 示例代码
#include 
#include 

#define M 100
#define N 100
float A[M * N], B[M * N], C[M * N]; // 矩阵存储
const CBLAS_ORDER Order = CblasRowMajor; // 存储顺序

int main()
{
  // 调用 BLAS 子程序 cblas_sgemm
  cblas_sgemm(Order, CblasNoTrans, CblasNoTrans, M, N, K, ALPHA, A, LDA, B, LDB, BETA, C, LDC);
  
  // 检查矩阵 A 是否符合要求
  if (LDA < M)
  {
    printf("Error: LDA is too small");
  }
  
  return 0;
}