symswitches.c

数学算法的实现库。可以实现常见的线性计算。

#if defined _DOUBLE_REAL_ || defined _SINGLE_REAL_
#define CONJG(A)      (A)

#ifdef _DOUBLE_REAL_
#define MYSYMPILUCSOL        DSYMpilucsol
#define MYSYMILUC            DSYMiluc
#define SYMILUPACK           dsymilupack
#define SYMILUPACKFAC        dsymilupackfac
#define SYMILUPACKSOL        dsymilupacksol
#define SYMILUPACKDEL        dsymilupackdel

#define MYGNLSYM             DGNLSYM
#define MYGNLSYMAMGSOLVER    DGNLSYMAMGsolver

#define MYSYMAMGSOLVER       DSYMAMGsolver
#define MYSBCG               DSYMbcg
#define MYSMATVEC            DSYMmatvec
#define MYSYMAMGINIT         DSYMAMGinit
#define MYSYMAMGGETPARAMS    DSYMAMGgetparams
#define MYSYMAMGSETPARAMS    DSYMAMGsetparams
#define MYSYMAMGFACTOR       DSYMAMGfactor

#define MYSYMAMGDELETE       DSYMAMGdelete

#define PERMSMWMAMF          DSYMperm_mwm_amf
#define PERMSMWMAMD          DSYMperm_mwm_amd
#define PERMSMWMMMD          DSYMperm_mwm_mmd
#define PERMSMWMRCM          DSYMperm_mwm_rcm
#define PERMSMWMMETISE       DSYMperm_mwm_metis_e
#define PERMSMWMMETISN       DSYMperm_mwm_metis_n

#define PERMSMC64AMF          DSYMperm_mc64_amf
#define PERMSMC64AMD          DSYMperm_mc64_amd
#define PERMSMC64MMD          DSYMperm_mc64_mmd
#define PERMSMC64RCM          DSYMperm_mc64_rcm
#define PERMSMC64METISE       DSYMperm_mc64_metis_e
#define PERMSMC64METISN       DSYMperm_mc64_metis_n

#else

#define MYSYMPILUCSOL        SSYMpilucsol
#define MYSYMILUC            SSYMiluc
#define SYMILUPACK           ssymilupack
#define SYMILUPACKFAC        ssymilupackfac
#define SYMILUPACKSOL        ssymilupacksol
#define SYMILUPACKDEL        ssymilupackdel

#define MYGNLSYM             SGNLSYM
#define MYGNLSYMAMGSOLVER    SGNLSYMAMGsolver

#define MYSYMAMGSOLVER       SSYMAMGsolver
#define MYSBCG               SSYMbcg
#define MYSMATVEC            SSYMmatvec
#define MYSYMAMGINIT         SSYMAMGinit
#define MYSYMAMGGETPARAMS    SSYMAMGgetparams
#define MYSYMAMGSETPARAMS    SSYMAMGsetparams
#define MYSYMAMGFACTOR       SSYMAMGfactor

#define MYSYMAMGDELETE       SSYMAMGdelete

#define PERMSMWMAMF          SSYMperm_mwm_amf
#define PERMSMWMAMD          SSYMperm_mwm_amd
#define PERMSMWMMMD          SSYMperm_mwm_mmd
#define PERMSMWMRCM          SSYMperm_mwm_rcm
#define PERMSMWMMETISE       SSYMperm_mwm_metis_e
#define PERMSMWMMETISN       SSYMperm_mwm_metis_n

#define PERMSMC64AMF          SSYMperm_mc64_amf
#define PERMSMC64AMD          SSYMperm_mc64_amd
#define PERMSMC64MMD          SSYMperm_mc64_mmd
#define PERMSMC64RCM          SSYMperm_mc64_rcm
#define PERMSMC64METISE       SSYMperm_mc64_metis_e
#define PERMSMC64METISN       SSYMperm_mc64_metis_n
#endif



#else



#ifdef _COMPLEX_SYMMETRIC_
#define CONJG(A)     (A)

#ifdef _SINGLE_COMPLEX_
#define MYSYMPILUCSOL        CSYMpilucsol
#define MYSYMILUC            CSYMiluc
#define SYMILUPACK           csymilupack
#define SYMILUPACKFAC        csymilupackfac
#define SYMILUPACKSOL        csymilupacksol
#define SYMILUPACKDEL        csymilupackdel

#define MYGNLSYM             CGNLSYM
#define MYGNLSYMAMGSOLVER    CGNLSYMAMGsolver

#define MYSYMAMGSOLVER       CSYMAMGsolver
#define MYSBCG               CSYMbcg
#define MYSMATVEC            CSYMmatvec
#define MYSYMAMGINIT         CSYMAMGinit
#define MYSYMAMGGETPARAMS    CSYMAMGgetparams
#define MYSYMAMGSETPARAMS    CSYMAMGsetparams
#define MYSYMAMGFACTOR       CSYMAMGfactor

#define MYSYMAMGDELETE       CSYMAMGdelete

#define PERMSMWMAMF          CSYMperm_mwm_amf
#define PERMSMWMAMD          CSYMperm_mwm_amd
#define PERMSMWMMMD          CSYMperm_mwm_mmd
#define PERMSMWMRCM          CSYMperm_mwm_rcm
#define PERMSMWMMETISE       CSYMperm_mwm_metis_e
#define PERMSMWMMETISN       CSYMperm_mwm_metis_n

#define PERMSMC64AMF          CSYMperm_mwm_amf
#define PERMSMC64AMD          CSYMperm_mwm_amd
#define PERMSMC64MMD          CSYMperm_mwm_mmd
#define PERMSMC64RCM          CSYMperm_mwm_rcm
#define PERMSMC64METISE       CSYMperm_mwm_metis_e
#define PERMSMC64METISN       CSYMperm_mwm_metis_n

