namesqmrpack.h

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

#ifndef _NAMESQMRPACK_H
#define _NAMESQMRPACK_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    cscpl           CSCPL
#define    cscplx          CSCPLX
#define    cslal           CSLAL
#define    cslalx          CSLALX
#define    cscpx           CSCPX
#define    csqbg           CSQBG
#define    csqmx           CSQMX
#define    csqmr           CSQMR
#define    csqmrx          CSQMRX
#define    cucpl           CUCPL
#define    cucplx          CUCPLX
#define    cucpx           CUCPX
#define    culal           CULAL
#define    culalx          CULALX
#define    cuqbg           CUQBG
#define    cuqmx           CUQMX
#define    cuqmr           CUQMR
#define    cuqmrx          CUQMRX
#define    cutfx           CUTFX

#define    dscpl           DSCPL
#define    dscplx          DSCPLX
#define    dslal           DSLAL
#define    dslalx          DSLALX
#define    dscpx           DSCPX
#define    dsqbg           DSQBG
#define    dsqmx           DSQMX
#define    dsqmr           DSQMR
#define    dsqmrx          DSQMRX
#define    ducpl           DUCPL
#define    ducplx          DUCPLX
#define    ducpx           DUCPX
#define    dulal           DULAL
#define    dulalx          DULALX
#define    duqbg           DUQBG
#define    duqmx           DUQMX
#define    duqmr           DUQMR
#define    duqmrx          DUQMRX
#define    dutfx           DUTFX

#define    sscpl           SSCPL
#define    sscplx          SSCPLX
#define    sslal           SSLAL
#define    sslalx          SSLALX
#define    sscpx           SSCPX
#define    ssqbg           SSQBG
#define    ssqmx           SSQMX
#define    ssqmr           SSQMR
#define    ssqmrx          SSQMRX
#define    sucpl           SUCPL
#define    sucplx          SUCPLX
#define    sucpx           SUCPX
#define    sulal           SULAL
#define    sulalx          SULALX
#define    suqbg           SUQBG
#define    suqmx           SUQMX
#define    suqmr           SUQMR
#define    suqmrx          SUQMRX
#define    sutfx           SUTFX

#define    zscpl           ZSCPL
#define    zscplx          ZSCPLX
#define    zslal           ZSLAL
#define    zslalx          ZSLALX
#define    zscpx           ZSCPX
#define    zsqbg           ZSQBG
#define    zsqmx           ZSQMX
#define    zsqmr           ZSQMR
#define    zsqmrx          ZSQMRX
#define    zucpl           ZUCPL
#define    zucplx          ZUCPLX
#define    zucpx           ZUCPX
#define    zulal           ZULAL
#define    zulalx          ZULALX
#define    zuqbg           ZUQBG
#define    zuqmx           ZUQMX
#define    zuqmr           ZUQMR
#define    zuqmrx          ZUQMRX
#define    zutfx           ZUTFX


/* no capital letters */
#elif defined __UNDERSCORE__ && !defined __CAPS__ && !defined __2UNDERSCORES__
#define    cscpl           cscpl_
#define    cscplx          cscplx_
#define    cslal           cslal_
#define    cslalx          cslalx_
#define    cscpx           cscpx_
#define    csqbg           csqbg_
#define    csqmx           csqmx_
#define    csqmr           csqmr_
#define    csqmrx          csqmrx_
#define    cucpl           cucpl_
#define    cucplx          cucplx_
#define    cucpx           cucpx_
#define    culal           culal_
#define    culalx          culalx_
#define    cuqbg           cuqbg_
#define    cuqmx           cuqmx_
#define    cuqmr           cuqmr_
#define    cuqmrx          cuqmrx_
#define    cutfx           cutfx_

#define    dscpl           dscpl_
#define    dscplx          dscplx_
#define    dslal           dslal_
#define    dslalx          dslalx_
#define    dscpx           dscpx_
#define    dsqbg           dsqbg_
#define    dsqmx           dsqmx_
#define    dsqmr           dsqmr_
#define    dsqmrx          dsqmrx_
#define    ducpl           ducpl_
#define    ducplx          ducplx_
#define    ducpx           ducpx_
#define    dulal           dulal_
#define    dulalx          dulalx_
#define    duqbg           duqbg_
#define    duqmx           duqmx_
#define    duqmr           duqmr_
#define    duqmrx          duqmrx_
#define    dutfx           dutfx_

#define    sscpl           sscpl_
#define    sscplx          sscplx_
#define    sslal           sslal_
#define    sslalx          sslalx_
#define    sscpx           sscpx_
#define    ssqbg           ssqbg_
#define    ssqmx           ssqmx_
#define    ssqmr           ssqmr_
#define    ssqmrx          ssqmrx_
#define    sucpl           sucpl_
#define    sucplx          sucplx_
#define    sucpx           sucpx_
#define    sulal           sulal_
#define    sulalx          sulalx_
#define    suqbg           suqbg_
#define    suqmx           suqmx_
#define    suqmr           suqmr_
#define    suqmrx          suqmrx_
#define    sutfx           sutfx_

