The R Project SVN R

Rev

Rev 7003 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7003 Rev 7192
Line 50... Line 50...
50 
void chull(int *n, double *x, int *m, int *in,
 50 
void chull(int *n, double *x, int *m, int *in,
51 
	   int *ia, int *ib,
 51 
	   int *ia, int *ib,
52 
	   int *ih, int *nh, int *il);
 52 
	   int *ih, int *nh, int *il);
53 
 
 53 
 
54 
/* cpoly.c : */
 54 
/* cpoly.c : */
55 
int F77_NAME(cpoly)(double *opr, double *opi, int *degree,
 55 
int cpoly(double *opr, double *opi, int *degree,
56 
		      double *zeror, double *zeroi, int *fail);
 56 
	  double *zeror, double *zeroi, int *fail);
57 
void polyev(int *,
 57 
void polyev(int *,
58 
	    double *, double *, double *, double *,
 58 
	    double *, double *, double *, double *,
59 
	    double *, double *, double *, double *);
 59 
	    double *, double *, double *, double *);
60 
double errev(int *, double *, double *, double *,
 60 
double errev(int *, double *, double *, double *,
61 
	     double *, double *, double *);
 61 
	     double *, double *, double *);
Line 154... Line 154...
154 
 
 154 
 
155 
/* ../main/optimize.c */
 155 
/* ../main/optimize.c */
156 
int F77_NAME(result)(int *nr, int *n, double *x, double *f, double *g,
 156 
int F77_NAME(result)(int *nr, int *n, double *x, double *f, double *g,
157 
		       double *a, double *p, int *itncnt, int *iflg, int *ipr);
 157 
		       double *a, double *p, int *itncnt, int *iflg, int *ipr);
158 
 
 158 
 
- 
 
 159 
/* uncmin.c : */
- 
 
 160 
 
- 
 
 161 
/* type of pointer to the target and gradient functions */
- 
 
 162 
typedef void (*fcn_p)(int, double *, double *, void *);
- 
 
 163 
 
- 
 
 164 
/* type of pointer to the hessian functions */
- 
 
 165 
typedef void (*d2fcn_p)(int, int, double *, double *, void *);
- 
 
 166 
 
- 
 
 167 
void fdhess(int n, double *x, double fval, fcn_p fun, void *state,
- 
 
 168 
	    double *h, int nfd, double *step, double *f, int ndigit,
- 
 
 169 
	    double *typx);
- 
 
 170 
 
- 
 
 171 
void optif9(int nr, int n, double *x, fcn_p fcn, fcn_p d1fcn, d2fcn_p
- 
 
 172 
	    d2fcn, void *state, double *typsiz, double fscale, int
- 
 
 173 
	    method, int iexp, int *msg, int ndigit, int itnlim, int iagflg,
- 
 
 174 
	    int iahflg, double dlt, double gradtl, double stepmx,
- 
 
 175 
	    double steptl, double *xpls, double *fpls, double *gpls,
- 
 
 176 
	    int *itrmcd, double *a, double *wrk, int *itncnt);
- 
 
 177 
 
- 
 
 178 
void optif0(int nr, int n, double *x, fcn_p fcn, void *state,
- 
 
 179 
	    double *xpls, double *fpls, double *gpls, int *itrmcd,
- 
 
 180 
	    double *a, double *wrk);
- 
 
 181 
 
159
182
160 
/* ALL ../appl/<foobar>.f	[semi-automatically by
 183 
/* ALL ../appl/<foobar>.f	[semi-automatically by
161 
 *				 f2c -A -P *.f; cat *.P > all.h	 and editing]
 184 
 *				 f2c -A -P *.f; cat *.P > all.h	 and editing]
162 
 */
 185 
 */
163 
typedef double (*D_fp)();
 186 
typedef double (*D_fp)();
Line 225... Line 248...
225 
		      int *info);
 248 
		      int *info);
226 
 
 249 
 
227 
double F77_NAME(fmin)(double *ax, double *bx, D_fp f, double *tol);
 250 
double F77_NAME(fmin)(double *ax, double *bx, D_fp f, double *tol);
228 
int F77_NAME(lminfl)(double *x, int *ldx, int *n, int *k, double *qraux,
 251 
int F77_NAME(lminfl)(double *x, int *ldx, int *n, int *k, double *qraux,
229 
		       double *resid, double *hat, double *coef, double *sigma);
 252 
		       double *resid, double *hat, double *coef, double *sigma);
230 
/* Only exported headers from ../appl/uncmin.f : */
 - 
 
231 
int F77_NAME(fdhess)(int *n, double *x, double *fval,
 - 
 
232 
		       S_fp fun, double *h__, int *nfd,
 - 
 
233 
		       double *step, double *f, int *ndigit, double *typx);
 - 
 
234 
int F77_NAME(optif9)(int *nr, int *n, double *x,
 - 
 
235 
		       S_fp fcn, S_fp d1fcn, S_fp d2fcn, double *typsiz,
 - 
 
236 
		       double *fscale, int *method, int *iexp, int *msg,
 - 
 
237 
		       int *ndigit, int *itnlim, int *iagflg, int *iahflg,
 - 
 
238 
		       int *ipr, double *dlt, double *gradtl,
 - 
 
239 
		       double *stepmx, double *steptl,
 - 
 
240 
		       double *xpls, double *fpls, double *gpls,
 - 
 
241 
		       int *itrmcd, double *a, double *wrk, int *itncnt);
 - 
 
242 
 
 253 
 
- 
 
 254 
/* ../appl/zeroin.c */
243 
double zeroin(double ax, double bx, double (*f)(double, void *), void *info,
 255 
double zeroin(double ax, double bx, double (*f)(double, void *), void *info,
244 
	      double *tol, int *maxit);
 256 
	      double *tol, int *maxit);
245 
 
 257 
 
246 
#endif
 258 
#endif