qmrpack.h

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

#ifndef _QMRPACK_H
#define _QMRPACK_H

#include <namesqmrpack.h>

/* Common Block Declarations */
extern struct {
    real norma;
} cscplx;
extern struct {
    real norma;
} cslalx;
extern struct {
    real norma;
} csqmrx;
extern struct {
    real norma;
} cucplx;
extern struct {
    real norma;
} culalx;
extern struct {
    real norma;
} cuqmrx;

extern struct {
    doublereal norma;
} dscplx;
extern struct {
    doublereal norma;
} dslalx;
extern struct {
    doublereal norma;
} dsqmrx;
extern struct {
    doublereal norma;
} ducplx;
extern struct {
    doublereal norma;
} dulalx;
extern struct {
    doublereal norma;
} duqmrx;

extern struct {
    real norma;
} sscplx;
extern struct {
    real norma;
} sslalx;
extern struct {
    real norma;
} ssqmrx;
extern struct {
    real norma;
} sucplx;
extern struct {
    real norma;
} sulalx;
extern struct {
    real norma;
} suqmrx;

extern struct {
    doublereal norma;
} zscplx;
extern struct {
    doublereal norma;
} zslalx;
extern struct {
    doublereal norma;
} zsqmrx;
extern struct {
    doublereal norma;
} zucplx;
extern struct {
    doublereal norma;
} zulalx;
extern struct {
    doublereal norma;
} zuqmrx;



