The R Project SVN R

Rev

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

Rev 85140 Rev 85143
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) 2000-2020 The R Core Team
 3 
 *  Copyright (C) 2000-2023 The R Core Team
4 
 *
 4 
 *
5 
 *  This program is free software; you can redistribute it and/or modify
 5 
 *  This program is free software; you can redistribute it and/or modify
6 
 *  it under the terms of the GNU General Public License as published by
 6 
 *  it under the terms of the GNU General Public License as published by
7 
 *  the Free Software Foundation; either version 2 of the License, or
 7 
 *  the Free Software Foundation; either version 2 of the License, or
8 
 *  (at your option) any later version.
 8 
 *  (at your option) any later version.
Line 16... Line 16...
16 
 *  along with this program; if not, a copy is available at
 16 
 *  along with this program; if not, a copy is available at
17 
 *  https://www.R-project.org/Licenses/
 17 
 *  https://www.R-project.org/Licenses/
18 
 */
 18 
 */
19 
/* l-bfgs-b.f -- translated by f2c (version 19991025).
 19 
/* l-bfgs-b.f -- translated by f2c (version 19991025).
20 
 
 20 
 
- 
 
 21 
   This file is included by optim.c.
- 
 
 22 
 
21 
  From ?optim:
 23 
  From ?optim:
22 
  The code for method ‘"L-BFGS-B"’ is based on Fortran code by Zhu,
 24 
  The code for method ‘"L-BFGS-B"’ is based on Fortran code by Zhu,
23 
  Byrd, Lu-Chen and Nocedal obtained from Netlib (file 'opt/lbfgs_bcm.shar')
 25 
  Byrd, Lu-Chen and Nocedal obtained from Netlib (file 'opt/lbfgs_bcm.shar')
24 
 
 26 
 
25 
  The Fortran files contained no copyright information.
 27 
  The Fortran files contained no copyright information.
Line 35... Line 37...
35 
 
 37 
 
36 
#include <math.h>
 38 
#include <math.h>
37 
#include <float.h> /* for DBL_EPSILON */
 39 
#include <float.h> /* for DBL_EPSILON */
38 
#include <string.h>
 40 
#include <string.h>
39 
#include <R_ext/RS.h> /* for F77_CALL */
 41 
#include <R_ext/RS.h> /* for F77_CALL */
40 
#ifdef USE_NEW_ACCELERATE
 - 
 
41 
# define ACCELERATE_NEW_LAPACK
 - 
 
42 
# define USE_NON_APPLE_STANDARD_DATATYPES 0
 - 
 
43 
# include <Accelerate/Accelerate.h>
 - 
 
44 
#else
 - 
 
45 
# include <R_ext/BLAS.h>
 42 
#include <R_ext/BLAS.h>
46 
#endif
 - 
 
47 
 
 - 
 
48 
#include <R_ext/Linpack.h> /* dpofa, dtrsl  */
 43 
#include <R_ext/Linpack.h> /* dpofa, dtrsl  */
49 
#include <R_ext/Applic.h> // includes BLAS.h pro tem
 44 
//#include <R_ext/Applic.h> // included by optim.c
50 
 
 45 
 
51 
#include <R_ext/Print.h> /* Rprintf */
 46 
#include <R_ext/Print.h> /* Rprintf */
52 
 
 47 
 
53 
#define FALSE_ 0
 48 
#define FALSE_ 0
54 
#define TRUE_ 1
 49 
#define TRUE_ 1