f77-fcn.h File Reference

#include "quit.h"

Include dependency graph for f77-fcn.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Macros
#define	F77_CHAR_ARG(x)   x
#define	F77_CHAR_ARG2(x, l)   x
#define	F77_CHAR_ARG_DECL   char *
#define	F77_CHAR_ARG_DEF(s, len)   char *s
#define	F77_CHAR_ARG_LEN(l)   , l
#define	F77_CHAR_ARG_LEN_DECL   , long
#define	F77_CHAR_ARG_LEN_DEF(len)   , long len
#define	F77_CHAR_ARG_LEN_USE(s, len)   len
#define	F77_CHAR_ARG_USE(s)   s
#define	F77_CONST_CHAR_ARG(x)   F77_CHAR_ARG (x)
#define	F77_CONST_CHAR_ARG2(x, l)   F77_CHAR_ARG2 (x, l)
#define	F77_CONST_CHAR_ARG_DECL   const char *
#define	F77_CONST_CHAR_ARG_DEF(s, len)   const char *s
#define	F77_CSTRING(s, len, cs)
#define	F77_CXX_STRING_ARG(x)   F77_CONST_CHAR_ARG2 (x.c_str (), x.length ())
#define	F77_FCN(f, F)   F77_FUNC (f, F)
#define	F77_NORETURN(retval)   return retval;
#define	F77_RET_T   int
#define	F77_RETURN(retval)   return retval;
#define	F77_XFCN(f, F, args)
#define	F77_XFCN_ERROR(f, F)
#define	STRINGIZE(x)   xSTRINGIZE(x)
#define	xSTRINGIZE(x)   #x

Functions
CRUFT_API int	F77_FUNC (xstopx, XSTOPX)(const char *

Variables
CRUFT_API int	f77_exception_encountered
CRUFT_API int long	GCC_ATTR_NORETURN

Macro Definition Documentation

#define F77_CHAR_ARG

(

x

)

x

Definition at line 248 of file f77-fcn.h.

#define F77_CHAR_ARG2	(		x,
			l
	)		x

Definition at line 250 of file f77-fcn.h.

#define F77_CHAR_ARG_DECL   char *

Definition at line 254 of file f77-fcn.h.

#define F77_CHAR_ARG_DEF	(		s,
			len
	)		char *s

Definition at line 258 of file f77-fcn.h.

#define F77_CHAR_ARG_LEN

(

l

)

, l

Definition at line 253 of file f77-fcn.h.

Referenced by AEPBALANCE::AEPBALANCE(), FloatAEPBALANCE::balancing_matrix(), ComplexAEPBALANCE::balancing_matrix(), AEPBALANCE::balancing_matrix(), FloatComplexAEPBALANCE::balancing_matrix(), SparseMatrix::bsolve(), SparseComplexMatrix::bsolve(), chol2inv_internal(), ComplexAEPBALANCE::ComplexAEPBALANCE(), Matrix::determinant(), FloatMatrix::determinant(), ComplexMatrix::determinant(), FloatComplexMatrix::determinant(), EigsComplexNonSymmetricFunc(), EigsComplexNonSymmetricMatrix(), EigsComplexNonSymmetricMatrixShift(), EigsRealNonSymmetricFunc(), EigsRealNonSymmetricMatrix(), EigsRealNonSymmetricMatrixShift(), EigsRealSymmetricFunc(), EigsRealSymmetricMatrix(), EigsRealSymmetricMatrixShift(), Matrix::finverse(), FloatMatrix::finverse(), ComplexMatrix::finverse(), FloatComplexMatrix::finverse(), FloatAEPBALANCE::FloatAEPBALANCE(), FloatComplexAEPBALANCE::FloatComplexAEPBALANCE(), Fqz(), Matrix::fsolve(), FloatMatrix::fsolve(), ComplexMatrix::fsolve(), FloatComplexMatrix::fsolve(), FloatEIG::hermitian_init(), EIG::hermitian_init(), HESS::init(), FloatHESS::init(), ComplexHESS::init(), FloatComplexHESS::init(), FloatGEPBALANCE::init(), GEPBALANCE::init(), ComplexGEPBALANCE::init(), SCHUR::init(), FloatSCHUR::init(), FloatComplexGEPBALANCE::init(), ComplexSCHUR::init(), CHOL::init(), FloatComplexSCHUR::init(), FloatCHOL::init(), FloatSVD::init(), ComplexCHOL::init(), ComplexSVD::init(), FloatComplexCHOL::init(), FloatComplexSVD::init(), SVD::init(), EIG::init(), FloatEIG::init(), Matrix::lssolve(), FloatMatrix::lssolve(), ComplexMatrix::lssolve(), FloatComplexMatrix::lssolve(), Matrix::ltsolve(), FloatMatrix::ltsolve(), ComplexMatrix::ltsolve(), FloatComplexMatrix::ltsolve(), octave_initialize_interpreter(), operator*(), Matrix::rcond(), FloatMatrix::rcond(), ComplexMatrix::rcond(), FloatComplexMatrix::rcond(), Sylvester(), FloatEIG::symmetric_init(), EIG::symmetric_init(), Matrix::tinverse(), FloatMatrix::tinverse(), ComplexMatrix::tinverse(), FloatComplexMatrix::tinverse(), SparseMatrix::trisolve(), SparseComplexMatrix::trisolve(), Matrix::utsolve(), FloatMatrix::utsolve(), ComplexMatrix::utsolve(), FloatComplexMatrix::utsolve(), vector_product(), and xgemm().

