# HG changeset patch
# User paramaniac
# Date 1331629911 0
# Node ID 419a45c4c1190b3e7bc60fe53cf09da40dbef493
# Parent  705c80955ec89747b389f6fe37553646e0529057
control-devel: quicksave draft code

diff -r 705c80955ec8 -r 419a45c4c119 extra/control-devel/src/slib01ad.cc
--- 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));