namesilupack.h

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

#ifndef _NAMES_ILU_PACK_H
#define _NAMES_ILU_PACk_H

#include "f2c.h"


/* on several architectures names of fortran routines are passed to C in 
   different ways. To cover this different architectures use in C only lower
   letters for the fortran names. Dependent on the switch you use they are
   replaced by the correct function name
*/

/* only use capital letters */
#if defined __CAPS__ && !defined __UNDERSCORE__ && !defined __2UNDERSCORES__
#define qqsorti             QQSORTI

#define dsymilupack         DSYMILUPACK
#define dsymilupackfac      DSYMILUPACKFAC
#define dsymilupacksol      DSYMILUPACKSOL
#define dsymilupackdel      DSYMILUPACKDEL

#define DGNLlupq            DGNLLUPQ
#define DGNLlupqsol         DGNLLUPQSOL
#define DGNLlupqtsol        DGNLLUPQTSOL
#define DGNLlupqlsol        DGNLLUPQLSOL
#define DGNLlupqtlsol       DGNLLUPQTLSOL
#define DGNLlupqusol        DGNLLUPQUSOL
#define DGNLlupqtusol       DGNLLUPQTUSOL
#define DGNLlupqdlsol       DGNLLUPQDLSOL
#define DGNLlupqtdlsol      DGNLLUPQTDLSOL
#define DGNLlupqdusol       DGNLLUPQDUSOL
#define DGNLlupqtdusol      DGNLLUPQTDUSOL
#define DSPDldlp            DSPDLDLP
#define DSPDldlpsol         DSPDLDLPSOL

#define DGNLilutp           DGNLILUTP
#define DGNLilut            DGNLILUT
#define DGNLlusol           DGNLLUSOL
#define DGNLlutsol          DGNLLUTSOL
#define DGNLlulsol          DGNLLULSOL
#define DGNLlutlsol         DGNLLUTLSOL
#define DGNLluusol          DGNLLUUSOL
#define DGNLlutusol         DGNLLUTUSOL
#define DGNLludlsol         DGNLLUDLSOL
#define DGNLlutdlsol        DGNLLUTDLSOL
#define DGNLludusol         DGNLLUDUSOL
#define DGNLlutdusol        DGNLLUTDUSOL

#define DGNLiluc            DGNLILUC
#define DGNLilucsol         DGNLILUCSOL
#define DGNLiluctsol        DGNLILUCTSOL
#define DGNLilucdlsol       DGNLILUCDLSOL
#define DGNLiluctdlsol      DGNLILUCTDLSOL
#define DGNLilucdusol       DGNLILUCDUSOL
#define DGNLiluctdusol      DGNLILUCTDUSOL
#define DGNLiluclsol        DGNLILUCLSOL
#define DGNLiluctlsol       DGNLILUCTLSOL
#define DGNLilucusol        DGNLILUCUSOL
#define DGNLiluctusol       DGNLILUCTUSOL

#define DGNLpilucdlsol      DGNLPILUCDLSOL
#define DGNLpiluctdlsol     DGNLPILUCTDLSOL
#define DGNLpilucdusol      DGNLPILUCDUSOL
#define DGNLpiluctdusol     DGNLPILUCTDUSOL
#define DGNLpiluclsol       DGNLPILUCLSOL
#define DGNLpiluctlsol      DGNLPILUCTLSOL
#define DGNLpilucusol       DGNLPILUCUSOL
#define DGNLpiluctusol      DGNLPILUCTUSOL

#define DSYMildlc           DSYMILDLC
#define DSYMildlcsol        DSYMILDLCSOL
#define DSSMildlc           DSSMILDLC
#define DSSMildlcsol        DSSMILDLCSOL
#define DGNLpiluc           DGNLPILUC
#define DGNLmpiluc          DGNLMPILUC
#define DSPDpiluc           DSPDPILUC
#define DSPDmpiluc          DSPDMPILUC

#define DSYMiluc            DSYMILUC
#define DSYMpiluc           DSYMPILUC
#define DSYMmpiluc          DSYMMPILUC
#define DSYMpilucsol        DSYMPILUCSOL


#define Dpcg                DPCG
#define Dbcg                DBCG
#define DSYMbcg             DSYMBCG
#define DSYMqmr             DSYMQMR
#define Dgmres              DGMRES
#define Dfgmres             DFGMRES
#define Ddistdot            DDISTDOT