void cscpl(integer *,integer *,integer *,integer *,integer *,integer *,integer *,
	   real *,complex *,real *,integer *,integer *, complex *,real *,integer *),
     cscpx(integer *,integer *,integer *,complex *,real *,integer *),
     cslal(integer *,integer *,integer *,integer *,integer *,integer *,real *,
	   complex *,real *,integer *,integer *,real *,complex *,integer *),
     csqbg(integer *,integer *,integer *,complex *,real *,integer *),
     csqmr(integer *,integer *,integer *,integer *,integer *,real *,complex *,real *, 
	   integer *,integer *,complex *,real *,integer *),
     csqmx(integer *,integer *,integer *,complex *,real *,integer *),
     cucpl(integer *,integer *,integer *,integer *,integer *,integer *,integer *,real *,
	   complex *,real *,integer *,integer *,complex *,real *,integer *),
     cucpx(integer *,integer *,integer *,complex *,real *,integer *),
     culal(integer *,integer *,integer *,integer *,integer *,integer *,real *,complex *, 
	   real *,integer *,integer *,real *,complex *,integer *),
     cuqbg(integer *,integer *,integer *,complex *,real *,integer *),
     cuqmr(integer *,integer *,integer *,integer *,integer *,real *,complex *,real *, 
	   integer *,integer *,complex *,real *,integer *),
     cuqmx(integer *,integer *,integer *,complex *,real *,integer *),
     cutfx(integer *,integer *,integer *,complex *,real *,integer *),

     dscpl(integer *,integer *,integer *,integer *,integer *,integer *,integer *,
	   doublereal *,doublereal *,integer *,integer *,doublereal *,doublereal *,
	   integer *),
     dscpx(integer *,integer *,integer *,doublereal *,doublereal *,integer *),
     dslal(integer *,integer *,integer *,integer *,integer *,integer *,doublereal *, 
	   doublereal *,integer *,integer *,doublereal *,doublereal *,integer *),
     dsqbg(integer *,integer *,integer *,doublereal *,doublereal *,integer *),
     dsqmr(integer *,integer *,integer *,integer *,integer *,doublereal *,doublereal *, 
	   integer *,integer *,doublereal *,doublereal *,integer *),
     dsqmx(integer *,integer *,integer *,doublereal *,doublereal *,integer *),
     ducpl(integer *,integer *,integer *,integer *,integer *,integer *,integer *,
	   doublereal *,doublereal *,integer *,integer *,doublereal *,doublereal *,
	   integer *),
     ducpx(integer *,integer *,integer *,doublereal *,doublereal *,integer *),
     dulal(integer *,integer *,integer *,integer *,integer *,integer *,doublereal *, 
	   doublereal *,integer *,integer *,doublereal *,doublereal *,integer *),
     duqbg(integer *,integer *,integer *,doublereal *,doublereal *,integer *),
     duqmr(integer *,integer *,integer *,integer *,integer *,doublereal *,doublereal *, 
	   integer *,integer *,doublereal *,doublereal *,integer *),
     duqmx(integer *,integer *,integer *,doublereal *,doublereal *,integer *),
     dutfx(integer *,integer *,integer *,doublereal *,doublereal *,integer *),

     sscpl(integer *,integer *,integer *,integer *,integer *,integer *,integer *,
	   real *,real *,integer *,integer *,real *,real *,integer *),
     sscpx(integer *,integer *,integer *,real *,real *,integer *),
     sslal(integer *,integer *,integer *,integer *,integer *,integer *,real *,real *, 
	   integer *,integer *,real *,real *,integer *),
     ssqbg(integer *,integer *,integer *,real *,real *,integer *),
     ssqmr(integer *,integer *,integer *,integer *,integer *,real *,real *,integer *, 
	   integer *,real *,real *,integer *),
     ssqmx(integer *,integer *,integer *,real *,real *,integer *),
     sucpl(integer *,integer *,integer *,integer *,integer *,integer *,integer *, 
	   real *,real *,integer *,integer *,real *,real *,integer *),
     sucpx(integer *,integer *,integer *,real *,real *,integer *),
     sulal(integer *,integer *,integer *,integer *,integer *,integer *,real *,real *, 
	   integer *,integer *,real *,real *,integer *),
     suqbg(integer *,integer *,integer *,real *,real *,integer *),
     suqmr(integer *,integer *,integer *,integer *,integer *,real *,real *,integer *, 
	   integer *,real *,real *,integer *),
     suqmx(integer *,integer *,integer *,real *,real *,integer *),
     sutfx(integer *,integer *,integer *,real *,real *,integer *),

     zscpl(integer *,integer *,integer *,integer *,integer *,integer *,integer *,
	   doublereal *,doublecomplex *,doublereal *,integer *,integer *,
	   doublecomplex *,doublereal *,integer *),
     zscpx(integer *,integer *,integer *,doublecomplex *,doublereal *,integer *),
     zslal(integer *,integer *,integer *,integer *,integer *,integer *,doublereal *,
	   doublecomplex *,doublereal *,integer *,integer *,doublereal *,
	   doublecomplex *,integer *),
     zsqbg(integer *,integer *,integer *,doublecomplex *,doublereal *,integer *),
     zsqmr(integer *,integer *,integer *,integer *,integer *,doublereal *,
	   doublecomplex *,doublereal *,integer *,integer *,doublecomplex *,
	   doublereal *,integer *),
     zsqmx(integer *,integer *,integer *,doublecomplex *,doublereal *,integer *),
     zucpl(integer *,integer *,integer *,integer *,integer *,integer *,integer *,
	   doublereal *,doublecomplex *,doublereal *,integer *,integer *,
	   doublecomplex *,doublereal *,integer *),
     zucpx(integer *,integer *,integer *,doublecomplex *,doublereal *,integer *),
     zulal(integer *,integer *,integer *,integer *,integer *,integer *,doublereal *,
	   doublecomplex *,doublereal *,integer *,integer *,doublereal *,
	   doublecomplex *,integer *),
     zuqbg(integer *,integer *,integer *,doublecomplex *,doublereal *,integer *),
     zuqmr(integer *,integer *,integer *,integer *,integer *,doublereal *,
	   doublecomplex *,doublereal *,integer *,integer *,doublecomplex *,
	   doublereal *,integer *),
     zuqmx(integer *,integer *,integer *,doublecomplex *,doublereal *,integer *),
     zutfx(integer *,integer *,integer *,doublecomplex *,doublereal *,integer *);

#endif /* _QMRPACK_H */