#define    zscpl           zscpl_
#define    zscplx          zscplx_
#define    zslal           zslal_
#define    zslalx          zslalx_
#define    zscpx           zscpx_
#define    zsqbg           zsqbg_
#define    zsqmx           zsqmx_
#define    zsqmr           zsqmr_
#define    zsqmrx          zsqmrx_
#define    zucpl           zucpl_
#define    zucplx          zucplx_
#define    zucpx           zucpx_
#define    zulal           zulal_
#define    zulalx          zulalx_
#define    zuqbg           zuqbg_
#define    zuqmx           zuqmx_
#define    zuqmr           zuqmr_
#define    zuqmrx          zuqmrx_
#define    zutfx           zutfx_


/* both are defined */
#elif defined __CAPS__ && defined __UNDERSCORE__ && !defined __2UNDERSCORES__
#define    cscpl           CSCPL_
#define    cscplx          CSCPLX_
#define    cslal           CSLAL_
#define    cslalx          CSLALX_
#define    csqbg           CSQBG_
#define    cscpx           CSCPX_
#define    csqmx           CSQMX_
#define    csqmr           CSQMR_
#define    csqmrx          CSQMRX_
#define    cucpl           CUCPL_
#define    cucplx          CUCPLX_
#define    cucpx           CUCPX_
#define    culal           CULAL_
#define    culalx          CULALX_
#define    cuqbg           CUQBG_
#define    cuqmx           CUQMX_
#define    cuqmr           CUQMR_
#define    cuqmrx          CUQMRX_
#define    cutfx           CUTFX_

#define    dscpl           DSCPL_
#define    dscplx          DSCPLX_
#define    dslal           DSLAL_
#define    dslalx          DSLALX_
#define    dsqbg           DSQBG_
#define    dscpx           DSCPX_
#define    dsqmx           DSQMX_
#define    dsqmr           DSQMR_
#define    dsqmrx          DSQMRX_
#define    ducpl           DUCPL_
#define    ducplx          DUCPLX_
#define    ducpx           DUCPX_
#define    dulal           DULAL_
#define    dulalx          DULALX_
#define    duqbg           DUQBG_
#define    duqmx           DUQMX_
#define    duqmr           DUQMR_
#define    duqmrx          DUQMRX_
#define    dutfx           DUTFX_

#define    sscpl           SSCPL_
#define    sscplx          SSCPLX_
#define    sslal           SSLAL_
#define    sslalx          SSLALX_
#define    ssqbg           SSQBG_
#define    sscpx           SSCPX_
#define    ssqmx           SSQMX_
#define    ssqmr           SSQMR_
#define    ssqmrx          SSQMRX_
#define    sucpl           SUCPL_
#define    sucplx          SUCPLX_
#define    sucpx           SUCPX_
#define    sulal           SULAL_
#define    sulalx          SULALX_
#define    suqbg           SUQBG_
#define    suqmx           SUQMX_
#define    suqmr           SUQMR_
#define    suqmrx          SUQMRX_
#define    sutfx           SUTFX_

#define    zscpl           ZSCPL_
#define    zscplx          ZSCPLX_
#define    zslal           ZSLAL_
#define    zslalx          ZSLALX_
#define    zsqbg           ZSQBG_
#define    zscpx           ZSCPX_
#define    zsqmx           ZSQMX_
#define    zsqmr           ZSQMR_
#define    zsqmrx          ZSQMRX_
#define    zucpl           ZUCPL_
#define    zucplx          ZUCPLX_
#define    zucpx           ZUCPX_
#define    zulal           ZULAL_
#define    zulalx          ZULALX_
#define    zuqbg           ZUQBG_
#define    zuqmx           ZUQMX_
#define    zuqmr           ZUQMR_
#define    zuqmrx          ZUQMRX_
#define    zutfx           ZUTFX_


/* CAPS and 2 underscores are defined */
#elif defined __CAPS__ && defined __2UNDERSCORES__
#define    cscpl           CSCPL__
#define    cscplx          CSCPLX__
#define    cslal           CSLAL__
#define    cslalx          CSLALX__
#define    cscpx           CSCPX__
#define    csqbg           CSQBG__
#define    csqmx           CSQMX__
#define    csqmr           CSQMR__
#define    csqmrx          CSQMRX__
#define    cucpl           CUCPL__
#define    cucplx          CUCPLX__
#define    cucpx           CUCPX__
#define    culal           CULAL__
#define    culalx          CULALX__
#define    cuqbg           CUQBG__
#define    cuqmx           CUQMX__
#define    cuqmr           CUQMR__
#define    cuqmrx          CUQMRX__
#define    cutfx           CUTFX__

