#include "quit.h"

Include dependency graph for f77-fcn.h:

Defines
#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_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 F77_RET_T	F77_FUNC (xstopx, XSTOPX)(F77_CONST_CHAR_ARG_DECL F77_CHAR_ARG_LEN_DECL) GCC_ATTR_NORETURN
Variables
CRUFT_API int	f77_exception_encountered

Define Documentation

#define F77_CHAR_ARG ( x ) x

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

#define F77_CHAR_ARG2	(	x,
		l
	)		x

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

#define F77_CHAR_ARG_DECL char *

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

#define F77_CHAR_ARG_DEF	(	s,
		len
	)		char *s

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

#define F77_CHAR_ARG_LEN ( l ) , l

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

F77_RET_T const octave_idx_type const octave_idx_type const float const octave_idx_type float float & F77_CHAR_ARG_LEN_DECL , long

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

#define F77_CHAR_ARG_LEN_DEF ( len ) , long len

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

#define F77_CHAR_ARG_LEN_USE	(	s,
		len
	)		len

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

#define F77_CHAR_ARG_USE ( s ) s

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

#define F77_CONST_CHAR_ARG ( x ) F77_CHAR_ARG (x)

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

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

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

F77_RET_T const float float float float &F77_RET_T F77_CONST_CHAR_ARG_DECL const char *

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

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

Definition at line 199 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 215 of file f77-fcn.h.

#define F77_CXX_STRING_ARG ( x ) F77_CONST_CHAR_ARG2 (x.c_str (), x.length ())

Definition at line 190 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_RET_T int

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

#define F77_RETURN ( retval ) return retval;

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

Referenced by F77_FUNC().

#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(), FloatComplexAEPBALANCE::balancing_matrix(), AEPBALANCE::balancing_matrix(), ComplexAEPBALANCE::balancing_matrix(), betainc(), SparseMatrix::bsolve(), SparseComplexMatrix::bsolve(), chol2inv_internal(), ComplexAEPBALANCE::ComplexAEPBALANCE(), ComplexLU::ComplexLU(), ComplexSCHUR::ComplexSCHUR(), DEFUN_DLD(), FloatMatrix::determinant(), FloatComplexMatrix::determinant(), Matrix::determinant(), ComplexMatrix::determinant(), FloatIndefQuad::do_integrate(), FloatDefQuad::do_integrate(), IndefQuad::do_integrate(), DefQuad::do_integrate(), LSODE::do_integrate(), DASSL::do_integrate(), DASPK::do_integrate(), erf(), erfc(), erfcf(), erff(), F77_FUNC(), FloatMatrix::finverse(), FloatComplexMatrix::finverse(), Matrix::finverse(), ComplexMatrix::finverse(), FloatAEPBALANCE::FloatAEPBALANCE(), FloatComplexAEPBALANCE::FloatComplexAEPBALANCE(), FloatComplexLU::FloatComplexLU(), FloatComplexSCHUR::FloatComplexSCHUR(), FloatLU::FloatLU(), FloatQR::form(), FloatComplexQR::form(), QR::form(), ComplexQR::form(), FloatMatrix::fsolve(), FloatComplexMatrix::fsolve(), Matrix::fsolve(), ComplexMatrix::fsolve(), gammainc(), FloatEIG::hermitian_init(), EIG::hermitian_init(), FloatSVD::init(), FloatSCHUR::init(), FloatQRP::init(), FloatQR::init(), FloatHESS::init(), FloatGEPBALANCE::init(), FloatCHOL::init(), FloatEIG::init(), FloatComplexSVD::init(), FloatComplexSCHUR::init(), FloatComplexQRP::init(), FloatComplexQR::init(), FloatComplexHESS::init(), FloatComplexGEPBALANCE::init(), FloatComplexCHOL::init(), EIG::init(), SVD::init(), SCHUR::init(), QRP::init(), QR::init(), HESS::init(), GEPBALANCE::init(), CHOL::init(), ComplexSVD::init(), ComplexSCHUR::init(), ComplexQRP::init(), ComplexQR::init(), ComplexHESS::init(), ComplexGEPBALANCE::init(), ComplexCHOL::init(), DASRT::integrate(), FloatMatrix::lssolve(), FloatComplexMatrix::lssolve(), Matrix::lssolve(), ComplexMatrix::lssolve(), FloatMatrix::ltsolve(), FloatComplexMatrix::ltsolve(), Matrix::ltsolve(), ComplexMatrix::ltsolve(), LU::LU(), operator*(), rc_lgamma(), FloatMatrix::rcond(), FloatComplexMatrix::rcond(), Matrix::rcond(), ComplexMatrix::rcond(), Sylvester(), FloatEIG::symmetric_init(), EIG::symmetric_init(), FloatMatrix::tinverse(), FloatComplexMatrix::tinverse(), Matrix::tinverse(), ComplexMatrix::tinverse(), SparseMatrix::trisolve(), SparseComplexMatrix::trisolve(), FloatMatrix::utsolve(), FloatComplexMatrix::utsolve(), Matrix::utsolve(), ComplexMatrix::utsolve(), 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 F77_RET_T F77_FUNC	(	xstopx	,
		XSTOPX
	)

Variable Documentation

CRUFT_API int f77_exception_encountered

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

Referenced by F77_FUNC().

f77-fcn.h File Reference

Defines

Functions

Variables

Define Documentation

Function Documentation

Variable Documentation