ordschur.cc File Reference

#include "defun.h"
#include "error.h"
#include "lo-lapack-proto.h"
#include "ovl.h"

Go to the source code of this file.

Macros
#define	PREPARE_ARGS(TYPE, TYPE_M, TYPE_COND)
#define	PREPARE_OUTPUT()

Functions
octave_value_list	Fordschur (const octave_value_list &args, int)

Macro Definition Documentation

PREPARE_ARGS

#define PREPARE_ARGS	(		TYPE,
			TYPE_M,
			TYPE_COND
	)

Value:

  TYPE ## Matrix U = args(0).x ## TYPE_M ## _value                      \
    ("ordschur: U and S must be real or complex floating point matrices"); \
  TYPE ## Matrix S = args(1).x ## TYPE_M ## _value                      \
    ("ordschur: U and S must be real or complex floating point matrices"); \
  TYPE ## Matrix w (dim_vector (n, 1));                                 \
  TYPE ## Matrix work (dim_vector (n, 1));                              \
  F77_INT m;                                                            \
  F77_INT info;                                                         \
  TYPE_COND cond1, cond2;

PREPARE_OUTPUT

#define PREPARE_OUTPUT

(

)

Value:

  if (info != 0)                                \
    error ("ordschur: trsen failed");           \
                                                \
  retval = ovl (U, S);

Function Documentation

Fordschur()

octave_value_list Fordschur	(	const octave_value_list &	args,
		int
	)

Definition at line 80 of file ordschur.cc.

References Array< T, Alloc >::data(), error(), F77_DBLE_CMPLX_ARG, F77_XFCN, m, n, Array< T, Alloc >::numel(), PREPARE_ARGS, PREPARE_OUTPUT, print_usage(), Faddeeva::w(), and Array< T, Alloc >::xelem().