5#include <R_ext/Complex.h>
7void iswap2(
size_t,
int *,
size_t,
int *,
size_t);
8void dswap2(
size_t,
double *,
size_t,
double *,
size_t);
9void zswap2(
size_t, Rcomplex *,
size_t, Rcomplex *,
size_t);
11void iswap1(
size_t,
int *,
size_t,
size_t,
int,
int *,
size_t,
size_t,
int);
12void dswap1(
size_t,
double *,
size_t,
size_t,
int,
double *,
size_t,
size_t,
int);
13void zswap1(
size_t, Rcomplex *,
size_t,
size_t,
int, Rcomplex *,
size_t,
size_t,
int);
15void icopy2(
size_t,
int *,
size_t,
const int *,
size_t);
16void dcopy2(
size_t,
double *,
size_t,
const double *,
size_t);
17void zcopy2(
size_t, Rcomplex *,
size_t,
const Rcomplex *,
size_t);
19void icopy1(
size_t,
int *,
size_t,
size_t,
int,
const int *,
size_t,
size_t,
int);
20void dcopy1(
size_t,
double *,
size_t,
size_t,
int,
const double *,
size_t,
size_t,
int);
21void zcopy1(
size_t, Rcomplex *,
size_t,
size_t,
int,
const Rcomplex *,
size_t,
size_t,
int);
23void irowperm2(
int *,
const int *,
int,
int,
const int *,
int,
int);
24void drowperm2(
double *,
const double *,
int,
int,
const int *,
int,
int);
25void zrowperm2(Rcomplex *,
const Rcomplex *,
int,
int,
const int *,
int,
int);
27void isymperm2(
int *,
const int *,
int,
char,
const int *,
int,
int);
28void dsymperm2(
double *,
const double *,
int,
char,
const int *,
int,
int);
29void zsymperm2(Rcomplex *,
const Rcomplex *,
int,
char,
const int *,
int,
int);
31void isymperm1(
int *,
const int *,
int,
char,
const int *,
int,
int);
32void dsymperm1(
double *,
const double *,
int,
char,
const int *,
int,
int);
33void zsymperm1(Rcomplex *,
const Rcomplex *,
int,
char,
const int *,
int,
int);
35void ipack2(
int *,
const int *,
size_t,
char,
char,
char);
36void dpack2(
double *,
const double *,
size_t,
char,
char,
char);
37void zpack2(Rcomplex *,
const Rcomplex *,
size_t,
char,
char,
char);
39void ipack1(
int *,
const int *,
size_t,
char,
char,
char);
40void dpack1(
double *,
const double *,
size_t,
char,
char,
char);
41void zpack1(Rcomplex *,
const Rcomplex *,
size_t,
char,
char,
char);
43void iforce2(
int *,
const int *,
size_t,
char,
char,
char);
44void dforce2(
double *,
const double *,
size_t,
char,
char,
char);
45void zforce2(Rcomplex *,
const Rcomplex *,
size_t,
char,
char,
char);
47void iforce1(
int *,
const int *,
size_t,
char,
char,
char);
48void dforce1(
double *,
const double *,
size_t,
char,
char,
char);
49void zforce1(Rcomplex *,
const Rcomplex *,
size_t,
char,
char,
char);
51void itrans2(
int *,
const int *,
size_t,
size_t,
char);
52void dtrans2(
double *,
const double *,
size_t,
size_t,
char);
53void ztrans2(Rcomplex *,
const Rcomplex *,
size_t,
size_t,
char);
55void itrans1(
int *,
const int *,
size_t,
char,
char);
56void dtrans1(
double *,
const double *,
size_t,
char,
char);
57void ztrans1(Rcomplex *,
const Rcomplex *,
size_t,
char,
char);
59void iband2(
int *,
const int *,
size_t,
size_t,
size_t,
size_t);
60void dband2(
double *,
const double *,
size_t,
size_t,
size_t,
size_t);
61void zband2(Rcomplex *,
const Rcomplex *,
size_t,
size_t,
size_t,
size_t);
63void iband1(
int *,
const int *,
size_t,
char,
size_t,
size_t);
64void dband1(
double *,
const double *,
size_t,
char,
size_t,
size_t);
65void zband1(Rcomplex *,
const Rcomplex *,
size_t,
char,
size_t,
size_t);
67int ntest2(
const int *,
size_t,
char,
char,
char);
68int ltest2(
const int *,
size_t,
char,
char,
char);
69int itest2(
const int *,
size_t,
char,
char,
char);
70int dtest2(
const double *,
size_t,
char,
char,
char);
71int ztest2(
const Rcomplex *,
size_t,
char,
char,
char);
73int ntest1(
const int *,
size_t,
char,
char,
char);
74int ltest1(
const int *,
size_t,
char,
char,
char);
75int itest1(
const int *,
size_t,
char,
char,
char);
76int dtest1(
const double *,
size_t,
char,
char,
char);
77int ztest1(
const Rcomplex *,
size_t,
char,
char,
char);
79void ntspaggr(
int *,
int *,
int *,
const int *,
const int *,
const int *,
int,
int,
int *,
int *,
int *);
80void ltspaggr(
int *,
int *,
int *,
const int *,
const int *,
const int *,
int,
int,
int *,
int *,
int *);
81void itspaggr(
int *,
int *,
int *,
const int *,
const int *,
const int *,
int,
int,
int *,
int *,
int *);
82void dtspaggr(
int *,
int *,
double *,
const int *,
const int *,
const double *,
int,
int,
int *,
int *,
double *);
83void ztspaggr(
int *,
int *, Rcomplex *,
const int *,
const int *,
const Rcomplex *,
int,
int,
int *,
int *, Rcomplex *);
85void ntspsort(
int *,
int *,
int *,
const int *,
const int *,
const int *,
int,
int,
int *,
int *,
int *);
86void ltspsort(
int *,
int *,
int *,
const int *,
const int *,
const int *,
int,
int,
int *,
int *,
int *);
87void itspsort(
int *,
int *,
int *,
const int *,
const int *,
const int *,
int,
int,
int *,
int *,
int *);
88void dtspsort(
int *,
int *,
double *,
const int *,
const int *,
const double *,
int,
int,
int *,
int *,
double *);
89void ztspsort(
int *,
int *, Rcomplex *,
const int *,
const int *,
const Rcomplex *,
int,
int,
int *,
int *, Rcomplex *);
91void ncspsort(
int *,
int *,
int *,
int,
int,
int *,
int *);
92void lcspsort(
int *,
int *,
int *,
int,
int,
int *,
int *);
93void icspsort(
int *,
int *,
int *,
int,
int,
int *,
int *);
94void dcspsort(
int *,
int *,
double *,
int,
int,
int *,
double *);
95void zcspsort(
int *,
int *, Rcomplex *,
int,
int,
int *, Rcomplex *);
97void ncsptrans(
int *,
int *,
int *,
const int *,
const int *,
const int *,
int,
int,
char,
int *);
98void lcsptrans(
int *,
int *,
int *,
const int *,
const int *,
const int *,
int,
int,
char,
int *);
99void icsptrans(
int *,
int *,
int *,
const int *,
const int *,
const int *,
int,
int,
char,
int *);
100void dcsptrans(
int *,
int *,
double *,
const int *,
const int *,
const double *,
int,
int,
char,
int *);
101void zcsptrans(
int *,
int *, Rcomplex *,
const int *,
const int *,
const Rcomplex *,
int,
int,
char,
int *);
103void zvreal(Rcomplex *,
const Rcomplex *,
size_t);
104void zvimag(Rcomplex *,
const Rcomplex *,
size_t);
105void zvconj(Rcomplex *,
const Rcomplex *,
size_t);
void lcsptrans(int *, int *, int *, const int *, const int *, const int *, int, int, char, int *)
void zpack2(Rcomplex *, const Rcomplex *, size_t, char, char, char)
void dcspsort(int *, int *, double *, int, int, int *, double *)
int dtest1(const double *, size_t, char, char, char)
void dswap1(size_t, double *, size_t, size_t, int, double *, size_t, size_t, int)
void zcopy2(size_t, Rcomplex *, size_t, const Rcomplex *, size_t)
int ltest1(const int *, size_t, char, char, char)
void iforce2(int *, const int *, size_t, char, char, char)
void dswap2(size_t, double *, size_t, double *, size_t)
void dcopy2(size_t, double *, size_t, const double *, size_t)
void itspsort(int *, int *, int *, const int *, const int *, const int *, int, int, int *, int *, int *)
void ztrans2(Rcomplex *, const Rcomplex *, size_t, size_t, char)
int itest1(const int *, size_t, char, char, char)
void zvimag(Rcomplex *, const Rcomplex *, size_t)
void dsymperm2(double *, const double *, int, char, const int *, int, int)
void dband2(double *, const double *, size_t, size_t, size_t, size_t)
int ntest2(const int *, size_t, char, char, char)
void zpack1(Rcomplex *, const Rcomplex *, size_t, char, char, char)
void isymperm2(int *, const int *, int, char, const int *, int, int)
int dtest2(const double *, size_t, char, char, char)
void ncspsort(int *, int *, int *, int, int, int *, int *)
void zsymperm2(Rcomplex *, const Rcomplex *, int, char, const int *, int, int)
void ltspsort(int *, int *, int *, const int *, const int *, const int *, int, int, int *, int *, int *)
void icsptrans(int *, int *, int *, const int *, const int *, const int *, int, int, char, int *)
void zband1(Rcomplex *, const Rcomplex *, size_t, char, size_t, size_t)
void zvreal(Rcomplex *, const Rcomplex *, size_t)
void ipack2(int *, const int *, size_t, char, char, char)
void zsymperm1(Rcomplex *, const Rcomplex *, int, char, const int *, int, int)
void itrans1(int *, const int *, size_t, char, char)
void icopy2(size_t, int *, size_t, const int *, size_t)
void dpack1(double *, const double *, size_t, char, char, char)
void zvconj(Rcomplex *, const Rcomplex *, size_t)
void zforce1(Rcomplex *, const Rcomplex *, size_t, char, char, char)
void dband1(double *, const double *, size_t, char, size_t, size_t)
void iband2(int *, const int *, size_t, size_t, size_t, size_t)
void drowperm2(double *, const double *, int, int, const int *, int, int)
void ntspsort(int *, int *, int *, const int *, const int *, const int *, int, int, int *, int *, int *)
void ntspaggr(int *, int *, int *, const int *, const int *, const int *, int, int, int *, int *, int *)
void iswap1(size_t, int *, size_t, size_t, int, int *, size_t, size_t, int)
void ipack1(int *, const int *, size_t, char, char, char)
void dpack2(double *, const double *, size_t, char, char, char)
void iforce1(int *, const int *, size_t, char, char, char)
void zcsptrans(int *, int *, Rcomplex *, const int *, const int *, const Rcomplex *, int, int, char, int *)
void irowperm2(int *, const int *, int, int, const int *, int, int)
void ztrans1(Rcomplex *, const Rcomplex *, size_t, char, char)
void dtrans2(double *, const double *, size_t, size_t, char)
void ncsptrans(int *, int *, int *, const int *, const int *, const int *, int, int, char, int *)
void zcspsort(int *, int *, Rcomplex *, int, int, int *, Rcomplex *)
void ztspsort(int *, int *, Rcomplex *, const int *, const int *, const Rcomplex *, int, int, int *, int *, Rcomplex *)
void iswap2(size_t, int *, size_t, int *, size_t)
void dsymperm1(double *, const double *, int, char, const int *, int, int)
int ztest2(const Rcomplex *, size_t, char, char, char)
int ntest1(const int *, size_t, char, char, char)
int ztest1(const Rcomplex *, size_t, char, char, char)
void zrowperm2(Rcomplex *, const Rcomplex *, int, int, const int *, int, int)
void zswap1(size_t, Rcomplex *, size_t, size_t, int, Rcomplex *, size_t, size_t, int)
void dcsptrans(int *, int *, double *, const int *, const int *, const double *, int, int, char, int *)
void ltspaggr(int *, int *, int *, const int *, const int *, const int *, int, int, int *, int *, int *)
void zband2(Rcomplex *, const Rcomplex *, size_t, size_t, size_t, size_t)
void icspsort(int *, int *, int *, int, int, int *, int *)
void itrans2(int *, const int *, size_t, size_t, char)
void ztspaggr(int *, int *, Rcomplex *, const int *, const int *, const Rcomplex *, int, int, int *, int *, Rcomplex *)
void dtspsort(int *, int *, double *, const int *, const int *, const double *, int, int, int *, int *, double *)
void iband1(int *, const int *, size_t, char, size_t, size_t)
void icopy1(size_t, int *, size_t, size_t, int, const int *, size_t, size_t, int)
void dtspaggr(int *, int *, double *, const int *, const int *, const double *, int, int, int *, int *, double *)
void zforce2(Rcomplex *, const Rcomplex *, size_t, char, char, char)
void zswap2(size_t, Rcomplex *, size_t, Rcomplex *, size_t)
void itspaggr(int *, int *, int *, const int *, const int *, const int *, int, int, int *, int *, int *)
void isymperm1(int *, const int *, int, char, const int *, int, int)
void dtrans1(double *, const double *, size_t, char, char)
void zcopy1(size_t, Rcomplex *, size_t, size_t, int, const Rcomplex *, size_t, size_t, int)
int itest2(const int *, size_t, char, char, char)
int ltest2(const int *, size_t, char, char, char)
void dcopy1(size_t, double *, size_t, size_t, int, const double *, size_t, size_t, int)
void dforce2(double *, const double *, size_t, char, char, char)
void lcspsort(int *, int *, int *, int, int, int *, int *)
void dforce1(double *, const double *, size_t, char, char, char)