Mercurial > octave

diff liboctave/numeric/svd.h @ 22944:5126040e8f49

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use F77_INT instead of octave_idx_type for liboctave svd class * svd.h, svd.cc: Use F77_INT instead of octave_idx_type for integer data passed to Fortran subroutines. Use octave_f77_int_type in public header file.
author John W. Eaton <jwe@octave.org>
date Mon, 26 Dec 2016 19:15:31 -0500
parents 87e3163f6c87
children ef4d915df748
line wrap: on
line diff
--- a/liboctave/numeric/svd.h	Mon Dec 26 15:51:41 2016 -0800
+++ b/liboctave/numeric/svd.h	Mon Dec 26 19:15:31 2016 -0500
@@ -99,16 +99,17 @@
       DM_T sigma;
       T right_sm;
 
-      void gesvd (char& jobu, char& jobv, octave_idx_type m, octave_idx_type n,
-                  P* tmp_data, octave_idx_type m1, DM_P* s_vec, P* u, P* vt,
-                  octave_idx_type nrow_vt1, std::vector<P>& work,
-                  octave_idx_type& lwork, octave_idx_type& info);
+      void gesvd (char& jobu, char& jobv, octave_f77_int_type m,
+                  octave_f77_int_type n, P* tmp_data, octave_f77_int_type m1,
+                  DM_P* s_vec, P* u, P* vt, octave_f77_int_type nrow_vt1,
+                  std::vector<P>& work, octave_f77_int_type& lwork,
+                  octave_f77_int_type& info);
 
-      void gesdd (char& jobz, octave_idx_type m, octave_idx_type n,
-                  P* tmp_data, octave_idx_type m1, DM_P* s_vec, P* u, P* vt,
-                  octave_idx_type nrow_vt1, std::vector<P>& work,
-                  octave_idx_type& lwork,
-                  octave_idx_type* iwork, octave_idx_type& info);
+      void gesdd (char& jobz, octave_f77_int_type m, octave_f77_int_type n,
+                  P* tmp_data, octave_f77_int_type m1, DM_P* s_vec, P* u,
+                  P* vt, octave_f77_int_type nrow_vt1, std::vector<P>& work,
+                  octave_f77_int_type& lwork, octave_f77_int_type* iwork,
+                  octave_f77_int_type& info);
     };
   }
 }