F77_RET_T const octave_idx_type const octave_idx_type const double const octave_idx_type double double & F77_CHAR_ARG_LEN_DECL   , long

Definition at line 256 of file f77-fcn.h.

#define F77_CHAR_ARG_LEN_DEF

(

len

)

, long len

Definition at line 260 of file f77-fcn.h.

#define F77_CHAR_ARG_LEN_USE	(		s,
			len
	)		len

Definition at line 262 of file f77-fcn.h.

#define F77_CHAR_ARG_USE

(

s

)

s

Definition at line 261 of file f77-fcn.h.

#define F77_CONST_CHAR_ARG

(

x

)

F77_CHAR_ARG (x)

Definition at line 249 of file f77-fcn.h.

#define F77_CONST_CHAR_ARG2	(		x,
			l
	)		F77_CHAR_ARG2 (x, l)

Definition at line 251 of file f77-fcn.h.

Referenced by AEPBALANCE::AEPBALANCE(), FloatAEPBALANCE::balancing_matrix(), ComplexAEPBALANCE::balancing_matrix(), AEPBALANCE::balancing_matrix(), FloatComplexAEPBALANCE::balancing_matrix(), SparseMatrix::bsolve(), SparseComplexMatrix::bsolve(), chol2inv_internal(), ComplexAEPBALANCE::ComplexAEPBALANCE(), Matrix::determinant(), FloatMatrix::determinant(), ComplexMatrix::determinant(), FloatComplexMatrix::determinant(), EigsComplexNonSymmetricFunc(), EigsComplexNonSymmetricMatrix(), EigsComplexNonSymmetricMatrixShift(), EigsRealNonSymmetricFunc(), EigsRealNonSymmetricMatrix(), EigsRealNonSymmetricMatrixShift(), EigsRealSymmetricFunc(), EigsRealSymmetricMatrix(), EigsRealSymmetricMatrixShift(), Matrix::finverse(), FloatMatrix::finverse(), ComplexMatrix::finverse(), FloatComplexMatrix::finverse(), FloatAEPBALANCE::FloatAEPBALANCE(), FloatComplexAEPBALANCE::FloatComplexAEPBALANCE(), Fqz(), Matrix::fsolve(), FloatMatrix::fsolve(), ComplexMatrix::fsolve(), FloatComplexMatrix::fsolve(), FloatEIG::hermitian_init(), EIG::hermitian_init(), HESS::init(), FloatHESS::init(), ComplexHESS::init(), FloatComplexHESS::init(), FloatGEPBALANCE::init(), GEPBALANCE::init(), ComplexGEPBALANCE::init(), SCHUR::init(), FloatSCHUR::init(), FloatComplexGEPBALANCE::init(), FloatComplexSCHUR::init(), ComplexSCHUR::init(), CHOL::init(), FloatSVD::init(), FloatCHOL::init(), ComplexCHOL::init(), ComplexSVD::init(), FloatComplexCHOL::init(), FloatComplexSVD::init(), SVD::init(), EIG::init(), FloatEIG::init(), Matrix::lssolve(), FloatMatrix::lssolve(), ComplexMatrix::lssolve(), FloatComplexMatrix::lssolve(), Matrix::ltsolve(), FloatMatrix::ltsolve(), ComplexMatrix::ltsolve(), FloatComplexMatrix::ltsolve(), operator*(), Matrix::rcond(), FloatMatrix::rcond(), ComplexMatrix::rcond(), FloatComplexMatrix::rcond(), Sylvester(), FloatEIG::symmetric_init(), EIG::symmetric_init(), Matrix::tinverse(), FloatMatrix::tinverse(), ComplexMatrix::tinverse(), FloatComplexMatrix::tinverse(), SparseMatrix::trisolve(), SparseComplexMatrix::trisolve(), Matrix::utsolve(), FloatMatrix::utsolve(), ComplexMatrix::utsolve(), FloatComplexMatrix::utsolve(), vector_product(), and xgemm().

