Mercurial > octave
diff liboctave/numeric/gsvd.h @ 22945:eb01d0178188
use F77_INT instead of octave_idx_type for liboctave gsvd class
* gsvd.h, gsvd.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:23:31 -0500 |
parents | 87e3163f6c87 |
children | debe0c7dcefc |
line wrap: on
line diff
--- a/liboctave/numeric/gsvd.h Mon Dec 26 19:15:31 2016 -0500 +++ b/liboctave/numeric/gsvd.h Mon Dec 26 19:23:31 2016 -0500 @@ -95,13 +95,17 @@ T left_smA, left_smB; T right_sm, R; - void ggsvd (char& jobu, char& jobv, char& jobq, octave_idx_type m, - octave_idx_type n, octave_idx_type p, octave_idx_type& k, - octave_idx_type& l, P *tmp_dataA, octave_idx_type m1, - P *tmp_dataB, octave_idx_type p1, real_matrix& alpha, - real_matrix& beta, P *u, octave_idx_type nrow_u, P *v, - octave_idx_type nrow_v, P *q, octave_idx_type nrow_q, T& work, - octave_idx_type* iwork, octave_idx_type& info); + void ggsvd (char& jobu, char& jobv, char& jobq, octave_f77_int_type m, + octave_f77_int_type n, octave_f77_int_type p, + octave_f77_int_type& k, octave_f77_int_type& l, + P *tmp_dataA, octave_f77_int_type m1, + P *tmp_dataB, octave_f77_int_type p1, + real_matrix& alpha, real_matrix& beta, + 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, + octave_f77_int_type& info); }; } }