GNU Octave  3.8.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
Macros | Functions | Variables
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,
 
)    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,
 
)    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); \
{ \
octave_interrupt_immediately = saved_octave_interrupt_immediately; \
octave_restore_current_context (saved_context); \
F77_XFCN_ERROR (f, F); \
} \
else \
{ \
octave_interrupt_immediately++; \
F77_FUNC (f, F) args; \
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
CRUFT_API int long GCC_ATTR_NORETURN

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