F77_RET_T F77_CONST_CHAR_ARG_DECL   const char *

Definition at line 255 of file f77-fcn.h.

#define F77_CONST_CHAR_ARG_DEF	(		s,
			len
	)		const char *s

Definition at line 259 of file f77-fcn.h.

#define F77_CSTRING	(		s,
			len,
			cs
	)

Value:

OCTAVE_LOCAL_BUFFER (char, cs, F77_CHAR_ARG_LEN_USE (s, len) + 1); \
 memcpy (cs, F77_CHAR_ARG_USE (s), F77_CHAR_ARG_LEN_USE (s, len)); \
 cs[F77_CHAR_ARG_LEN_USE(s, len)] = '\0'

Definition at line 281 of file f77-fcn.h.

#define F77_CXX_STRING_ARG

(

x

)

F77_CONST_CHAR_ARG2 (x.c_str (), x.length ())

Definition at line 252 of file f77-fcn.h.

#define F77_FCN	(		f,
			F
	)		F77_FUNC (f, F)

Definition at line 81 of file f77-fcn.h.

#define F77_NORETURN

(

retval

)

return retval;

Definition at line 270 of file f77-fcn.h.

Referenced by F77_FUNC().

#define F77_RET_T   int

Definition at line 264 of file f77-fcn.h.

#define F77_RETURN

(

retval

)

return retval;

Definition at line 266 of file f77-fcn.h.

#define F77_XFCN	(		f,
			F,
			args
	)

Value:

do \
    { \
      octave_jmp_buf saved_context; \
      sig_atomic_t saved_octave_interrupt_immediately = octave_interrupt_immediately; \
      f77_exception_encountered = 0; \
      octave_save_current_context (saved_context); \
      if (octave_set_current_context) \
        { \
          octave_interrupt_immediately = saved_octave_interrupt_immediately; \
          octave_restore_current_context (saved_context); \
          if (f77_exception_encountered) \
            F77_XFCN_ERROR (f, F); \
          else \
            octave_rethrow_exception (); \
        } \
      else \
        { \
          octave_interrupt_immediately++; \
          F77_FUNC (f, F) args; \
          octave_interrupt_immediately--; \
          octave_restore_current_context (saved_context); \
        } \
    } \
  while (0)

Definition at line 51 of file f77-fcn.h.

