Mercurial > hg > octave-lyh
comparison src/DLD-FUNCTIONS/spqr.cc @ 5823:080c08b192d8
[project @ 2006-05-19 05:32:17 by jwe]
author | jwe |
---|---|
date | Fri, 19 May 2006 05:32:19 +0000 |
parents | eb90c83b4f91 |
children | 27fa671e5599 |
comparison
equal
deleted
inserted
replaced
5822:4fdc2515ebad | 5823:080c08b192d8 |
---|---|
78 bool economy = false; | 78 bool economy = false; |
79 bool is_cmplx = false; | 79 bool is_cmplx = false; |
80 bool have_b = false; | 80 bool have_b = false; |
81 | 81 |
82 if (nargin < 1 || nargin > 3) | 82 if (nargin < 1 || nargin > 3) |
83 print_usage ("spqr"); | 83 print_usage (); |
84 else | 84 else |
85 { | 85 { |
86 if (args(0).is_complex_type ()) | 86 if (args(0).is_complex_type ()) |
87 is_cmplx = true; | 87 is_cmplx = true; |
88 if (nargin > 1) | 88 if (nargin > 1) |
256 octave_value_list retval; | 256 octave_value_list retval; |
257 | 257 |
258 #if HAVE_CXSPARSE | 258 #if HAVE_CXSPARSE |
259 if (nargin != 1) | 259 if (nargin != 1) |
260 { | 260 { |
261 print_usage ("dmperm"); | 261 print_usage (); |
262 return retval; | 262 return retval; |
263 } | 263 } |
264 | 264 |
265 octave_value arg = args(0); | 265 octave_value arg = args(0); |
266 octave_idx_type nr = arg.rows (); | 266 octave_idx_type nr = arg.rows (); |