#else
#define MYSYMPILUCSOL        ZSYMpilucsol
#define MYSYMILUC            ZSYMiluc
#define SYMILUPACK           zsymilupack
#define SYMILUPACKFAC        zsymilupackfac
#define SYMILUPACKSOL        zsymilupacksol
#define SYMILUPACKDEL        zsymilupackdel

#define MYGNLSYM             ZGNLSYM
#define MYGNLSYMAMGSOLVER    ZGNLSYMAMGsolver

#define MYSYMAMGSOLVER       ZSYMAMGsolver
#define MYSBCG               ZSYMbcg
#define MYSMATVEC            ZSYMmatvec
#define MYSYMAMGINIT         ZSYMAMGinit
#define MYSYMAMGGETPARAMS    ZSYMAMGgetparams
#define MYSYMAMGSETPARAMS    ZSYMAMGsetparams
#define MYSYMAMGFACTOR       ZSYMAMGfactor

#define MYSYMAMGDELETE       ZSYMAMGdelete

#define PERMSMWMAMF          ZSYMperm_mwm_amf
#define PERMSMWMAMD          ZSYMperm_mwm_amd
#define PERMSMWMMMD          ZSYMperm_mwm_mmd
#define PERMSMWMRCM          ZSYMperm_mwm_rcm
#define PERMSMWMMETISE       ZSYMperm_mwm_metis_e
#define PERMSMWMMETISN       ZSYMperm_mwm_metis_n

#define PERMSMC64AMF          ZSYMperm_mc64_amf
#define PERMSMC64AMD          ZSYMperm_mc64_amd
#define PERMSMC64MMD          ZSYMperm_mc64_mmd
#define PERMSMC64RCM          ZSYMperm_mc64_rcm
#define PERMSMC64METISE       ZSYMperm_mc64_metis_e
#define PERMSMC64METISN       ZSYMperm_mc64_metis_n
#endif

#else

#ifdef _SINGLE_COMPLEX_
#define MYSYMILUC            CHERiluc
#define MYSYMPILUCSOL        CHERpilucsol
#define SYMILUPACK           cherilupack
#define SYMILUPACKFAC        cherilupackfac
#define SYMILUPACKSOL        cherilupacksol
#define SYMILUPACKDEL        cherilupackdel

#define CONJG(A)     (conjg(A))

#define MYGNLSYM             CGNLHER
#define MYGNLSYMAMGSOLVER    CGNLHERAMGsolver

#define MYSYMAMGSOLVER       CHERAMGsolver
#define MYSBCG               CHERbcg
#define MYSMATVEC            CHERmatvec
#define MYSYMAMGINIT         CHERAMGinit
#define MYSYMAMGGETPARAMS    CHERAMGgetparams
#define MYSYMAMGSETPARAMS    CHERAMGsetparams
#define MYSYMAMGFACTOR       CHERAMGfactor

#define MYSYMAMGDELETE       CHERAMGdelete

#define PERMSMWMAMF          CHERperm_mwm_amf
#define PERMSMWMAMD          CHERperm_mwm_amd
#define PERMSMWMMMD          CHERperm_mwm_mmd
#define PERMSMWMRCM          CHERperm_mwm_rcm
#define PERMSMWMMETISE       CHERperm_mwm_metis_e
#define PERMSMWMMETISN       CHERperm_mwm_metis_n

#define PERMSMC64AMF          CHERperm_mc64_amf
#define PERMSMC64AMD          CHERperm_mc64_amd
#define PERMSMC64MMD          CHERperm_mc64_mmd
#define PERMSMC64RCM          CHERperm_mc64_rcm
#define PERMSMC64METISE       CHERperm_mc64_metis_e
#define PERMSMC64METISN       CHERperm_mc64_metis_n

#else
#define MYSYMILUC            ZHERiluc
#define MYSYMPILUCSOL        ZHERpilucsol
#define SYMILUPACK           zherilupack
#define SYMILUPACKFAC        zherilupackfac
#define SYMILUPACKSOL        zherilupacksol
#define SYMILUPACKDEL        zherilupackdel

#define CONJG(A)     (dconjg(A))

#define MYGNLSYM             ZGNLHER
#define MYGNLSYMAMGSOLVER    ZGNLHERAMGsolver

#define MYSYMAMGSOLVER       ZHERAMGsolver
#define MYSBCG               ZHERbcg
#define MYSMATVEC            ZHERmatvec
#define MYSYMAMGINIT         ZHERAMGinit
#define MYSYMAMGGETPARAMS    ZHERAMGgetparams
#define MYSYMAMGSETPARAMS    ZHERAMGsetparams
#define MYSYMAMGFACTOR       ZHERAMGfactor

#define MYSYMAMGDELETE       ZHERAMGdelete

#define PERMSMWMAMF          ZHERperm_mwm_amf
#define PERMSMWMAMD          ZHERperm_mwm_amd
#define PERMSMWMMMD          ZHERperm_mwm_mmd
#define PERMSMWMRCM          ZHERperm_mwm_rcm
#define PERMSMWMMETISE       ZHERperm_mwm_metis_e
#define PERMSMWMMETISN       ZHERperm_mwm_metis_n

#define PERMSMC64AMF          ZHERperm_mc64_amf
#define PERMSMC64AMD          ZHERperm_mc64_amd
#define PERMSMC64MMD          ZHERperm_mc64_mmd
#define PERMSMC64RCM          ZHERperm_mc64_rcm
#define PERMSMC64METISE       ZHERperm_mc64_metis_e
#define PERMSMC64METISN       ZHERperm_mc64_metis_n
#endif

#endif



#endif