#include "quit.h"

Include dependency graph for f77-fcn.h:

This graph shows which files directly or indirectly include 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.

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.

Referenced by Fordschur().

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

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

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(), AEPBALANCE::balancing_matrix(), ComplexAEPBALANCE::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(), F__pchip_deriv__(), Fblkmm(), Fdot(), Matrix::finverse(), FloatMatrix::finverse(), ComplexMatrix::finverse(), FloatComplexMatrix::finverse(), FloatAEPBALANCE::FloatAEPBALANCE(), FloatComplexAEPBALANCE::FloatComplexAEPBALANCE(), FloatComplexLU::FloatComplexLU(), FloatComplexSCHUR::FloatComplexSCHUR(), FloatLU::FloatLU(), Fordschur(), 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(), FloatComplexSCHUR::init(), FloatSVD::init(), CHOL::init(), ComplexSVD::init(), FloatCHOL::init(), ComplexCHOL::init(), FloatComplexSVD::init(), FloatComplexCHOL::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(), FloatComplexQR::update(), LU::update(), FloatLU::update(), QR::update(), FloatComplexLU::update(), ComplexLU::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.

Macros

Functions

Variables

Macro Definition Documentation

Function Documentation

Variable Documentation