Mercurial > forge
changeset 9671:419a45c4c119 octave-forge
control-devel: quicksave draft code
| author | paramaniac |
|---|---|
| date | Tue, 13 Mar 2012 09:11:51 +0000 |
| parents | 705c80955ec8 |
| children | dab86f0cf54a |
| files | extra/control-devel/src/slib01ad.cc |
| diffstat | 1 files changed, 20 insertions(+), 24 deletions(-) [+] |
line wrap: on
line diff
--- a/extra/control-devel/src/slib01ad.cc Tue Mar 13 05:14:22 2012 +0000 +++ b/extra/control-devel/src/slib01ad.cc Tue Mar 13 09:11:51 2012 +0000 @@ -34,18 +34,16 @@ extern "C" { int F77_FUNC (ib01ad, IB01AD) - (char& DICO, char& JOBD, char& JOBMR, char& JOBCF, - char& ORDSEL, - int& N, int& M, int& P, - int& NCR, - double* A, int& LDA, - double* B, int& LDB, - double* C, int& LDC, - double* D, int& LDD, - double* F, int& LDF, - double* G, int& LDG, - double* HSV, - double& TOL, + (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, + double* R, int& LDR, + double* SV, + double& RCOND, double& TOL, int* IWORK, double* DWORK, int& LDWORK, int& IWARN, int& INFO); @@ -174,18 +172,16 @@ // SLICOT routine IB01AD F77_XFCN (ib01ad, IB01AD, - (dico, jobd, jobmr, jobcf, - ordsel, - n, m, p, - ncr, - a.fortran_vec (), lda, - b.fortran_vec (), ldb, - c.fortran_vec (), ldc, - d.fortran_vec (), ldd, - f.fortran_vec (), ldf, - g.fortran_vec (), ldg, - hsv.fortran_vec (), - tol, + (meth, alg, jobd, + batch, conct, ctrl, + nobr, m, l, + nsmp, + u.fortran_vec (), ldu, + y.fortran_vec (), ldy, + n, + r.fortran_vec (), ldr, + sv.fortran_vec (), + rcond, tol, iwork, dwork, ldwork, iwarn, info));