Mercurial > octave-libgccjit

comparison src/DLD-FUNCTIONS/inv.cc @ 8960:93f18f166aba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
remove float perm matrices
author Jaroslav Hajek <highegg@gmail.com>
date Thu, 12 Mar 2009 09:24:37 +0100
parents eb63fbe60fab
children 7c02ec148a3c
comparison
equal deleted inserted replaced
8959:089abf117499 8960:93f18f166aba
33 #include "ov-re-diag.h" 33 #include "ov-re-diag.h"
34 #include "ov-cx-diag.h" 34 #include "ov-cx-diag.h"
35 #include "ov-flt-re-diag.h" 35 #include "ov-flt-re-diag.h"
36 #include "ov-flt-cx-diag.h" 36 #include "ov-flt-cx-diag.h"
37 #include "ov-perm.h" 37 #include "ov-perm.h"
38 #include "ov-flt-perm.h"
39 #include "utils.h" 38 #include "utils.h"
40 39
41 DEFUN_DLD (inv, args, nargout, 40 DEFUN_DLD (inv, args, nargout,
42 "-*- texinfo -*-\n\ 41 "-*- texinfo -*-\n\
43 @deftypefn {Loadable Function} {[@var{x}, @var{rcond}] =} inv (@var{a})\n\ 42 @deftypefn {Loadable Function} {[@var{x}, @var{rcond}] =} inv (@var{a})\n\
123 } 122 }
124 } 123 }
125 else if (arg.is_perm_matrix ()) 124 else if (arg.is_perm_matrix ())
126 { 125 {
127 rcond = 1.0; 126 rcond = 1.0;
128 frcond = 1.0f;
129 info = 0; 127 info = 0;
130 if (isfloat) 128 result = arg.perm_matrix_value ().inverse ();
131 result = octave_value (arg.perm_matrix_value ().inverse (), true);
132 else
133 result = arg.perm_matrix_value ().inverse ();
134 } 129 }
135 else if (isfloat) 130 else if (isfloat)
136 { 131 {
137 if (arg.is_real_type ()) 132 if (arg.is_real_type ())
138 { 133 {