/*****************************************************************************版权所有(c)2014,Intel Corp。保留所有权利。以源代码和二进制形式重新分发和使用,有或无如果满足以下条件,则允许进行修改:*源代码的重新分发必须保留上述版权声明,此条件列表和以下免责声明。*二进制形式的重新分发必须复制上述版权注意,此条件列表和以下免责声明分发时提供的文件和/或其他材料。*既非英特尔公司的名称,也非其贡献者的姓名可用于支持或推广源自此软件的产品未经事先书面许可。本软件由版权持有者和贡献者“按原样”提供以及任何明示或暗示的保证,包括但不限于对适销性和特定用途适用性的默示保证特此声明。在任何情况下,版权所有者或贡献者均不得对任何直接、间接、偶然、特殊、示范或间接损害(包括但不限于替代货物或服务;使用、数据或利润损失;或商业中断)无论是何种原因,也无论是何种责任理论合同、严格责任或侵权(包括疏忽或其他)以任何方式因使用本软件而产生,即使已通知此类损坏的可能性。*******************************************************************************内容:LAPACK实用程序函数的本机C接口*作者:英特尔公司*****************************************************************************/#ifndef_LAPACKE_UTILS_H_#定义_LAPACKE_UTILS_H_#包括“lapacke.h”#ifdef __cplusplus外部“C”{#endif/*__cplusplus*/#ifndef ABS#定义ABS(x)((x)<0)-(x) :(x))#结尾#ifndef最大#定义MAX(x,y)((x)>(y))?(x) :(y))#结尾#ifndef最小值#定义最小值(x,y)((x)<(y))?(x) :(y))#结尾#ifndef最大值3#定义MAX3(x,y,z)(((x)>MAX(y,z))?(x) :最大(y,z))#结尾#ifndef最小值3#定义MIN3(x,y,z)(((x)<MIN(y,z))?(x) :最小(y,z))#结尾#定义IS_S_NONZERO(x)((x)<0||(x)>0)#定义IS_D_NONZERO(x)((x)<0||(x)>0)#定义IS_C_NONZERO(x)(IS_S_NONZER(*((float*)&x))||\IS_S_NONZERO(*((浮点*)&x)+1))#定义IS_Z_NONZERO(x)(IS_D_NONZER(*(双*)&x))||\IS_D_NONZERO(*((双*)&x)+1))/*错误处理程序*/void LAPACKE_xerbla(常量字符*名称,lapack_int信息);/*比较两个字符(区分大小写)*/lapack_logical LAPACKE_lsame(字符ca,字符cb);/*函数将column-major转换为row-major 2d数组,反之亦然*/void LAPACKE_cgb_trans(int矩阵_布局,lapack_int m,lapack _ int n,lapack输入kl,lapack输出ku,常量lapack_complex_float*in,lapack_int ldin,lapack_complex_float*out,lapack_int ldout);void LAPACKE_cge_trans(int矩阵_布局,lapack_int m,lapack _ int n,常量lapack_complex_float*in,lapack_int ldin,lapack_complex_float*out,lapack_int ldout);void LAPACKE_cgg_trans(int矩阵布局,lapack_int m,lapack _ int n,常量lapack_complex_float*in,lapack_int ldin,lapack_complex_float*out,lapack_int ldout);void LAPACKE_chb_trans(int矩阵_layout,char uplo,lapack_int n,lapack输入kd,常量lapack_complex_float*in,lapack_int ldin,lapack_complex_float*out,lapack_int ldout);void LAPACKE_che_trans(int矩阵布局,char uplo,lapack_int n,常量lapack_complex_float*in,lapack_int ldin,lapack_complex_float*out,lapack_int ldout);void LAPACKE_chp_trans(int矩阵_layout,char uplo,lapack_int n,常量lapack_complex_float*in,lapack_complex_float*out);void LAPACKE_chs_trans(int矩阵布局,lapack_int n,const lapack_complex_float*in、lapack_int ldin,lapack_complex_float*out,lapack_int ldout);void LAPACKE_cpb_trans(int矩阵_layout,char uplo,lapack_int n,lapack输入kd,const lapack_complex_float*in、lapack_int ldin,lapack_complex_float*out,lapack_int ldout);void LAPACKE_cpf_trans(int矩阵_layout,char transr,char uplo,lapack_int n,常数lapack_complex_float*in,lapack_complex_float*out);void LAPACKE_cpo_trans(int矩阵_layout,char uplo,lapack_int n,常量lapack_complex_float*in,lapack_int ldin,lapack_complex_float*out,lapack_int ldout);无效LAPACKE_cpp_trans(int matrix_layout,char uplo,lapack_int n,常量lapack_complex_float*in,lapack_complex_float*out);void LAPACKE_csp_trans(int矩阵_layout,char uplo,lapack_int n,常量lapack_complex_float*in,lapack_complex_float*out);void LAPACKE_csy_trans(int矩阵_layout,char uplo,lapack_int n,常量lapack_complex_float*in,lapack_int ldin,lapack_complex_float*out,lapack_int ldout);void LAPACKE_ctb_trans(int矩阵_layout,char uplo,char diag,lapack输入n,lapack输出kd,常量lapack_complex_float*in,lapack_int ldin,lapack_complex_float*out,lapack_int ldout);void LAPACKE_ctf_trans(int矩阵_布局,char transr,char uplo,char diag,lapack_int n,常数lapack_complex_float*in,lapack_complex_float*out);void LAPACKE_ctp_trans(int matrix_layout、char uplo、char diag、,lapack_int n,常数lapack_complex_float*in,lapack_complex_float*out);void LAPACKE_ctr_trans(int matrix_layout、char uplo、char diag、lapack_int n、,常量lapack_complex_float*in,lapack_int ldin,lapack_complex_float*out,lapack_int ldout);void LAPACKE_dgb_trans(int矩阵_布局,lapack_int m,lapack _ int n,lapack输入kl,lapack输出ku,常量双*in,lapack_int ldin,double*out,lapack_int ldout);无效LAPACKE_dge_trans(int matrix_layout,lapack_int m,lapack_int n,常量双*in,lapack_int ldin,double*out,lapack_int ldout);void LAPACKE_dgg_trans(int矩阵_布局,lapack_int m,lapack _ int n,const double*in、lapack_int ldin,double*out,lapack_int ldout);void LAPACKE_dhs_trans(int矩阵_布局,lapack_int n,常量双*in,lapack_int ldin,double*out,lapack_int ldout);void LAPACKE_dpb_trans(int矩阵_layout,char uplo,lapack_int n,lapack输入kd,常量双*in,lapack_int ldin,double*out、lapack_int-ldout);void LAPACKE_dpf_trans(int矩阵_layout,char transr,char uplo,lapack _ int n,常数双*in,双*输出);void LAPACKE_dpo_trans(int矩阵_layout,char uplo,lapack_int n,常量双*in,lapack_int ldin,double*out,lapack_int ldout);void LAPACKE_dpp_trans(int矩阵_layout,char uplo,lapack_int n,常量双*英寸,双*输出);void LAPACKE_dsb_trans(int矩阵_layout,char uplo,lapack_int n,lapack输入kd,常量双*in,lapack_int ldin,double*out,lapack_int ldout);void LAPACKE_dsp_trans(int矩阵_layout,char uplo,lapack_int n,常量双*英寸,双*输出);void LAPACKE_dsy_trans(int矩阵_layout,char uplo,lapack_int n,常量双*in,lapack_int ldin,double*out,lapack_int ldout);void LAPACKE_dtb_trans(int矩阵_layout,char uplo,char diag,lapack输入n,lapack输出kd,常量双*in,lapack_int ldin,double*out,lapack_int ldout);void LAPACKE_dtf_trans(int矩阵_布局,char transr,char uplo,char diag,lapack _ int n,常数双*in,双重*输出);void LAPACKE_dtp_trans(int matrix_layout、char uplo、char diag、,lapack _ int n,常数双*in,双*输出);无效LAPACKE_dtr_trans(int matrix_layout,char uplo,char diag,lapack_int n,常量双*in,lapack_int ldin,double*out,lapack_int ldout);void LAPACKE_sgb_trans(int矩阵_布局,lapack_int m,lapack _ int n,lapack输入kl,lapack输出ku,常量float*in,lapack_int ldin,float*out,lapack_int ldout);void LAPACKE_sge_trans(int矩阵_布局,lapack_int m,lapack _ int n,const float*in,lapack_int ldin,float*out,lapack_int ldout);void LAPACKE_sgg_trans(int矩阵布局,lapack_int m,lapack _ int n,常量float*in,lapack_int ldin,float*out,lapack_int ldout);void LAPACKE_shs_trans(int矩阵_布局,lapack_int n,常量float*in,lapack_int ldin,float*out,lapack_int ldout);void LAPACKE_spb_trans(int矩阵_layout,char uplo,lapack_int n,lapack输入kd,常量float*in,lapack_int ldin,float*out,lapack_int ldout);void LAPACKE_spf_trans(int矩阵_layout,char transr,char uplo,lapack_int n,常量浮点*in,浮动*输出);void LAPACKE_spo_trans(int矩阵_layout,char uplo,lapack_int n,常量float*in,lapack_int ldin,float*out,lapack_int ldout);void LAPACKE_spp_trans(int矩阵_layout,char uplo,lapack_int n,常量浮点*in,浮动*输出);void LAPACKE_ssb_trans(int矩阵_layout,char uplo,lapack_int n,lapack输入kd,常量float*in,lapack_int ldin,float*out,lapack_int ldout);void LAPACKE_ssp_trans(int矩阵_layout,char uplo,lapack_int n,常量浮点*in,浮动*输出);void LAPACKE_ssy_trans(int矩阵_layout,char uplo,lapack_int n,常量float*in,lapack_int ldin,float*out,lapack_int-ldout);void LAPACKE_stb_trans(int矩阵_layout,char uplo,char diag,lapack输入n,lapack输出kd,常量float*in,lapack_int ldin,float*out,lapack_int ldout);void LAPACKE_stf_trans(int矩阵布局,char transr,char uplo,char diag,lapack_int n,常量浮点*in,浮动*输出);无效LAPACKE_stp_trans(int matrix_layout,char uplo,char diag,lapack_int n,常量浮点*in,浮动*输出);void LAPACKE_str_trans(int matrix_layout、char uplo、char diag、lapack_int n、,常量float*in,lapack_int ldin,float*out,lapack_int ldout);void LAPACKE_zgb_trans(int矩阵_布局,lapack_int m,lapack _ int n,lapack输入kl,lapack输出ku,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out,lapack_int ldout);void LAPACKE_zge_trans(int矩阵布局,lapack_int m,lapack _ int n,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out,lapack_int ldout);void LAPACKE_zgg_trans(int矩阵_布局,lapack_int m,lapack _ int n,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out,lapack_int ldout);void LAPACKE_zhb_trans(int矩阵_layout,char uplo,lapack_int n,lapack输入kd,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out,lapack_int ldout);void LAPACKE_zhe_trans(int矩阵_layout,char uplo,lapack_int n,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out,lapack_int ldout);void LAPACKE_zhp_trans(int矩阵_layout,char uplo,lapack_int n,const lapack_complex_double*英寸,lapack_complex_double*out);void LAPACKE_zhs_trans(int矩阵_布局,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out,lapack_int ldout);void LAPACKE_zpb_trans(int矩阵布局,char uplo,lapack_int n,lapack_ int kd,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out,lapack_int ldout);void LAPACKE_zpf_trans(int matrix_layout、char transr、char uplo、,lapack_int n,常数lapack_complex_double*in,lapack_complex_double*out);void LAPACKE_zpo_trans(int矩阵布局,char uplo,lapack_int n,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out、lapack_int-ldout);void LAPACKE_zpp_trans(int矩阵布局,char uplo,lapack_int n,const lapack_complex_double*英寸,lapack_complex_double*out);void LAPACKE_zsp_trans(int矩阵布局,char uplo,lapack_int n,const lapack_complex_double*英寸,lapack_complex_double*out);void LAPACKE_zsy_trans(int矩阵布局,char uplo,lapack_int n,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out,lapack_int ldout);void LAPACKE_ztb_trans(int矩阵_layout,char uplo,char diag,lapack输入n,lapack输出kd,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out,lapack_int ldout);void LAPACKE_ztf_trans(int矩阵_layout,char transr,char uplo,char diag,lapack_int n,常数lapack_complex_double*in,lapack_complex_double*out);void LAPACKE_ztp_trans(int矩阵_layout,char uplo,char diag,lapack_int n,常数lapack_complex_double*in,lapack_complex_double*out);void LAPACKE_ztr_trans(int矩阵_layout,char uplo,char diag,lapack_int n,常数lapack_complex_double*in,lapack_int ldin,lapack_complex_double*out,lapack_int ldout);/*NaN检查器*/#定义LAPACK_SISNAN(x)(x!=x)#定义LAPACK_DISNAN(x)(x!=x)#定义LAPACK_ISNAN(x)(LAPACK_ISNAN(*((浮点*)&x))||\LAPACK_SISNAN(*((浮点*)&x)+1))#定义LAPACK_ZISAN(x)(LAPACK_DISNAN(*(双*)&x))||\LAPACK_DISNAN(*((双*)&x)+1))/*矢量的NaN检查器*/lapack_logical LAPACKE_c_nancheck(lapack_ int n,常量lapack_complex_float*x,lapack_int incx);lapack_logical LAPACKE_d_nancheck(lapack_ int n,常量双*x,lapack_int incx);lapack_logical LAPACKE_s_nancheck(lapack_ int n,常量浮点*x,lapack_int incx);lapack_逻辑LAPACKE_z_nancheck(lapack_int n,常数lapack_complex_double*x,lapack_int incx);/*矩阵的NaN检查器*/lapack_logical LAPACKE_cgb_nancheck(int矩阵_布局,lapack_ int m,lapack输入n,lapack输出kl,lapack输入ku,常数lapack_complex_float*ab,lapack输入ldab);lapack_logical LAPACKE_cge_nancheck(int矩阵_布局,lapack_ int m,翻盖_ int n,常量lapack_complex_float*a,lapack输入lda);lapack_logical LAPACKE_cgg_nancheck(int矩阵_布局,lapack_ int m,翻盖_ int n,常量lapack_complex_float*a,lapack输入lda);lapack_logical LAPACKE_cgt_nancheck(lapack_ int n,常量lapack_complex_float*dl,常量lapack_complex_float*d,常量lapack_complex_float*du);lapack_logical LAPACKE_chb_nancheck(int矩阵布局,字符上传,lapack输入n,lapack输出kd,常数lapack_complex_float*ab,lapack_int-ldab);lapack_logical LAPACKE_che_nancheck(int矩阵布局,字符上传,翻盖_ int n,常量lapack_complex_float*a,lapack_int-lda);lapack_logical LAPACKE_chp_nancheck(lapack_ int n,const lapack_complex_float*ap);lapack_logical LAPACKE_chs_nancheck(int矩阵_布局,lapack _ int n,常量lapack_complex_float*a,lapack输入lda);lapack_logical LAPACKE_cpb_nancheck(int矩阵布局,字符上传,lapack输入n,lapack输出kd,const lapack_ complex_ float*ab,lapack输入ldab);lapack_logical LAPACKE_cpf_nancheck(lapack_ int n,常量lapack_complex_float*a);lapack_logical LAPACKE_cpo_nancheck(int矩阵布局,字符上传,翻盖_ int n,常量lapack_complex_float*a,lapack输入lda);lapack_logical LAPACKE_cpp_nancheck(lapack_ int n,const lapack_complex_float*ap);lapack_logical LAPACKE_cpt_nancheck(lapack_ int n,常量浮点*d,常量lapack_complex_float*e);lapack_logical LAPACKE_csp_nancheck(lapack_ int n,const lapack_complex_float*ap);lapack_logical LAPACKE_cst_nancheck(lapack_ int n,常量lapack_complex_float*d,常量lapack_complex_float*e);lapack_logical LAPACKE_csy_nancheck(int矩阵布局,字符上传,翻盖_ int n,常量lapack_complex_float*a,lapack输入lda);lapack_logical LAPACKE_ctb_nancheck(int matrix_layout、char uplo、char diag、,lapack输入n,lapack输出kd,常数lapack_complex_float*ab,lapack输入ldab);lapack_ logical LAPACKE_ ctf_,char uplo、char diag、,翻盖_ int n,常量lapack_complex_float*a);lapack_logical LAPACKE_ctp_nancheck(int matrix_layout,字符uplo,字符diag,翻盖_ int n,const lapack_complex_float*ap);lapack_logical LAPACKE_ctr_nancheck(int matrix_layout、char uplo、char diag、,翻盖_ int n,常量lapack_complex_float*a,lapack输入lda);lapack_logical LAPACKE_dgb_nancheck(int矩阵_布局,lapack_ int m,lapack_int n、lapack_int kl,lapack输入ku,常数双*ab,lapack输入ldab);lapack_logical LAPACKE_dge_nancheck(int矩阵_布局,lapack _ int m,翻盖_ int n,常数双*a,lapack输入lda);lapack_logical LAPACKE_dgg_nancheck(int矩阵_布局,lapack_ int m,翻盖_ int n,常数双*a,lapack输入lda);lapack_logical LAPACKE_dgt_nancheck(lapack_ int n,const双*dl,常数双*d,const double*du);lapack_logical LAPACKE_dhs_nancheck(int矩阵_布局,lapack _ int n,常数双*a,lapack输入lda);lapack_logical LAPACKE_dpb_nancheck(int矩阵布局,字符上传,lapack输入n,lapack输出kd,常数双*ab,lapack输入ldab);lapack_logical LAPACKE_dpf_nancheck(lapack_ int n,常数双*a);lapack_logical LAPACKE_dpo_nancheck(int矩阵布局,字符上传,lapack_ int n中,常数双*a,lapack输入lda);lapack_logical LAPACKE_dpp_nancheck(lapack_ int n,常量双*ap);lapack_logical LAPACKE_dpt_nancheck(lapack_ int n,常数双*d,const double*e);lapack_logical LAPACKE_dsb_nancheck(int矩阵布局,字符上传,lapack输入n,lapack输出kd,常数双*ab,lapack输入ldab);逻辑LAPACKE_ dsp_,const double*ap);lapack_logical LAPACKE_dst_ancheck(lapack_ int n,常数双*d,const double*e);lapack_logical LAPACKE_dsy_nancheck(int矩阵布局,字符上传,翻盖_ int n,常数双*a,lapack输入lda);lapack_logical LAPACKE_dtb_nancheck(int matrix_layout,char uplo,char diag,lapack输入n,lapack输出kd,常数双*ab,lapack输入ldab);lapack_logical LAPACKE_dtf_nancheck(int矩阵布局,字符转换,char uplo、char diag、,翻盖_ int n,常数双*a);lapack_logical LAPACKE_dtp_nancheck(int matrix_layout,char uplo,char diag,翻盖_ int n,const double*ap);lapack_logical LAPACKE_dtr_nancheck(int matrix_layout、char uplo、char diag、,翻盖_ int n,常数双*a,lapack输入lda);lapack_logical LAPACKE_sgb_nancheck(int矩阵_布局,lapack_ int m,lapack输入n,lapack输出kl,lapack_ int库,常量浮点*ab,lapack输入ldab);lapack_logical LAPACKE_sge_nancheck(int矩阵布局,lapack_ int m,lapack_ int n中,常量浮点*a,lapack输入lda);lapack_logical LAPACKE_sgg_nancheck(int矩阵_布局,lapack _ int m,翻盖_ int n,常量浮点*a,lapack输入lda);lapack_logical LAPACKE_sgt_nancheck(lapack_ int n,常量浮点*dl,常量浮点*d,常量浮点*du);lapack_logical LAPACKE_shs_nancheck(int矩阵_布局,lapack _ int n,常量浮点*a,lapack输入lda);lapack_logical LAPACKE_spb_nancheck(int矩阵布局,字符上传,lapack输入n,lapack输出kd,常量浮点*ab,lapack输入ldab);lapack_logical LAPACKE_spf_nancheck(lapack_ int n,常量浮点*a);lapack_logical LAPACKE_spo_nancheck(int矩阵布局,字符上传,翻盖_ int n,常量浮点*a,lapack输入lda);lapack_logical LAPACKE_spp_nancheck(lapack_ int n,常量浮点*ap);lapack_logical LAPACKE_spt_nancheck(lapack_ int n,常量浮点*d,常量浮点*e);lapack_logical LAPACKE_ssb_nancheck(int矩阵布局,字符上传,lapack输入n,lapack输出kd,常量浮点*ab,lapack输入ldab);lapack_logical LAPACKE_ssp_nancheck(lapack_ int n,常量浮点*ap);lapack_logical LAPACKE_sst_nancheck(lapack_ int n,常量浮点*d,常量浮点*e);lapack_ logical LAPACKE_ssy_,翻盖_ int n,常量浮点*a,lapack输入lda);lapack_logical LAPACKE_stb_nancheck(int matrix_layout、char uplo、char diag、,lapack输入n,lapack输出kd,常量浮点*ab,lapack输入ldab);lapack_ logical LAPACKE_tf_,char uplo、char diag、,翻盖_ int n,常量浮点*a);lapack_logical LAPACKE_stp_nancheck(int matrix_layout、char uplo、char diag、,翻盖_ int n,常量浮点*ap);lapack_logical LAPACKE_str_nancheck(int matrix_layout、char uplo、char diag、,翻盖_ int n,常量浮点*a,lapack输入lda);lapack_logical LAPACKE_zgb_nancheck(int矩阵_布局,lapack_ int m,lapack输入n,lapack输出kl,lapack输入ku,常数lapack_complex_double*ab,lapack输入ldab);lapack_logical LAPACKE_zge_nancheck(int矩阵_布局,lapack _ int m,翻盖_ int n,常数lapack_complex_double*a,lapack输入lda);lapack_logical LAPACKE_zgg_nancheck(int矩阵_布局,lapack _ int m,翻盖_ int n,常数lapack_complex_double*a,lapack输入lda);lapack_逻辑LAPACKE_zgt_nancheck(lapack_int n,常量lapack_complex_double*dl,complex_ double*d,常数lapack_complex_double*du);lapack_logical LAPACKE_zhb_nancheck(int矩阵布局,字符上传,lapack输入n,lapack输出kd,complex_ double*ab,lapack输入ldab);lapack_logical LAPACKE_zhe_nancheck(int矩阵布局,字符上传,翻盖_ int n,常数lapack_complex_double*a,lapack输入lda);lapack_logical LAPACKE_zhp_nancheck(lapack_ int n,常数lapack_complex_double*ap);lapack_ logical LAPACKE_zhs_,常数lapack_complex_double*a,lapack输入lda);lapack_logical LAPACKE_zpb_nancheck(int矩阵布局,字符上传,lapack输入n,lapack输出kd,常数lapack_complex_double*ab,lapack输入ldab);lapack_逻辑LAPACKE_zpf_nancheck(lapack_int n,常数lapack_complex_double*a);lapack_logical LAPACKE_zpo_nancheck(int矩阵布局,字符上传,翻盖_ int n,常数lapack_complex_double*a,lapack输入lda);lapack_逻辑LAPACKE_zpp_nancheck(lapack_int n,常数lapack_complex_double*ap);lapack_逻辑LAPACKE_zpt_nancheck(lapack_int n,常数双*d,常数lapack_complex_double*e);lapack_逻辑LAPACKE_zsp_nancheck(lapack_int n,常数lapack_complex_double*ap);lapack_逻辑LAPACKE_zst_nancheck(lapack_int n,常数lapack_complex_double*d,常数lapack_complex_double*e);lapack_logical LAPACKE_zsy_nancheck(int矩阵布局,字符上传,翻盖_ int n,常数lapack_complex_double*a,lapack_int-lda);lapack_logical LAPACKE_ztb_nancheck(int matrix_layout、char uplo、char diag、,lapack输入n,lapack输出kd,常数lapack_complex_double*ab,lapack_int-ldab);lapack_logical LAPACKE_ztf_nancheck(int矩阵布局,字符转换,char uplo、char diag、,翻盖_ int n,常数lapack_complex_double*a);lapack_logical LAPACKE_ztp_nancheck(int matrix_layout、char uplo、char diag、,翻盖_ int n,常数lapack_complex_double*ap);lapack_logical LAPACKE_ztr_nancheck(int matrix_layout,字符uplo,字符diag,翻盖_ int n,常数lapack_complex_double*a,lapack输入lda);#ifdef __cplusplus}#endif/*__cplusplus*/#endif/*_LAPACKE_UTILS_H_结束*/