Mercurial > hg > octave-nkf
diff liboctave/CSparse.cc @ 11570:57632dea2446
attempt better backward compatibility for Array constructors
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Wed, 19 Jan 2011 17:55:56 -0500 |
| parents | fd0a3ac60b0e |
| children | a83bad07f7e3 |
line wrap: on
line diff
--- a/liboctave/CSparse.cc +++ b/liboctave/CSparse.cc @@ -3919,7 +3919,7 @@ OCTAVE_LOCAL_BUFFER (Complex, DU, nr - 1); OCTAVE_LOCAL_BUFFER (Complex, D, nr); OCTAVE_LOCAL_BUFFER (Complex, DL, nr - 1); - Array<octave_idx_type> ipvt (nr, 1); + Array<octave_idx_type> ipvt (dim_vector (nr, 1)); octave_idx_type *pipvt = ipvt.fortran_vec (); if (mattype.is_dense ()) @@ -4219,7 +4219,7 @@ OCTAVE_LOCAL_BUFFER (Complex, DU, nr - 1); OCTAVE_LOCAL_BUFFER (Complex, D, nr); OCTAVE_LOCAL_BUFFER (Complex, DL, nr - 1); - Array<octave_idx_type> ipvt (nr, 1); + Array<octave_idx_type> ipvt (dim_vector (nr, 1)); octave_idx_type *pipvt = ipvt.fortran_vec (); if (mattype.is_dense ()) @@ -4413,9 +4413,9 @@ { if (calc_cond) { - Array<Complex> z (2 * nr, 1); + Array<Complex> z (dim_vector (2 * nr, 1)); Complex *pz = z.fortran_vec (); - Array<double> iz (nr, 1); + Array<double> iz (dim_vector (nr, 1)); double *piz = iz.fortran_vec (); F77_XFCN (zpbcon, ZPBCON, @@ -4507,7 +4507,7 @@ } } - Array<octave_idx_type> ipvt (nr, 1); + Array<octave_idx_type> ipvt (dim_vector (nr, 1)); octave_idx_type *pipvt = ipvt.fortran_vec (); F77_XFCN (zgbtrf, ZGBTRF, (nr, nc, n_lower, n_upper, tmp_data, @@ -4534,9 +4534,9 @@ if (calc_cond) { char job = '1'; - Array<Complex> z (2 * nr, 1); + Array<Complex> z (dim_vector (2 * nr, 1)); Complex *pz = z.fortran_vec (); - Array<double> iz (nr, 1); + Array<double> iz (dim_vector (nr, 1)); double *piz = iz.fortran_vec (); F77_XFCN (zgbcon, ZGBCON, @@ -4660,9 +4660,9 @@ { if (calc_cond) { - Array<Complex> z (2 * nr, 1); + Array<Complex> z (dim_vector (2 * nr, 1)); Complex *pz = z.fortran_vec (); - Array<double> iz (nr, 1); + Array<double> iz (dim_vector (nr, 1)); double *piz = iz.fortran_vec (); F77_XFCN (zpbcon, ZPBCON, @@ -4789,7 +4789,7 @@ } } - Array<octave_idx_type> ipvt (nr, 1); + Array<octave_idx_type> ipvt (dim_vector (nr, 1)); octave_idx_type *pipvt = ipvt.fortran_vec (); F77_XFCN (zgbtrf, ZGBTRF, (nr, nr, n_lower, n_upper, tmp_data, @@ -4815,9 +4815,9 @@ if (calc_cond) { char job = '1'; - Array<Complex> z (2 * nr, 1); + Array<Complex> z (dim_vector (2 * nr, 1)); Complex *pz = z.fortran_vec (); - Array<double> iz (nr, 1); + Array<double> iz (dim_vector (nr, 1)); double *piz = iz.fortran_vec (); F77_XFCN (zgbcon, ZGBCON, @@ -4980,9 +4980,9 @@ { if (calc_cond) { - Array<Complex> z (2 * nr, 1); + Array<Complex> z (dim_vector (2 * nr, 1)); Complex *pz = z.fortran_vec (); - Array<double> iz (nr, 1); + Array<double> iz (dim_vector (nr, 1)); double *piz = iz.fortran_vec (); F77_XFCN (zpbcon, ZPBCON, @@ -5074,7 +5074,7 @@ } } - Array<octave_idx_type> ipvt (nr, 1); + Array<octave_idx_type> ipvt (dim_vector (nr, 1)); octave_idx_type *pipvt = ipvt.fortran_vec (); F77_XFCN (zgbtrf, ZGBTRF, (nr, nr, n_lower, n_upper, tmp_data, @@ -5099,9 +5099,9 @@ if (calc_cond) { char job = '1'; - Array<Complex> z (2 * nr, 1); + Array<Complex> z (dim_vector (2 * nr, 1)); Complex *pz = z.fortran_vec (); - Array<double> iz (nr, 1); + Array<double> iz (dim_vector (nr, 1)); double *piz = iz.fortran_vec (); F77_XFCN (zgbcon, ZGBCON, @@ -5227,9 +5227,9 @@ { if (calc_cond) { - Array<Complex> z (2 * nr, 1); + Array<Complex> z (dim_vector (2 * nr, 1)); Complex *pz = z.fortran_vec (); - Array<double> iz (nr, 1); + Array<double> iz (dim_vector (nr, 1)); double *piz = iz.fortran_vec (); F77_XFCN (zpbcon, ZPBCON, @@ -5361,7 +5361,7 @@ } } - Array<octave_idx_type> ipvt (nr, 1); + Array<octave_idx_type> ipvt (dim_vector (nr, 1)); octave_idx_type *pipvt = ipvt.fortran_vec (); F77_XFCN (zgbtrf, ZGBTRF, (nr, nr, n_lower, n_upper, tmp_data, @@ -5387,9 +5387,9 @@ if (calc_cond) { char job = '1'; - Array<Complex> z (2 * nr, 1); + Array<Complex> z (dim_vector (2 * nr, 1)); Complex *pz = z.fortran_vec (); - Array<double> iz (nr, 1); + Array<double> iz (dim_vector (nr, 1)); double *piz = iz.fortran_vec (); F77_XFCN (zgbcon, ZGBCON,