symrcm.cc File Reference

#include <algorithm>
#include "CSparse.h"
#include "boolNDArray.h"
#include "dNDArray.h"
#include "dSparse.h"
#include "oct-locbuf.h"
#include "oct-sparse.h"
#include "quit.h"
#include "defun.h"
#include "errwarn.h"
#include "ov.h"
#include "ovl.h"

Include dependency graph for symrcm.cc:

Go to the source code of this file.

Classes
struct	CMK_Node

Macros
#define	H_empty(H, h)   ((h) == 0)
#define	LEFT(i)   (((i) << 1) + 1)
#define	PARENT(i)   (((i) - 1) >> 1)
#define	Q_empty(Q, N, qh, qt)   ((qh) == (qt))
#define	RIGHT(i)   (((i) << 1) + 2)

Functions
static octave_idx_type	calc_degrees (octave_idx_type N, const octave_idx_type *ridx, const octave_idx_type *cidx, octave_idx_type *D)
static octave_idx_type	find_starting_node (octave_idx_type N, const octave_idx_type *ridx, const octave_idx_type *cidx, const octave_idx_type *ridx2, const octave_idx_type *cidx2, octave_idx_type *D, octave_idx_type start)
OCTAVE_EXPORT octave_value_list	Fsymrcm (const octave_value_list &args, int)
static void	H_heapify_min (CMK_Node *A, octave_idx_type i, octave_idx_type size)
static void	H_insert (CMK_Node *H, octave_idx_type &h, const CMK_Node &o)
static CMK_Node	H_remove_min (CMK_Node *H, octave_idx_type &h, int reorg)
static CMK_Node	Q_deq (CMK_Node *Q, octave_idx_type N, octave_idx_type &qh)
static void	Q_enq (CMK_Node *Q, octave_idx_type N, octave_idx_type &qt, const CMK_Node &o)
static void	transpose (octave_idx_type N, const octave_idx_type *ridx, const octave_idx_type *cidx, octave_idx_type *ridx2, octave_idx_type *cidx2)

Macro Definition Documentation

H_empty

#define H_empty	(		H,
			h
	)		((h) == 0)

Definition at line 192 of file symrcm.cc.

LEFT

#define LEFT

(

i

)

(((i) << 1) + 1)

Definition at line 115 of file symrcm.cc.

PARENT

#define PARENT

(

i

)

(((i) - 1) >> 1)

Definition at line 119 of file symrcm.cc.

Q_empty

#define Q_empty	(		Q,
			N,
			qh,
			qt
	)		((qh) == (qt))

Definition at line 110 of file symrcm.cc.

RIGHT

#define RIGHT

(

i

)

(((i) << 1) + 2)

Definition at line 117 of file symrcm.cc.

Function Documentation

calc_degrees()

static octave_idx_type calc_degrees ( octave_idx_type  N, const octave_idx_type *  ridx, const octave_idx_type *  cidx, octave_idx_type *  D  )

static

Definition at line 336 of file symrcm.cc.

References N.

Referenced by Fsymrcm().

find_starting_node()

static octave_idx_type find_starting_node ( octave_idx_type  N, const octave_idx_type *  ridx, const octave_idx_type *  cidx, const octave_idx_type *  ridx2, const octave_idx_type *  cidx2, octave_idx_type *  D, octave_idx_type  start  )

static

Definition at line 198 of file symrcm.cc.

References CMK_Node::deg, CMK_Node::dist, Array< T >::fortran_vec(), CMK_Node::id, N, OCTAVE_LOCAL_BUFFER, Q, Q_deq(), Q_empty, Q_enq(), Faddeeva::w(), and x.

Referenced by Fsymrcm().

Fsymrcm()

OCTAVE_EXPORT octave_value_list Fsymrcm	(	const octave_value_list &	args,
		int
	)

Definition at line 448 of file symrcm.cc.

References B, calc_degrees(), octave_value::columns(), CMK_Node::deg, CMK_Node::dist, Array< T >::elem(), err_square_matrix_required(), find_starting_node(), Array< T >::fortran_vec(), H_empty, H_insert(), H_remove_min(), CMK_Node::id, octave_value::isreal(), N, OCTAVE_LOCAL_BUFFER, ovl(), print_usage(), Q, Q_deq(), Q_empty, Q_enq(), octave_value::rows(), octave_value::sparse_complex_matrix_value(), octave_value::sparse_matrix_value(), transpose(), Faddeeva::w(), Sparse< T >::xcidx(), and Sparse< T >::xridx().

H_heapify_min()

static void H_heapify_min ( CMK_Node *  A, octave_idx_type  i, octave_idx_type  size  )

static

Definition at line 125 of file symrcm.cc.

References A, LEFT, r, and RIGHT.

Referenced by H_remove_min().

H_insert()

static void H_insert ( CMK_Node *  H, octave_idx_type &  h, const CMK_Node &  o  )

static

Definition at line 155 of file symrcm.cc.

References PARENT.

Referenced by Fsymrcm().

H_remove_min()

static CMK_Node H_remove_min ( CMK_Node *  H, octave_idx_type &  h, int  reorg  )

inlinestatic

Definition at line 182 of file symrcm.cc.

References H_heapify_min(), and r.

Referenced by Fsymrcm().

Q_deq()

static CMK_Node Q_deq ( CMK_Node *  Q, octave_idx_type  N, octave_idx_type &  qh  )

inlinestatic

Definition at line 102 of file symrcm.cc.

References N, Q, and r.

Referenced by find_starting_node(), and Fsymrcm().

Q_enq()

static void Q_enq ( CMK_Node *  Q, octave_idx_type  N, octave_idx_type &  qt, const CMK_Node &  o  )

inlinestatic

Definition at line 93 of file symrcm.cc.

References N, and Q.

Referenced by find_starting_node(), and Fsymrcm().

transpose()

static void transpose ( octave_idx_type  N, const octave_idx_type *  ridx, const octave_idx_type *  cidx, octave_idx_type *  ridx2, octave_idx_type *  cidx2  )

static

Definition at line 389 of file symrcm.cc.

References N, OCTAVE_LOCAL_BUFFER, and Faddeeva::w().

Referenced by Sparse< T >::assign(), Sparse< T >::delete_elements(), Fqz(), Fsymbfact(), Fsymrcm(), SparseMatrix::hermitian(), Sparse< T >::index(), install_b_b_ops(), install_bm_bm_ops(), install_cdm_cdm_ops(), install_cell_ops(), install_chm_ops(), install_cm_cm_ops(), install_cs_cs_ops(), install_dm_dm_ops(), install_fcdm_fcdm_ops(), install_fcm_fcm_ops(), install_fcs_fcs_ops(), install_fdm_fdm_ops(), install_fm_fm_ops(), install_fs_fs_ops(), install_m_m_ops(), install_pm_pm_ops(), install_range_ops(), install_s_s_ops(), install_sbm_sbm_ops(), install_scm_scm_ops(), install_sm_sm_ops(), install_str_str_ops(), install_struct_ops(), and Sparse< T >::permute().