Mercurial > octave

diff liboctave/numeric/gsvd.h @ 24653:f0de21a6a426

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use new LAPACK functions in gsvd if available (bug #50463). * oct-shlib.cc: Search all loaded functions if function name is empty. * oct-shlib.h (destructor): Prevent double free on close. * gsvd.cc: Check on run-time whether *ggsvd3 functions are available in used LAPACK library. Use *ggsvd3 functions if available. * gsvd.h (ggsvd): Add additional parameter. * lo-lapack-proto.h: Add declarations for new functions. * configure.ac: Add check for psapi.
author Markus Mützel <markus.muetzel@gmx.de>
date Sun, 07 Jan 2018 21:48:04 +0100
parents 194eb4bd202b
children 6652d3823428
line wrap: on
line diff
--- a/liboctave/numeric/gsvd.h	Mon Jan 29 16:22:30 2018 -0500
+++ b/liboctave/numeric/gsvd.h	Sun Jan 07 21:48:04 2018 +0100
@@ -104,7 +104,8 @@
                   P *u, octave_f77_int_type nrow_u,
                   P *v, octave_f77_int_type nrow_v,
                   P *q, octave_f77_int_type nrow_q,
-                  T& work, octave_f77_int_type *iwork,
+                  T& work, octave_f77_int_type lwork,
+                  octave_f77_int_type *iwork,
                   octave_f77_int_type& info);
     };
   }