5 #include "nlopt-util.h"
10 #endif /* __cplusplus */
12 nlopt_result luksan_plis(int n, nlopt_func f, void *f_data,
13 const double *lb, const double *ub, /* bounds */
14 double *x, /* in: initial guess, out: minimizer */
19 nlopt_result luksan_plip(int n, nlopt_func f, void *f_data,
20 const double *lb, const double *ub, /* bounds */
21 double *x, /* in: initial guess, out: minimizer */
27 nlopt_result luksan_pnet(int n, nlopt_func f, void *f_data,
28 const double *lb, const double *ub, /* bounds */
29 double *x, /* in: initial guess, out: minimizer */
36 double fl, fu, pl, rl, pu, ru;
37 int mes1, mes2, mes3, mode, mtyp;
40 /***************************** internal routines *************************/
43 void luksan_mxdcmd__(int *n, int *m, double *a,
44 double *x, double *alf, double *y, double *z__);
45 void luksan_mxdrcb__(int *n, int *m, double *a,
46 double *b, double *u, double *v, double *x, int *
48 void luksan_mxdrcf__(int *n, int *m, double *a,
49 double *b, double *u, double *v, double *x, int *
51 void luksan_mxdrmm__(int *n, int *m, double *a,
52 double *x, double *y);
53 void luksan_mxdrsu__(int *n, int *m, double *a,
54 double *b, double *u);
55 void luksan_mxucop__(int *n, double *x, double *y,
57 void luksan_mxudir__(int *n, double *a, double *x,
58 double *y, double *z__, int *ix, int *job);
59 void luksan_mxuneg__(int *n, double *x, double *y,
61 void luksan_mxuzer__(int *n, double *x, int *ix,
63 void luksan_mxvcop__(int *n, double *x, double *y);
64 void luksan_mxvdif__(int *n, double *x, double *y,
66 void luksan_mxvneg__(int *n, double *x, double *y);
67 void luksan_mxvscl__(int *n, double *a, double *x,
69 void luksan_mxvset__(int *n, double *a, double *x);
70 double luksan_mxudot__(int *n, double *x, double *y, int *ix,
72 double luksan_mxvdot__(int *n, double *x, double *y);
73 void luksan_mxvdir__(int *n, double *a, double *x,
74 double *y, double *z__);
75 void luksan_mxdcmu__(int *n, int *m, double *a,
76 double *alf, double *x, double *y);
77 void luksan_mxvlin__(int *n, double *a, double *x,
78 double *b, double *y, double *z__);
79 void luksan_mxdcmv__(int *n, int *m, double *a,
80 double *alf, double *x, double *u, double *bet,
81 double *y, double *v);
82 void luksan_mxvsav__(int *n, double *x, double *y);
83 void luksan_mxvine__(int *n, int *ix);
84 double luksan_mxvmax__(int *n, double *x);
87 void luksan_pcbs04__(int *nf, double *x, int *ix,
88 double *xl, double *xu, double *eps9, int *kbf);
89 void luksan_ps1l01__(double *r__, double *rp,
90 double *f, double *fo, double *fp, double *p,
91 double *po, double *pp, double *minf, double *fmax,
92 double *rmin, double *rmax, double *tols, double *
93 tolp, double *par1, double *par2, int *kd, int *ld,
94 int *nit, int *kit, int *nred, int *mred, int *
95 maxst, int *iest, int *inits, int *iters, int *kters,
96 int *mes, int *isys, ps1l01_state *state);
97 void luksan_pulsp3__(int *n, int *m, int *mf,
98 double *xm, double *gr, double *xo, double *go,
99 double *r__, double *po, double *sig, int *iterh,
101 void luksan_pulvp3__(int *n, int *m, double *xm,
102 double *xr, double *gr, double *s, double *so,
103 double *xo, double *go, double *r__, double *po,
104 double *sig, int *iterh, int *met2, int *met3,
106 void luksan_pyadc0__(int *nf, int *n, double *x,
107 int *ix, double *xl, double *xu, int *inew);
108 void luksan_pyfut1__(int *n, double *f, double *
109 fo, double *umax, double *gmax,
110 int xstop, const nlopt_stopping *stop,
111 double *tolg, int *kd, int *nit, int *kit, int *mit,
112 int *nfg, int *mfg, int *ntesx,
113 int *mtesx, int *ntesf, int *mtesf, int *ites,
114 int *ires1, int *ires2, int *irest, int *iters,
116 void luksan_pyrmc0__(int *nf, int *n, int *ix,
117 double *g, double *eps8, double *umax, double *gmax,
118 double *rmax, int *iold, int *irest);
119 void luksan_pytrcd__(int *nf, double *x, int *ix,
120 double *xo, double *g, double *go, double *r__,
121 double *f, double *fo, double *p, double *po,
122 double *dmax__, int *kbf, int *kd, int *ld, int *
124 void luksan_pytrcg__(int *nf, int *n, int *ix,
125 double *g, double *umax, double *gmax, int *kbf,
127 void luksan_pytrcs__(int *nf, double *x, int *ix,
128 double *xo, double *xl, double *xu, double *g,
129 double *go, double *s, double *ro, double *fp,
130 double *fo, double *f, double *po, double *p,
131 double *rmax, double *eta9, int *kbf);
132 void luksan_pnint1__(double *rl, double *ru, double *fl,
133 double *fu, double *pl, double *pu, double *r__,
134 int *mode, int *mtyp, int *merr);
136 /* Common Block Declarations */
138 int nres, ndec, nin, nit;
139 /* int nfv; -- now stored in stop->nevals */
143 /* number of double variables that can be stored in scratch memory
144 ... it's >= 2007, and this is in the context of scientific computation,
145 so assume that at least 10M are available, and that sizeof(double)==8 */
146 #define MEMAVAIL 1310720
150 #endif /* __cplusplus */
152 #endif /* LUKSAN_H */