26 #if defined (HAVE_CONFIG_H) 78 #if defined (HAVE_AMD) 80 int nargin = args.length ();
90 if (args(0).issparse ())
92 if (args(0).iscomplex ())
94 scm = args(0).sparse_complex_matrix_value ();
102 sm = args(0).sparse_matrix_value ();
111 if (args(0).iscomplex ())
126 AMD_NAME (_defaults) (Control);
129 octave_scalar_map arg1 = args(1).xscalar_map_value (
"amd: OPTS argument must be a scalar structure");
134 if (
tmp.is_defined ())
135 Control[AMD_DENSE] =
tmp.double_value ();
138 if (
tmp.is_defined ())
139 Control[AMD_AGGRESSIVE] =
tmp.double_value ();
143 Matrix xinfo (AMD_INFO, 1);
148 SUITESPARSE_ASSIGN_FPTR (malloc_func, amd_malloc, malloc);
149 SUITESPARSE_ASSIGN_FPTR (free_func, amd_free, free);
150 SUITESPARSE_ASSIGN_FPTR (calloc_func, amd_calloc, calloc);
151 SUITESPARSE_ASSIGN_FPTR (realloc_func, amd_realloc, realloc);
152 SUITESPARSE_ASSIGN_FPTR (printf_func, amd_printf,
printf);
157 if (
result == AMD_OUT_OF_MEMORY)
158 error (
"amd: out of memory");
159 else if (
result == AMD_INVALID)
160 error (
"amd: matrix S is corrupted");
167 return ovl (Pout, xinfo);
173 octave_unused_parameter (args);
174 octave_unused_parameter (
nargout);
OCTINTERP_API void print_usage(void)
const T * fortran_vec(void) const
printf("%s\, nthargout(2, "system", "cmd"))
void error(const char *fmt,...)
void err_square_matrix_required(const char *fcn, const char *name)
OCTAVE_EXPORT octave_value_list return the number of command line arguments passed to Octave If called with the optional argument the function xample nargout(@histc)
octave_idx_type * xridx(void)
octave_value getfield(const std::string &key) const
With real return the complex result
T & xelem(octave_idx_type n)
octave_idx_type cols(void) const
OCTAVE_EXPORT octave_value_list isa nd deftypefn *return ovl(args(0).isinteger())
#define OCTAVE_LOCAL_BUFFER(T, buf, size)
#define DEFUN_DLD(name, args_name, nargout_name, doc)
Macro to define an at run time dynamically loadable builtin function.
octave_idx_type * xcidx(void)
ColumnVector real(const ComplexColumnVector &a)
void err_disabled_feature(const std::string &fcn, const std::string &feature, const std::string &pkg)
octave_idx_type rows(void) const
suitesparse_integer * to_suitesparse_intptr(octave_idx_type *i)