26 #if defined (HAVE_CONFIG_H)
48 #if defined (OCTAVE_ENABLE_64)
49 # define AMD_NAME(name) amd_l ## name
51 # define AMD_NAME(name) amd ## name
88 #if defined (HAVE_AMD)
92 if (nargin < 1 || nargin > 2)
100 if (
args(0).is_sparse_type ())
102 if (
args(0).is_complex_type ())
104 scm =
args(0).sparse_complex_matrix_value ();
112 sm =
args(0).sparse_matrix_value ();
121 if (
args(0).is_complex_type ())
139 octave_scalar_map arg1 =
args(1).xscalar_map_value (
"amd: OPTS argument must be a scalar structure");
153 Matrix xinfo (AMD_INFO, 1);
158 SUITESPARSE_ASSIGN_FPTR (malloc_func, amd_malloc,
malloc);
159 SUITESPARSE_ASSIGN_FPTR (free_func, amd_free,
free);
160 SUITESPARSE_ASSIGN_FPTR (calloc_func, amd_calloc, calloc);
161 SUITESPARSE_ASSIGN_FPTR (realloc_func, amd_realloc, realloc);
162 SUITESPARSE_ASSIGN_FPTR (printf_func, amd_printf,
printf);
167 if (result == AMD_OUT_OF_MEMORY)
168 error (
"amd: out of memory");
169 else if (result == AMD_INVALID)
170 error (
"amd: matrix S is corrupted");
177 return ovl (Pout, xinfo);
183 octave_unused_parameter (
args);
184 octave_unused_parameter (
nargout);
octave_idx_type * xridx(void)
octave_idx_type cols(void) const
octave_idx_type rows(void) const
OCTAVE_EXPORT octave_value_list isa nd deftypefn *return ovl(args(0).is_integer_type())
nd group nd example oindent or xample printf("%s\n", nthargout(2,"system","cmd"))
OCTINTERP_API void print_usage(void)
bool is_defined(void) const
octave_idx_type * xcidx(void)
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)
With real return the complex result
T & xelem(octave_idx_type n)
=val(i)}if ode{val(i)}occurs in table i
#define OCTAVE_LOCAL_BUFFER(T, buf, size)
octave_value getfield(const std::string &key) const
#define DEFUN_DLD(name, args_name, nargout_name, doc)
const T * fortran_vec(void) const
ColumnVector real(const ComplexColumnVector &a)
double double_value(bool frc_str_conv=false) const
void err_disabled_feature(const std::string &fcn, const std::string &feature, const std::string &pkg)