The R Project SVN R

Rev

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

Rev 60246 Rev 60372
Line 19... Line 19...
19 
/* l-bfgs-b.f -- translated by f2c (version 19991025).
 19 
/* l-bfgs-b.f -- translated by f2c (version 19991025).
20 
*/
 20 
*/
21 
 
 21 
 
22 
/* <UTF8> all char uses here are ASCII */
 22 
/* <UTF8> all char uses here are ASCII */
23 
 
 23 
 
24 
/* Exports setulb()
 - 
 
25 
 *         ======
 - 
 
26 
 * called from lbfgsb() in ../main/optim.c */
 - 
 
27 
#include <math.h>
 24 
#include <math.h>
28 
#include <float.h> /* for DBL_EPSILON */
 25 
#include <float.h> /* for DBL_EPSILON */
29 
#include <string.h>
 26 
#include <string.h>
30 
#include <R_ext/RS.h> /* for F77_CALL */
 27 
#include <R_ext/RS.h> /* for F77_CALL */
31 
#include <R_ext/Linpack.h>
 28 
#include <R_ext/Linpack.h>
Line 132... Line 129...
132 
		   char *word, int iback, double stp, double xstep,
 129 
		   char *word, int iback, double stp, double xstep,
133 
		   int k);
 130 
		   int k);
134 
 
 131 
 
135 
 
 132 
 
136 
/* ================    L-BFGS-B (version 2.3)	========================== */
 133 
/* ================    L-BFGS-B (version 2.3)	========================== */
- 
 
 134 
static
137 
void setulb(int n, int m, double *x, double *l, double *u, int *nbd,
 135 
void setulb(int n, int m, double *x, double *l, double *u, int *nbd,
138 
	    double *f, double *g, double factr, double *pgtol,
 136 
	    double *f, double *g, double factr, double *pgtol,
139 
	    double *wa, int * iwa, char *task, int iprint,
 137 
	    double *wa, int * iwa, char *task, int iprint,
140 
	    int *lsave, int *isave, double *dsave)
 138 
	    int *lsave, int *isave, double *dsave)
141 
{
 139 
{