Mercurial > forge
changeset 9682:a247c9944bd8 octave-forge
control-devel: work on identification draft code
| author | paramaniac |
|---|---|
| date | Tue, 13 Mar 2012 21:46:39 +0000 |
| parents | ffcea825b6f7 |
| children | ba7ffe847376 |
| files | extra/control-devel/src/slib01bd.cc |
| diffstat | 1 files changed, 26 insertions(+), 18 deletions(-) [+] |
line wrap: on
line diff
--- a/extra/control-devel/src/slib01bd.cc Tue Mar 13 21:37:24 2012 +0000 +++ b/extra/control-devel/src/slib01bd.cc Tue Mar 13 21:46:39 2012 +0000 @@ -34,18 +34,22 @@ extern "C" { int F77_FUNC (ib01bd, IB01BD) - (char& METH, char& ALG, char& JOBD, - char& BATCH, char& CONCT, char& CTRL, - int& NOBR, int& M, int& L, - int& NSMP, - double* U, int& LDU, - double* Y, int& LDY, - int& N, + (char& METH, char& JOB, char& JOBCK, + int& NOBR, int& N, int& M, int& L, + int& NSMPL, double* R, int& LDR, - double* SV, - double& RCOND, double& TOL, + double* A, int& LDA, + double* C, int& LDC, + double* B, int& LDB, + double* D, int& LDD, + double* Q, int& LDQ, + double* RY, int& LDRY, + double* S, int& LDS, + double* K, int& LDK, + double& TOL, int* IWORK, double* DWORK, int& LDWORK, + bool* BWORK, int& IWARN, int& INFO); } @@ -238,18 +242,22 @@ // SLICOT routine IB01BD F77_XFCN (ib01bd, IB01BD, - (meth, alg, jobd, - batch, conct, ctrl, - nobr, m, l, - nsmp, - u.fortran_vec (), ldu, - y.fortran_vec (), ldy, - n, + (meth, job, jobck, + nobr, n, m, l, + nsmpl, r.fortran_vec (), ldr, - sv.fortran_vec (), - rcond, tol, + a.fortran_vec (), lda, + c.fortran_vec (), ldc, + b.fortran_vec (), ldb, + d.fortran_vec (), ldd, + q.fortran_vec (), ldq, + ry.fortran_vec (), ldry, + s.fortran_vec (), lds, + k.fortran_vec (), ldk, + tol, iwork, dwork, ldwork, + bwork, iwarn, info));