Mercurial > octave
changeset 133:f8e230ec7745
[project @ 1993-09-28 21:14:00 by jwe]
(QPSOL::minimize (double&, int&, Vector&)): Correct dimensions of work
arrays, based on QPSOL source.
Pass ncon, which is max (1, nclin), not n, as the row dimension of
clin.
| author | jwe |
|---|---|
| date | Tue, 28 Sep 1993 21:14:00 +0000 |
| parents | 0869dc33276c |
| children | 4e753587fac1 |
| files | liboctave/QPSOL.cc |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/QPSOL.cc Tue Sep 28 21:06:42 1993 +0000 +++ b/liboctave/QPSOL.cc Tue Sep 28 21:14:00 1993 +0000 @@ -142,8 +142,7 @@ lambda.resize (nctotl); double *pclambda = lambda.fortran_vec (); - int tmp = n < nclin ? n : nclin; - int leniw = n + 2 + tmp; + int leniw = 2 * n; int lenw; int ncon = nclin > 1 ? nclin : 1; @@ -155,8 +154,8 @@ int *iw = new int [leniw]; double *w = new double [lenw]; - F77_FCN (qpsol) (&itmax, &msglvl, &n, &nclin, &nctotl, &n, &n, &n, - &bigbnd, pa, pbl, pbu, pc, featol, ph, qphess, + F77_FCN (qpsol) (&itmax, &msglvl, &n, &nclin, &nctotl, &ncon, &n, + &n, &bigbnd, pa, pbl, pbu, pc, featol, ph, qphess, &cold, &lp, &orthog, istate, px, &inform, &iter, &objf, pclambda, iw, &leniw, w, &lenw);