bk_point.h 2.36 KB
Newer Older
alge's avatar
alge committed
1
2
3
#include <R.h>
#include <Rinternals.h>

agebhard's avatar
agebhard committed
4
/* #define TRANSIENT */
alge's avatar
alge committed
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

void bk_point(double *xp,
	     double *yp,
	     double *zp,
	     double *varp,
	     int *dop,
	      int *np,
	     double *lon,
	     double *lat,
	     double *z,
	     int *extrap,
	     int *n,
	     int *covtype,
	     double *covpar,
	     int *trend,
	     int *ntrend,
	     double *mupr,
	     int *ldmpr,
	     double *phipr,
	     int *ldphpr,
	     double *lonpr,
	     double *latpr,
	     int *npr,
	     int *typpr,
	     double *rsearch,
	     int *nsearch,
	     int *nsmin,
	     int *nsmax,
	     int *lwork,
	     int *mode,
	     double *lambda,
	     double *lambd0,
	     int *searchnb,
	     int *ierr,
	      int *glsmth);


void F77_NAME(bk)(double *xp,
		      double *yp,
		  int *dop,
		  int *inddop,
		  int *np,
		      double *lon,
		      double *lat,
		      double *z,
		      int *n,
		      int *covtype,
		      double *covpar,
		      double *covmat,
		      int *ldcov,
		      double *c0vec,
		  int *ldc0,
		      double *cov0,
		      int *trend,
		      int *ntrend,
		      double *mupr,
		      int *ldmpr,
		      double *phipr,
		      int *ldphpr,
		      double *muwrk,
		      double *phiwrk,
		      int *ldphwk,
		      double *lonpr,
		      double *latpr,
		      double *beta,
		      double *errbta,
		      double *covbta,
		      int *ldcvbt,
		      double *dev,
		      double *errdev,
		      double *cvsrnb,
		      double *zsrnb,
		      int *npr,
		      int *typpr,
		      double *rsearch,
		      int *nsearch,
		      int *nsmin,
		      int *nsmax,
		      double *fwork,
		      double *fwrk2,
		      int *ldfwrk,
		      double *f0work,
		  int *ldf0wk,
		      double *dist,
		      int *indsnb,
		      int *indsnw,
		      int *indsrt,
		      double *kwork,
		      int *ldkwrk,
		      double *rhswork,
		      double *fpwork,
		      double *fpfwork,
		      double *fpf0wrk,
		      double *chlup,
		      int *ldclup,
		      double *cminv,
		      int *ldcinv,
		      double *work,
		      int *lwork,
		      int *ipvt,
		      double *ferr,
		      double *berr,
		      int *ipiv,
		      int *iwork,
		      int *mode,
		      double *mu,
		  int *ldmu,
		  double *zp,
		  int *nap,
		      double *lambda,
		      int *ldlmbd,
		      double *lambd0,
		  double *varp,
		      int *searchnb,
		  int *usesbbt,
		      int *ierr,
		      int *glsmth);