#define Droscal             DROSCAL
#define Dcoscal             DCOSCAL
#define Drowscale           DROWSCALE
#define Dcolscale           DCOLSCALE
#define DSPDscale           DSPDSCALE
#define DSYMscale           DSYMSCALE
#define Dcsrcsc             DCSRCSC
#define Dqqsort             DQQSORT
#define Dqqsort2            DQQSORT2
#define Dqqsorts            DQQSORTS
#define Dqqsorts2           DQQSORTS2

#define Dreadmtc            DREADMTC
#define Dwritemtc           DWRITEMTC
#define Dreadvectors        DREADVECTORS
#define Dwritevectors       DWRITEVECTORS



#define ssymilupack         SSYMILUPACK
#define ssymilupackfac      SSYMILUPACKFAC
#define ssymilupacksol      SSYMILUPACKSOL
#define ssymilupackdel      SSYMILUPACKDEL

#define SGNLlupq            SGNLLUPQ
#define SGNLlupqsol         SGNLLUPQSOL
#define SGNLlupqtsol        SGNLLUPQTSOL
#define SGNLlupqlsol        SGNLLUPQLSOL
#define SGNLlupqtlsol       SGNLLUPQTLSOL
#define SGNLlupqusol        SGNLLUPQUSOL
#define SGNLlupqtusol       SGNLLUPQTUSOL
#define SGNLlupqdlsol       SGNLLUPQDLSOL
#define SGNLlupqtdlsol      SGNLLUPQTDLSOL
#define SGNLlupqdusol       SGNLLUPQDUSOL
#define SGNLlupqtdusol      SGNLLUPQTDUSOL
#define SSPDldlp            SSPDLDLP
#define SSPDldlpsol         SSPDLDLPSOL

#define SGNLilutp           SGNLILUTP
#define SGNLilut            SGNLILUT
#define SGNLlusol           SGNLLUSOL
#define SGNLlutsol          SGNLLUTSOL
#define SGNLlulsol          SGNLLULSOL
#define SGNLlutlsol         SGNLLUTLSOL
#define SGNLluusol          SGNLLUUSOL
#define SGNLlutusol         SGNLLUTUSOL
#define SGNLludlsol         SGNLLUDLSOL
#define SGNLlutdlsol        SGNLLUTDLSOL
#define SGNLludusol         SGNLLUDUSOL
#define SGNLlutdusol        SGNLLUTDUSOL

#define SGNLiluc            SGNLILUC
#define SGNLilucsol         SGNLILUCSOL
#define SGNLiluctsol        SGNLILUCTSOL
#define SGNLilucdlsol       SGNLILUCDLSOL
#define SGNLiluctdlsol      SGNLILUCTDLSOL
#define SGNLilucdusol       SGNLILUCDUSOL
#define SGNLiluctdusol      SGNLILUCTDUSOL
#define SGNLiluclsol        SGNLILUCLSOL
#define SGNLiluctlsol       SGNLILUCTLSOL
#define SGNLilucusol        SGNLILUCUSOL
#define SGNLiluctusol       SGNLILUCTUSOL

#define SGNLpilucdlsol      SGNLPILUCDLSOL
#define SGNLpiluctdlsol     SGNLPILUCTDLSOL
#define SGNLpilucdusol      SGNLPILUCDUSOL
#define SGNLpiluctdusol     SGNLPILUCTDUSOL
#define SGNLpiluclsol       SGNLPILUCLSOL
#define SGNLpiluctlsol      SGNLPILUCTLSOL
#define SGNLpilucusol       SGNLPILUCUSOL
#define SGNLpiluctusol      SGNLPILUCTUSOL

#define SSYMildlc           SSYMILDLC
#define SSYMildlcsol        SSYMILDLCSOL
#define SSSMildlc           SSSMILDLC
#define SSSMildlcsol        SSSMILDLCSOL
#define SGNLpiluc           SGNLPILUC
#define SGNLmpiluc          SGNLMPILUC
#define SSPDpiluc           SSPDPILUC
#define SSPDmpiluc          SSPDMPILUC
#define SSYMpiluc           SSYMPILUC
#define SSYMiluc            SSYMILUC
#define SSYMmpiluc          SSYMMPILUC
#define SSYMpilucsol        SSYMPILUCSOL


#define Spcg                SPCG
#define Sbcg                SBCG
#define SSYMbcg             SSYMBCG
#define SSYMqmr             SSYMQMR
#define Sgmres              SGMRES
#define Sfgmres             SFGMRES
#define Sdistdot            SDISTDOT


