bk_grid.h 3.44 KB
Newer Older
agebhard's avatar
agebhard committed
1
2
3
#include <R.h>
#include <Rinternals.h>

agebhard's avatar
agebhard committed
4
/*  #define TRANSIENT */
agebhard's avatar
??    
agebhard committed
5

agebhard's avatar
agebhard committed
6
7
8
9
10
11
12
13
14
15
16
17
18
void bk_grid(double *xsw,
	     double *ysw,
	     double *xne,
	     double *yne,
	     double *angle,
	     int *nx,
	     int *ny,
	     double *dx,
	     double *dy,
	     double *xg,
	     double *yg,
	     double *zg,
	     double *varg,
19
	     int *dog,
agebhard's avatar
agebhard committed
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
	     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,
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
	     int *nsearch,
	     int *nsmin,
	     int *nsmax,
	     int *lwork,
	     int *mode,
	     double *lambda,
	     double *lambd0,
	     int *searchnb,
	     int *ierr,
	     int *glsmth);

void F77_NAME(bk_grid)(double *xsw,
	     double *ysw,
	     double *xne,
	     double *yne,
	     double *angle,
	     int *nx,
	     int *ny,
	     double *dx,
	     double *dy,
	     double *xg,
	     double *yg,
	     double *zg,
	     double *varg,
	     int *dog,
	     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,
agebhard's avatar
agebhard committed
81
82
83
	     int *nsearch,
	     int *nsmin,
	     int *nsmax,
84
	     int *lwork,
agebhard's avatar
agebhard committed
85
	     int *mode,
86
87
	     double *lambda,
	     double *lambd0,
88
	     int *searchnb,
agebhard's avatar
agebhard committed
89
90
	     int *ierr,
	     int *glsmth);
alge's avatar
alge committed
91
	     
agebhard's avatar
agebhard committed
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
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
void F77_NAME(bkgrid)(double *xsw,
		      double *ysw,
		      double *xne,
		      double *yne,
		      double *angle,
		      int *nx,
		      int *ny,
		      int *nz,
		      double *dx,
		      double *dy,
		      double *xg,
		      double *yg,
		      double *zg,
		      int* ldzg,
		      double *varg,
		      int *dog,
		      double *lon,
		      double *lat,
		      double *z,
		      int *extrap,
		      int *n,
		      int *covtype,
		      double *covpar,
		      double *covmat,
		      int *ldcov,
		      double *c0vec,
		      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,
alge's avatar
alge committed
145
		      double *fwrk2,
agebhard's avatar
agebhard committed
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
		      int *ldfwrk,
		      double *f0work,
		      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,
		      double *lambda,
172
		      int *ldlmbd,
agebhard's avatar
agebhard committed
173
		      double *lambd0,
174
		      int *searchnb,
agebhard's avatar
agebhard committed
175
176
177
		      int *ierr,
		      int *glsmth);
    
alge's avatar
alge committed
178