[Octave-cvsupdate] SF.net SVN: octave:[9857] trunk/octave-forge/extra/control-devel/src/ slib01ad.cc

[<par...@us...>]

Revision: 9857
          http://octave.svn.sourceforge.net/octave/?rev=9857&view=rev
Author:   paramaniac
Date:     2012-03-13 09:11:51 +0000 (Tue, 13 Mar 2012)
Log Message:
-----------
control-devel: quicksave draft code

Modified Paths:
--------------
    trunk/octave-forge/extra/control-devel/src/slib01ad.cc

Modified: trunk/octave-forge/extra/control-devel/src/slib01ad.cc
===================================================================
--- trunk/octave-forge/extra/control-devel/src/slib01ad.cc	2012-03-13 05:14:22 UTC (rev 9856)
+++ trunk/octave-forge/extra/control-devel/src/slib01ad.cc	2012-03-13 09:11:51 UTC (rev 9857)
@@ -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));

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.