swh:1:snp:16c54c84bc54885e783d4424d714e5cc82f479a1
Tip revision: db8668b63745f624236e566437c198010990b082 authored by Roger Koenker on 02 May 2022, 16:42:02 UTC
version 5.93
version 5.93
Tip revision: db8668b
quantreg_init.c
#include <R_ext/RS.h>
#include <stdlib.h> // for NULL
#include <R_ext/Rdynload.h>
/* .C calls */
extern void bootnp(double *x, double *y, double *tau, double *theta_tilda, double *A, double *zstar, double *sumxij, double *sumabsxij, int *n, int *p, int *success, double *theta, int *MAXK);
/* .Fortran calls */
extern void F77_NAME(brutpow)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(combin)(void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(crqf)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(crqfnb)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(grexp)(void *, void *, void *);
extern void F77_NAME(kuantiles)(void *, void *, void *, void *);
extern void F77_NAME(penalty)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(pfnb)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(pwxy)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(powell)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(qfnb)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(qselect)(void *, void *, void *);
extern void F77_NAME(pwy)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(rls)(void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(rqbr)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(rqfnb)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(rqfnc)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(rqs)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(sakj)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(srqfn)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(srqfnc)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(wxy)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void F77_NAME(xys)(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
static const R_CMethodDef CEntries[] = {
{"bootnp", (DL_FUNC) &bootnp, 13},
{NULL, NULL, 0}
};
static const R_FortranMethodDef FortranEntries[] = {
{"brutpow", (DL_FUNC) &F77_NAME(brutpow), 14},
{"combin", (DL_FUNC) &F77_NAME(combin), 7},
{"crqf", (DL_FUNC) &F77_NAME(crqf), 26},
{"crqfnb", (DL_FUNC) &F77_NAME(crqfnb), 18},
{"grexp", (DL_FUNC) &F77_NAME(grexp), 3},
{"kuantiles", (DL_FUNC) &F77_NAME(kuantiles), 4},
{"penalty", (DL_FUNC) &F77_NAME(penalty), 14},
{"pfnb", (DL_FUNC) &F77_NAME(pfnb), 23},
{"pwxy", (DL_FUNC) &F77_NAME(pwxy), 25},
{"powell", (DL_FUNC) &F77_NAME(powell), 17},
{"qfnb", (DL_FUNC) &F77_NAME(qfnb), 14},
{"qselect", (DL_FUNC) &F77_NAME(qselect), 3},
{"pwy", (DL_FUNC) &F77_NAME(pwy), 16},
{"rls", (DL_FUNC) &F77_NAME(rls), 7},
{"rqbr", (DL_FUNC) &F77_NAME(rqbr), 27},
{"rqfnb", (DL_FUNC) &F77_NAME(rqfnb), 13},
{"rqfnc", (DL_FUNC) &F77_NAME(rqfnc), 18},
{"rqs", (DL_FUNC) &F77_NAME(rqs), 15},
{"sakj", (DL_FUNC) &F77_NAME(sakj), 13},
{"srqfn", (DL_FUNC) &F77_NAME(srqfn), 45},
{"srqfnc", (DL_FUNC) &F77_NAME(srqfnc), 65},
{"wxy", (DL_FUNC) &F77_NAME(wxy), 18},
{"xys", (DL_FUNC) &F77_NAME(xys), 19},
{NULL, NULL, 0}
};
void R_init_quantreg(DllInfo *dll)
{
R_registerRoutines(dll, CEntries, NULL, FortranEntries, NULL);
R_useDynamicSymbols(dll, FALSE);
}