The R Project SVN R

Rev

Rev 5458 | Rev 7002 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5458 Rev 6098
Line 1... Line 1...
1
/*
1
/*
2
 *  R : A Computer Language for Statistical Data Analysis
2
 *  R : A Computer Language for Statistical Data Analysis
3
 *  Copyright (C) 1998, 1999   Robert Gentleman, Ross Ihaka 
3
 *  Copyright (C) 1998, 1999   Robert Gentleman, Ross Ihaka
4
 *                             and the R Development Core Team
4
 *                             and the R Development Core Team
5
 *
5
 *
6
 *  This program is free software; you can redistribute it and/or modify
6
 *  This program is free software; you can redistribute it and/or modify
7
 *  it under the terms of the GNU General Public License as published by
7
 *  it under the terms of the GNU General Public License as published by
8
 *  the Free Software Foundation; either version 2 of the License, or
8
 *  the Free Software Foundation; either version 2 of the License, or
Line 90... Line 90...
90
		   int *matz, double *z, int *iv1, double *fv1, int *ierr);
90
		   int *matz, double *z, int *iv1, double *fv1, int *ierr);
91
int F77_SYMBOL(rs)(int *nm, int *n, double *a, double *w,
91
int F77_SYMBOL(rs)(int *nm, int *n, double *a, double *w,
92
		   int *matz, double *z, double *fv1, double *fv2, int *ierr);
92
		   int *matz, double *z, double *fv1, double *fv2, int *ierr);
93
 
93
 
94
/* fft.c */
94
/* fft.c */
95
/* NOTE:  The following functions use GLOBAL (static) variables !! 
95
/* NOTE:  The following functions use GLOBAL (static) variables !!
96
 * ----   some of R-core think that this should be changed, 
96
 * ----   some of R-core think that this should be changed,
97
 *        which will INEVITABLY extend the argument lists ...!
97
 *        which will INEVITABLY extend the argument lists ...!
98
 *-- i.e. don't export these yet!
98
 *-- i.e. don't export these yet!
99
 */
99
 */
100
#ifdef NOT_YET
100
#ifdef NOT_YET
101
void fft_factor(int n, int *pmaxf, int *pmaxp);
101
void fft_factor(int n, int *pmaxf, int *pmaxp);
Line 223... Line 223...
223
		      double *z__, int *job);
223
		      double *z__, int *job);
224
int F77_SYMBOL(dtrsl)(double *t, int *ldt, int *n, double *b, int *job,
224
int F77_SYMBOL(dtrsl)(double *t, int *ldt, int *n, double *b, int *job,
225
		      int *info);
225
		      int *info);
226
 
226
 
227
double F77_SYMBOL(fmin)(double *ax, double *bx, D_fp f, double *tol);
227
double F77_SYMBOL(fmin)(double *ax, double *bx, D_fp f, double *tol);
228
int F77_SYMBOL(lminfl)(double *x, int *ldx, int *n, int *k,
228
int F77_SYMBOL(lminfl)(double *x, int *ldx, int *n, int *k, double *qraux,
229
		       double *qraux, double *b,
-
 
230
		       double *resid, double *hat, double *coef, double *sigma);
229
		       double *resid, double *hat, double *coef, double *sigma);
231
/* Only exported headers from ../appl/uncmin.f : */
230
/* Only exported headers from ../appl/uncmin.f : */
232
int F77_SYMBOL(fdhess)(int *n, double *x, double *fval,
231
int F77_SYMBOL(fdhess)(int *n, double *x, double *fval,
233
		       S_fp fun, double *h__, int *nfd,
232
		       S_fp fun, double *h__, int *nfd,
234
		       double *step, double *f, int *ndigit, double *typx);
233
		       double *step, double *f, int *ndigit, double *typx);
Line 238... Line 237...
238
		       int *ndigit, int *itnlim, int *iagflg, int *iahflg,
237
		       int *ndigit, int *itnlim, int *iagflg, int *iahflg,
239
		       int *ipr, double *dlt, double *gradtl,
238
		       int *ipr, double *dlt, double *gradtl,
240
		       double *stepmx, double *steptl,
239
		       double *stepmx, double *steptl,
241
		       double *xpls, double *fpls, double *gpls,
240
		       double *xpls, double *fpls, double *gpls,
242
		       int *itrmcd, double *a, double *wrk, int *itncnt);
241
		       int *itrmcd, double *a, double *wrk, int *itncnt);
243
 
242
 
244
double zeroin(double ax, double bx, double (*f)(double, void *), void *info,
243
double zeroin(double ax, double bx, double (*f)(double, void *), void *info,
245
	      double *tol, int *maxit);
244
	      double *tol, int *maxit);
246
 
245
 
247
#endif
246
#endif