#define    dscpl           DSCPL__
#define    dscplx          DSCPLX__
#define    dslal           DSLAL__
#define    dslalx          DSLALX__
#define    dscpx           DSCPX__
#define    dsqbg           DSQBG__
#define    dsqmx           DSQMX__
#define    dsqmr           DSQMR__
#define    dsqmrx          DSQMRX__
#define    ducpl           DUCPL__
#define    ducplx          DUCPLX__
#define    ducpx           DUCPX__
#define    dulal           DULAL__
#define    dulalx          DULALX__
#define    duqbg           DUQBG__
#define    duqmx           DUQMX__
#define    duqmr           DUQMR__
#define    duqmrx          DUQMRX__
#define    dutfx           DUTFX__

#define    sscpl           SSCPL__
#define    sscplx          SSCPLX__
#define    sslal           SSLAL__
#define    sslalx          SSLALX__
#define    sscpx           SSCPX__
#define    ssqbg           SSQBG__
#define    ssqmx           SSQMX__
#define    ssqmr           SSQMR__
#define    ssqmrx          SSQMRX__
#define    sucpl           SUCPL__
#define    sucplx          SUCPLX__
#define    sucpx           SUCPX__
#define    sulal           SULAL__
#define    sulalx          SULALX__
#define    suqbg           SUQBG__
#define    suqmx           SUQMX__
#define    suqmr           SUQMR__
#define    suqmrx          SUQMRX__
#define    sutfx           SUTFX__

#define    zscpl           ZSCPL__
#define    zscplx          ZSCPLX__
#define    zslal           ZSLAL__
#define    zslalx          ZSLALX__
#define    zscpx           ZSCPX__
#define    zsqbg           ZSQBG__
#define    zsqmx           ZSQMX__
#define    zsqmr           ZSQMR__
#define    zsqmrx          ZSQMRX__
#define    zucpl           ZUCPL__
#define    zucplx          ZUCPLX__
#define    zucpx           ZUCPX__
#define    zulal           ZULAL__
#define    zulalx          ZULALX__
#define    zuqbg           ZUQBG__
#define    zuqmx           ZUQMX__
#define    zuqmr           ZUQMR__
#define    zuqmrx          ZUQMRX__
#define    zutfx           ZUTFX__


/* no capital letters but 2 underscores */
#elif defined __2UNDERSCORES__ && !defined __CAPS__
#define    cscpl           cscpl__
#define    cscplx          cscplx__
#define    cslal           cslal__
#define    cslalx          cslalx__
#define    cscpx           cscpx__
#define    csqbg           csqbg__
#define    csqmx           csqmx__
#define    csqmr           csqmr__
#define    csqmrx          csqmrx__
#define    cucpl           cucpl__
#define    cucplx          cucplx__
#define    cucpx           cucpx__
#define    culal           culal__
#define    culalx          culalx__
#define    cuqbg           cuqbg__
#define    cuqmx           cuqmx__
#define    cuqmr           cuqmr__
#define    cuqmrx          cuqmrx__
#define    cutfx           cutfx__

#define    dscpl           dscpl__
#define    dscplx          dscplx__
#define    dslal           dslal__
#define    dslalx          dslalx__
#define    dscpx           dscpx__
#define    dsqbg           dsqbg__
#define    dsqmx           dsqmx__
#define    dsqmr           dsqmr__
#define    dsqmrx          dsqmrx__
#define    ducpl           ducpl__
#define    ducplx          ducplx__
#define    ducpx           ducpx__
#define    dulal           dulal__
#define    dulalx          dulalx__
#define    duqbg           duqbg__
#define    duqmx           duqmx__
#define    duqmr           duqmr__
#define    duqmrx          duqmrx__
#define    dutfx           dutfx__

#define    sscpl           sscpl__
#define    sscplx          sscplx__
#define    sslal           sslal__
#define    sslalx          sslalx__
#define    sscpx           sscpx__
#define    ssqbg           ssqbg__
#define    ssqmx           ssqmx__
#define    ssqmr           ssqmr__
#define    ssqmrx          ssqmrx__
#define    sucpl           sucpl__
#define    sucplx          sucplx__
#define    sucpx           sucpx__
#define    sulal           sulal__
#define    sulalx          sulalx__
#define    suqbg           suqbg__
#define    suqmx           suqmx__
#define    suqmr           suqmr__
#define    suqmrx          suqmrx__
#define    sutfx           sutfx__

#define    zscpl           zscpl__
#define    zscplx          zscplx__
#define    zslal           zslal__
#define    zslalx          zslalx__
#define    zscpx           zscpx__
#define    zsqbg           zsqbg__
#define    zsqmx           zsqmx__
#define    zsqmr           zsqmr__
#define    zsqmrx          zsqmrx__
#define    zucpl           zucpl__
#define    zucplx          zucplx__
#define    zucpx           zucpx__
#define    zulal           zulal__
#define    zulalx          zulalx__
#define    zuqbg           zuqbg__
#define    zuqmx           zuqmx__
#define    zuqmr           zuqmr__
#define    zuqmrx          zuqmrx__
#define    zutfx           zutfx__


#endif /* defined __CAPS__ && ... */



#endif /* _NAMESQMRPACK_H */