c_c2chke.c

来自「基于Blas CLapck的.用过的人知道是干啥的」· C语言 代码 · 共 827 行 · 第 1/3 页

C
827 行
字号
123
      cblas_info = 8; RowMajorStrg = FALSE;      cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, 1, A, 1, X, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, 0, A, 1, X, 0 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans,                   CblasNonUnit, 0, 0, A, 1, X, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID,                   CblasNonUnit, 0, 0, A, 1, X, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   INVALID, 0, 0, A, 1, X, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, INVALID, 0, A, 1, X, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, INVALID, A, 1, X, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, 1, A, 1, X, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, 0, A, 1, X, 0 );      chkxer();   } else if (strncmp( sf,"cblas_ctpsv",11)==0) {      cblas_rout = "cblas_ctpsv";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, A, X, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans,                   CblasNonUnit, 0, A, X, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_ctpsv(CblasColMajor, CblasUpper, INVALID,                   CblasNonUnit, 0, A, X, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = FALSE;      cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,                   INVALID, 0, A, X, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = FALSE;      cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, INVALID, A, X, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, A, X, 0 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans,                   CblasNonUnit, 0, A, X, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID,                   CblasNonUnit, 0, A, X, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   INVALID, 0, A, X, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, INVALID, A, X, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, A, X, 0 );      chkxer();   } else if (strncmp( sf,"cblas_cgeru",10)==0) {      cblas_rout = "cblas_cgeru";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_cgeru(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_cgeru(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_cgeru(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_cgeru(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_cgeru(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_cgeru(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_cgeru(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_cgeru(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_cgeru(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_cgeru(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_cgeru(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();   } else if (strncmp( sf,"cblas_cgerc",10)==0) {      cblas_rout = "cblas_cgerc";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_cgerc(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_cgerc(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_cgerc(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_cgerc(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_cgerc(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_cgerc(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_cgerc(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_cgerc(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_cgerc(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_cgerc(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_cgerc(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();   } else if (strncmp( sf,"cblas_cher2",11)==0) {      cblas_rout = "cblas_cher2";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_cher2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_cher2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_cher2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_cher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_cher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_cher2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_cher2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_cher2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_cher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_cher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_cher2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();   } else if (strncmp( sf,"cblas_chpr2",11)==0) {      cblas_rout = "cblas_chpr2";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_chpr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_chpr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_chpr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_chpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_chpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_chpr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_chpr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_chpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_chpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );      chkxer();   } else if (strncmp( sf,"cblas_cher",10)==0) {      cblas_rout = "cblas_cher";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_cher(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_cher(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_cher(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_cher(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_cher(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_cher(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_cher(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_cher(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_cher(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );      chkxer();   } else if (strncmp( sf,"cblas_chpr",10)==0) {      cblas_rout = "cblas_chpr";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_chpr(INVALID, CblasUpper, 0, RALPHA, X, 1, A );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_chpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_chpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_chpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_chpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );      chkxer();   }    if (cblas_ok == TRUE)       printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);   else       printf("******* %s FAILED THE TESTS OF ERROR-EXITS *******\n",cblas_rout);}
123

c_c2chke.c - 源码说明

本页面展示了「基于Blas CLapck的.用过的人知道是干啥的」中的 c_c2chke.c 源码文件，采用 C语言 编程语言编写，共 827 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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