#define Sroscal             SROSCAL
#define Scoscal             SCOSCAL
#define Srowscale           SROWSCALE
#define Scolscale           SCOLSCALE
#define SSPDscale           SSPDSCALE
#define SSYMscale           SSYMSCALE
#define Scsrcsc             SCSRCSC
#define Sqqsort             SQQSORT
#define Sqqsort2            SQQSORT2
#define Sqqsorts            SQQSORTS
#define Sqqsorts2           SQQSORTS2

#define Sreadmtc            SREADMTC
#define Swritemtc           SWRITEMTC
#define Sreadvectors        SREADVECTORS
#define Swritevectors       SWRITEVECTORS



#define zsymilupack         ZSYMILUPACK
#define zsymilupackfac      ZSYMILUPACKFAC
#define zsymilupacksol      ZSYMILUPACKSOL
#define zsymilupackdel      ZSYMILUPACKDEL
#define zherilupack         ZHERILUPACK
#define zherilupackfac      ZHERILUPACKFAC
#define zherilupacksol      ZHERILUPACKSOL
#define zherilupackdel      ZHERILUPACKDEL

#define ZGNLlupq            ZGNLLUPQ
#define ZGNLlupqsol         ZGNLLUPQSOL
#define ZGNLlupqtsol        ZGNLLUPQTSOL
#define ZGNLlupqhsol        ZGNLLUPQHSOL
#define ZGNLlupqlsol        ZGNLLUPQLSOL
#define ZGNLlupqtlsol       ZGNLLUPQTLSOL
#define ZGNLlupqusol        ZGNLLUPQUSOL
#define ZGNLlupqtusol       ZGNLLUPQTUSOL
#define ZGNLlupqdlsol       ZGNLLUPQDLSOL
#define ZGNLlupqtdlsol      ZGNLLUPQTDLSOL
#define ZGNLlupqdusol       ZGNLLUPQDUSOL
#define ZGNLlupqtdusol      ZGNLLUPQTDUSOL
#define ZHPDldlp            ZHPDLDLP
#define ZHPDldlpsol         ZHPDLDLPSOL


#define ZGNLilutp           ZGNLILUTP
#define ZGNLilut            ZGNLILUT
#define ZGNLlusol           ZGNLLUSOL
#define ZGNLlutsol          ZGNLLUTSOL
#define ZGNLlulsol          ZGNLLULSOL
#define ZGNLlutlsol         ZGNLLUTLSOL
#define ZGNLluusol          ZGNLLUUSOL
#define ZGNLlutusol         ZGNLLUTUSOL
#define ZGNLludlsol         ZGNLLUDLSOL
#define ZGNLlutdlsol        ZGNLLUTDLSOL
#define ZGNLludusol         ZGNLLUDUSOL
#define ZGNLlutdusol        ZGNLLUTDUSOL

#define ZGNLiluc            ZGNLILUC
#define ZGNLilucsol         ZGNLILUCSOL
#define ZGNLiluctsol        ZGNLILUCTSOL
#define ZGNLilucdlsol       ZGNLILUCDLSOL
#define ZGNLiluctdlsol      ZGNLILUCTDLSOL
#define ZGNLilucdusol       ZGNLILUCDUSOL
#define ZGNLiluctdusol      ZGNLILUCTDUSOL
#define ZGNLiluclsol        ZGNLILUCLSOL
#define ZGNLiluctlsol       ZGNLILUCTLSOL
#define ZGNLilucusol        ZGNLILUCUSOL
#define ZGNLiluctusol       ZGNLILUCTUSOL

#define ZGNLpilucdlsol      ZGNLPILUCDLSOL
#define ZGNLpiluctdlsol     ZGNLPILUCTDLSOL
#define ZGNLpilucdusol      ZGNLPILUCDUSOL
#define ZGNLpiluctdusol     ZGNLPILUCTDUSOL
#define ZGNLpiluclsol       ZGNLPILUCLSOL
#define ZGNLpiluctlsol      ZGNLPILUCTLSOL
#define ZGNLpilucusol       ZGNLPILUCUSOL
#define ZGNLpiluctusol      ZGNLPILUCTUSOL