Referenced by acosh(), acoshf(), AEPBALANCE::AEPBALANCE(), asinh(), asinhf(), atanh(), atanhf(), FloatAEPBALANCE::balancing_matrix(), ComplexAEPBALANCE::balancing_matrix(), AEPBALANCE::balancing_matrix(), FloatComplexAEPBALANCE::balancing_matrix(), betainc(), SparseMatrix::bsolve(), SparseComplexMatrix::bsolve(), chol2inv_internal(), ComplexAEPBALANCE::ComplexAEPBALANCE(), ComplexLU::ComplexLU(), ComplexSCHUR::ComplexSCHUR(), FloatQR::delete_col(), ComplexQR::delete_col(), FloatComplexQR::delete_col(), QR::delete_col(), FloatQR::delete_row(), ComplexQR::delete_row(), FloatComplexQR::delete_row(), QR::delete_row(), CHOL::delete_sym(), FloatCHOL::delete_sym(), ComplexCHOL::delete_sym(), FloatComplexCHOL::delete_sym(), Matrix::determinant(), FloatMatrix::determinant(), ComplexMatrix::determinant(), FloatComplexMatrix::determinant(), LSODE::do_integrate(), DASPK::do_integrate(), DASSL::do_integrate(), DefQuad::do_integrate(), IndefQuad::do_integrate(), FloatDefQuad::do_integrate(), FloatIndefQuad::do_integrate(), CHOL::downdate(), FloatCHOL::downdate(), ComplexCHOL::downdate(), FloatComplexCHOL::downdate(), erf(), erfc(), erfcf(), erff(), F77_FUNC(), Fblkmm(), Fdot(), Matrix::finverse(), FloatMatrix::finverse(), ComplexMatrix::finverse(), FloatComplexMatrix::finverse(), FloatAEPBALANCE::FloatAEPBALANCE(), FloatComplexAEPBALANCE::FloatComplexAEPBALANCE(), FloatComplexLU::FloatComplexLU(), FloatComplexSCHUR::FloatComplexSCHUR(), FloatLU::FloatLU(), FloatQR::form(), ComplexQR::form(), FloatComplexQR::form(), QR::form(), Fqz(), Matrix::fsolve(), FloatMatrix::fsolve(), ComplexMatrix::fsolve(), FloatComplexMatrix::fsolve(), gammainc(), FloatEIG::hermitian_init(), EIG::hermitian_init(), FloatQR::init(), ComplexQR::init(), FloatComplexQR::init(), ComplexQRP::init(), QR::init(), FloatComplexQRP::init(), FloatQRP::init(), QRP::init(), HESS::init(), FloatHESS::init(), ComplexHESS::init(), FloatComplexHESS::init(), FloatGEPBALANCE::init(), GEPBALANCE::init(), SCHUR::init(), ComplexGEPBALANCE::init(), FloatSCHUR::init(), FloatComplexGEPBALANCE::init(), ComplexSCHUR::init(), CHOL::init(), FloatComplexSCHUR::init(), FloatCHOL::init(), FloatSVD::init(), ComplexSVD::init(), ComplexCHOL::init(), FloatComplexCHOL::init(), FloatComplexSVD::init(), SVD::init(), EIG::init(), FloatEIG::init(), FloatQR::insert_col(), ComplexQR::insert_col(), FloatComplexQR::insert_col(), QR::insert_col(), FloatQR::insert_row(), ComplexQR::insert_row(), FloatComplexQR::insert_row(), QR::insert_row(), CHOL::insert_sym(), FloatCHOL::insert_sym(), ComplexCHOL::insert_sym(), FloatComplexCHOL::insert_sym(), DASRT::integrate(), Matrix::lssolve(), FloatMatrix::lssolve(), ComplexMatrix::lssolve(), FloatComplexMatrix::lssolve(), Matrix::ltsolve(), FloatMatrix::ltsolve(), ComplexMatrix::ltsolve(), FloatComplexMatrix::ltsolve(), LU::LU(), operator*(), rc_lgamma(), Matrix::rcond(), FloatMatrix::rcond(), ComplexMatrix::rcond(), FloatComplexMatrix::rcond(), FloatQR::shift_cols(), ComplexQR::shift_cols(), FloatComplexQR::shift_cols(), QR::shift_cols(), CHOL::shift_sym(), FloatCHOL::shift_sym(), ComplexCHOL::shift_sym(), FloatComplexCHOL::shift_sym(), Sylvester(), FloatEIG::symmetric_init(), EIG::symmetric_init(), Matrix::tinverse(), FloatMatrix::tinverse(), ComplexMatrix::tinverse(), FloatComplexMatrix::tinverse(), SparseMatrix::trisolve(), SparseComplexMatrix::trisolve(), FloatQR::update(), ComplexQR::update(), LU::update(), FloatComplexQR::update(), FloatLU::update(), QR::update(), ComplexLU::update(), FloatComplexLU::update(), CHOL::update(), FloatCHOL::update(), ComplexCHOL::update(), FloatComplexCHOL::update(), LU::update_piv(), FloatLU::update_piv(), ComplexLU::update_piv(), FloatComplexLU::update_piv(), Matrix::utsolve(), FloatMatrix::utsolve(), ComplexMatrix::utsolve(), FloatComplexMatrix::utsolve(), vector_product(), xgamma(), xgemm(), and xlgamma().

#define F77_XFCN_ERROR	(		f,
			F
	)

Value:

(*current_liboctave_error_handler) \
    ("exception encountered in Fortran subroutine %s", \
     STRINGIZE (F77_FUNC (f, F)))

Definition at line 38 of file f77-fcn.h.

#define STRINGIZE

(

x

)

xSTRINGIZE(x)

Definition at line 34 of file f77-fcn.h.

#define xSTRINGIZE

(

x

)

#x

Definition at line 33 of file f77-fcn.h.

Function Documentation

CRUFT_API int F77_FUNC	(	xstopx	,
		XSTOPX
	)		const

Variable Documentation

CRUFT_API int f77_exception_encountered

Definition at line 35 of file f77-extern.cc.

Referenced by EigsComplexNonSymmetricFunc(), EigsComplexNonSymmetricMatrix(), EigsComplexNonSymmetricMatrixShift(), EigsRealNonSymmetricFunc(), EigsRealNonSymmetricMatrix(), EigsRealNonSymmetricMatrixShift(), EigsRealSymmetricFunc(), EigsRealSymmetricMatrix(), EigsRealSymmetricMatrixShift(), F77_FUNC(), and vector_product().

CRUFT_API int long GCC_ATTR_NORETURN

Definition at line 289 of file f77-fcn.h.