c_z2chke.c

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

C
827 行
字号
123
      cblas_info = 8; RowMajorStrg = FALSE;      cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, 1, A, 1, X, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, 0, A, 1, X, 0 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans,                   CblasNonUnit, 0, 0, A, 1, X, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID,                   CblasNonUnit, 0, 0, A, 1, X, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   INVALID, 0, 0, A, 1, X, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, INVALID, 0, A, 1, X, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, INVALID, A, 1, X, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, 1, A, 1, X, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, 0, A, 1, X, 0 );      chkxer();   } else if (strncmp( sf,"cblas_ztpsv",11)==0) {      cblas_rout = "cblas_ztpsv";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, A, X, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans,                   CblasNonUnit, 0, A, X, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_ztpsv(CblasColMajor, CblasUpper, INVALID,                   CblasNonUnit, 0, A, X, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = FALSE;      cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,                   INVALID, 0, A, X, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = FALSE;      cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, INVALID, A, X, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, A, X, 0 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans,                   CblasNonUnit, 0, A, X, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID,                   CblasNonUnit, 0, A, X, 1 );      chkxer();      cblas_info = 4; RowMajorStrg = TRUE;      cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   INVALID, 0, A, X, 1 );      chkxer();      cblas_info = 5; RowMajorStrg = TRUE;      cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, INVALID, A, X, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,                   CblasNonUnit, 0, A, X, 0 );      chkxer();   } else if (strncmp( sf,"cblas_zgeru",10)==0) {      cblas_rout = "cblas_zgeru";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_zgeru(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_zgeru(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_zgeru(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_zgeru(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zgeru(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zgeru(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_zgeru(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_zgeru(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_zgeru(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zgeru(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_zgeru(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();   } else if (strncmp( sf,"cblas_zgerc",10)==0) {      cblas_rout = "cblas_zgerc";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_zgerc(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_zgerc(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_zgerc(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_zgerc(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zgerc(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zgerc(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_zgerc(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_zgerc(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_zgerc(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zgerc(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_zgerc(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();   } else if (strncmp( sf,"cblas_zher2",11)==0) {      cblas_rout = "cblas_zher2";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_zher2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_zher2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_zher2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_zher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = FALSE;      cblas_zher2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_zher2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_zher2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_zher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 );      chkxer();      cblas_info = 10; RowMajorStrg = TRUE;      cblas_zher2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 );      chkxer();   } else if (strncmp( sf,"cblas_zhpr2",11)==0) {      cblas_rout = "cblas_zhpr2";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_zhpr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_zhpr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_zhpr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_zhpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zhpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_zhpr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_zhpr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_zhpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zhpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A );      chkxer();   } else if (strncmp( sf,"cblas_zher",10)==0) {      cblas_rout = "cblas_zher";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_zher(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_zher(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_zher(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_zher(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = FALSE;      cblas_zher(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 2; RowMajorStrg = TRUE;      cblas_zher(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 3; RowMajorStrg = TRUE;      cblas_zher(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 );      chkxer();      cblas_info = 6; RowMajorStrg = TRUE;      cblas_zher(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 );      chkxer();      cblas_info = 8; RowMajorStrg = TRUE;      cblas_zher(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 );      chkxer();   } else if (strncmp( sf,"cblas_zhpr",10)==0) {      cblas_rout = "cblas_zhpr";      cblas_info = 1; RowMajorStrg = FALSE;      cblas_zhpr(INVALID, CblasUpper, 0, RALPHA, X, 1, A );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_zhpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_zhpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );      chkxer();      cblas_info = 2; RowMajorStrg = FALSE;      cblas_zhpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A );      chkxer();      cblas_info = 3; RowMajorStrg = FALSE;      cblas_zhpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A );      chkxer();      cblas_info = 6; RowMajorStrg = FALSE;      cblas_zhpr(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_z2chke.c - 源码说明

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

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

⌨️ 快捷键说明

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