#define ZHERildlc           ZHERILDLC
#define ZHERildlcsol        ZHERILDLCSOL
#define ZSYMildlc           ZSYMILDLC
#define ZSYMildlcsol        ZSYMILDLCSOL
#define ZSHRildlc           ZSHRILDLC
#define ZSHRildlcsol        ZSHRILDLCSOL
#define ZSSMildlc           ZSSMILDLC
#define ZSSMildlcsol        ZSSMILDLCSOL
#define ZGNLpiluc           ZGNLPILUC
#define ZGNLmpiluc          ZGNLMPILUC
#define ZHPDpiluc           ZHPDPILUC
#define ZHPDmpiluc          ZHPDMPILUC
#define ZSYMpiluc           ZSYMPILUC
#define ZSYMiluc            ZSYMILUC
#define ZSYMmpiluc          ZSYMMPILUC
#define ZSYMpilucsol        ZSYMPILUCSOL
#define ZHERpiluc           ZHERPILUC
#define ZHERiluc            ZHERILUC
#define ZHERmpiluc          ZHERMPILUC
#define ZHERpilucsol        ZHERPILUCSOL


#define Zpcg                ZPCG
#define Zbcg                ZBCG
#define ZSYMbcg             ZSYMBCG
#define ZHERbcg             ZHERBCG
#define ZSYMqmr             ZSYMQMR
#define ZHERqmr             ZHERQMR
#define Zgmres              ZGMRES
#define Zfgmres             ZFGMRES
#define Zdistdotc           ZDISTDOTC
#define Zdistdotu           ZDISTDOTU


#define Zroscal             ZROSCAL
#define Zcoscal             ZCOSCAL
#define Zrowscale           ZROWSCALE
#define Zcolscale           ZCOLSCALE
#define ZHPDscale           ZHPDSCALE
#define ZSYMscale           ZSYMSCALE
#define ZHERscale           ZHERSCALE
#define Zcsrcsc             ZCSRCSC
#define Zqqsort             ZQQSORT
#define Zqqsort2            ZQQSORT2
#define Zqqsorts            ZQQSORTS
#define Zqqsorts2           ZQQSORTS2


#define Zreadmtc            ZREADMTC
#define Zwritemtc           ZWRITEMTC
#define Zreadvectors        ZREADVECTORS
#define Zwritevectors       ZWRITEVECTORS



#define csymilupack         CSYMILUPACK
#define csymilupackfac      CSYMILUPACKFAC
#define csymilupacksol      CSYMILUPACKSOL
#define csymilupackdel      CSYMILUPACKDEL
#define cherilupack         CHERILUPACK
#define cherilupackfac      CHERILUPACKFAC
#define cherilupacksol      CHERILUPACKSOL
#define cherilupackdel      CHERILUPACKDEL

#define CGNLlupq            CGNLLUPQ
#define CGNLlupqsol         CGNLLUPQSOL
#define CGNLlupqtsol        CGNLLUPQTSOL
#define CGNLlupqhsol        CGNLLUPQHSOL
#define CGNLlupqlsol        CGNLLUPQLSOL
#define CGNLlupqtlsol       CGNLLUPQTLSOL
#define CGNLlupqusol        CGNLLUPQUSOL
#define CGNLlupqtusol       CGNLLUPQTUSOL
#define CGNLlupqdlsol       CGNLLUPQDLSOL
#define CGNLlupqtdlsol      CGNLLUPQTDLSOL
#define CGNLlupqdusol       CGNLLUPQDUSOL
#define CGNLlupqtdusol      CGNLLUPQTDUSOL
#define CHPDldlp            CHPDLDLP
#define CHPDldlpsol         CHPDLDLPSOL


#define CGNLilutp           CGNLILUTP
#define CGNLilut            CGNLILUT
#define CGNLlusol           CGNLLUSOL
#define CGNLlutsol          CGNLLUTSOL
#define CGNLlulsol          CGNLLULSOL
#define CGNLlutlsol         CGNLLUTLSOL
#define CGNLluusol          CGNLLUUSOL
#define CGNLlutusol         CGNLLUTUSOL
#define CGNLludlsol         CGNLLUDLSOL
#define CGNLlutdlsol        CGNLLUTDLSOL
#define CGNLludusol         CGNLLUDUSOL
#define CGNLlutdusol        CGNLLUTDUSOL

#define CGNLiluc            CGNLILUC
#define CGNLilucsol         CGNLILUCSOL
#define CGNLiluctsol        CGNLILUCTSOL
#define CGNLilucdlsol       CGNLILUCDLSOL
#define CGNLiluctdlsol      CGNLILUCTDLSOL
#define CGNLilucdusol       CGNLILUCDUSOL
#define CGNLiluctdusol      CGNLILUCTDUSOL
#define CGNLiluclsol        CGNLILUCLSOL
#define CGNLiluctlsol       CGNLILUCTLSOL
#define CGNLilucusol        CGNLILUCUSOL
#define CGNLiluctusol       CGNLILUCTUSOL