1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
/*--- Declarations of routines implemented in
 *  ./sparskit2.f
 *  ------------
 * also called by  the routines in srqfn.c and srqfnc.c
 *				~~~~~~~~~~     ~~~~~~~~
 */

#include <R.h>

/* SparseM -- ./sparskit2.f : */
int F77_NAME(aplb)(int *, int *, int *, double *, int *, int *,
		   double *, int *, int *, double *, int *, int *,
		   int *, int *, int *);
int F77_NAME(amub)(int *, int *, int *, double *,
		   int *, int *, double *, int *, int *,
		   double *, int *, int *, int *, int *, int *);
int F77_NAME(amux)(int *, double *, double *,
		   double *, int *, int *);
int F77_NAME(amudia)(int *, int *, double *,
		     int *, int *, double *, double *, int *, int *);

int F77_NAME(extract)(double *, int *, int *,
		      double *, int *, int *, int *, int *, int *);