Mercurial > hg > octave-lyh

comparison liboctave/CmplxSCHUR.cc @ 532:2ca256b77602

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-07-20 19:56:55 by jwe]
author jwe
date Wed, 20 Jul 1994 19:56:55 +0000
parents 3d4b4f0fa5ba
children 7a2521d2d3e4
comparison
equal deleted inserted replaced
531:1be78be437c7 532:2ca256b77602
114 F77_FCN (zgeesx) (&jobvs, &sort, (void *) 0, &sense, &n, s, 114 F77_FCN (zgeesx) (&jobvs, &sort, (void *) 0, &sense, &n, s,
115 &n, &sdim, w, q, &n, &rconde, &rcondv, work, 115 &n, &sdim, w, q, &n, &rconde, &rcondv, work,
116 &lwork, rwork, bwork, &info, 1L, 1L); 116 &lwork, rwork, bwork, &info, 1L, 1L);
117 } 117 }
118 118
119 schur_mat = ComplexMatrix (s,n,n); 119 schur_mat = ComplexMatrix (s, n, n);
120 unitary_mat = ComplexMatrix (q,n,n); 120 unitary_mat = ComplexMatrix (q, n, n);
121 121
122 delete [] w; 122 delete [] w;
123 delete [] work; 123 delete [] work;
124 delete [] rwork; 124 delete [] rwork;
125 delete [] bwork; 125 delete [] bwork;