c_z3chke.c

来自「基本的C语言线性代数函数库,在linux下可直接编译；在windows下要显示地」· C语言 代码 · 共 1,459 行 · 第 1/5 页

C
1,459 行
字号
12345
                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 2 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 2 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasRight, CblasLower, 0, 2,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,                   ALPHA, A, 2, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,                   ALPHA, A, 2, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasRight, CblasLower, 2, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,                   ALPHA, A, 2, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,                   ALPHA, A, 2, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = FALSE;      cblas_zhemm( CblasColMajor,  CblasRight, CblasLower, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 2 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasLeft, CblasLower, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 2 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,                   ALPHA, A, 2, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,                   ALPHA, A, 2, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,                   ALPHA, A, 2, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,                   ALPHA, A, 2, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasLeft, CblasUpper, 0, 2,                   ALPHA, A, 1, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,                   ALPHA, A, 2, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasLeft, CblasLower, 0, 2,                   ALPHA, A, 1, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = TRUE;      cblas_zhemm( CblasRowMajor,  CblasRight, CblasLower, 0, 2,                   ALPHA, A, 2, B, 2, BETA, C, 1 );      chkxer();   } else if (strncmp( sf,"cblas_zsymm"   ,11)==0) {            cblas_rout = "cblas_zsymm"   ;      cblas_info = 1;      cblas_zsymm( INVALID,  CblasRight, CblasLower, 0, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  INVALID, CblasUpper, 0, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, INVALID, 0, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, CblasUpper, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasRight, CblasUpper, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, CblasLower, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasRight, CblasLower, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, CblasUpper, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasRight, CblasUpper, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, CblasLower, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasRight, CblasLower, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 2 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasRight, CblasUpper, 0, 2,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 2 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasRight, CblasLower, 0, 2,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,                   ALPHA, A, 2, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,                   ALPHA, A, 2, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, CblasUpper, 2, 0,                   ALPHA, A, 2, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasRight, CblasUpper, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasLeft, CblasLower, 2, 0,                   ALPHA, A, 2, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 13; RowMajorStrg = FALSE;      cblas_zsymm( CblasColMajor,  CblasRight, CblasLower, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_zsymm( CblasRowMajor,  CblasLeft, CblasUpper, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_zsymm( CblasRowMajor,  CblasRight, CblasUpper, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_zsymm( CblasRowMajor,  CblasLeft, CblasLower, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_zsymm( CblasRowMajor,  CblasRight, CblasLower, INVALID, 0,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_zsymm( CblasRowMajor,  CblasLeft, CblasUpper, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_zsymm( CblasRowMajor,  CblasRight, CblasUpper, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_zsymm( CblasRowMajor,  CblasLeft, CblasLower, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_zsymm( CblasRowMajor,  CblasRight, CblasLower, 0, INVALID,                   ALPHA, A, 1, B, 1, BETA, C, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zsymm( CblasRowMajor,  CblasLeft, CblasUpper, 2, 0,                   ALPHA, A, 1, B, 2, BETA, C, 2 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zsymm( CblasRowMajor,  CblasRight, CblasUpper, 0, 2,
12345

c_z3chke.c - 源码说明

本页面展示了「基本的C语言线性代数函数库,在linux下可直接编译；在windows下要显示地申明包含」中的 c_z3chke.c 源码文件，采用 C语言 编程语言编写，共 1,459 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与C语言相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?