f77-fcn.h File Reference

#include "octave-config.h"
#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_CMPLX   float _Complex
#define	F77_CMPLX_ARG(x)   reinterpret_cast<float _Complex *> (x)
#define	F77_CONST_CMPLX_ARG(x)   reinterpret_cast<const float _Complex *> (x)
#define	F77_CONST_DBLE_CMPLX_ARG(x)   reinterpret_cast<const double _Complex *> (x)
#define	F77_CSTRING(s, len, cs)
#define	F77_DBLE   double
#define	F77_DBLE_CMPLX   double _Complex
#define	F77_DBLE_CMPLX_ARG(x)   reinterpret_cast<double _Complex *> (x)
#define	F77_FCN(f, F)   F77_FUNC (f, F)
#define	F77_INT   octave_idx_type
#define	F77_INT4   int32_t
#define	F77_LOGICAL   octave_idx_type
#define	F77_REAL   float
#define	F77_XFCN(f, F, args)
#define	F77_XFCN_ERROR(f, F)
#define	STRINGIZE(x)   xSTRINGIZE(x)
#define	xSTRINGIZE(x)   #x

Functions
OCTAVE_NORETURN OCTAVE_API F77_RET_T	F77_FUNC (xstopx, XSTOPX)(F77_CONST_CHAR_ARG_DECL F77_CHAR_ARG_LEN_DECL)

Variables
OCTAVE_API int	f77_exception_encountered

Macro Definition Documentation

#define F77_CMPLX   float _Complex

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

#define F77_CMPLX_ARG

(

x

)

reinterpret_cast<float _Complex *> (x)

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

Referenced by aepbalance< T >::aepbalance(), octave::math::airy(), aepbalance< T >::balancing_matrix(), octave::math::biry(), octave::math::cbesh1(), octave::math::cbesh2(), octave::math::cbesi(), octave::math::cbesj(), octave::math::cbesk(), octave::math::cbesy(), chol2inv_internal(), qr< T >::delete_col(), qr< T >::delete_row(), chol< T >::delete_sym(), FloatComplexMatrix::determinant(), chol< T >::downdate(), FloatComplexMatrix::finverse(), qr< T >::form(), FloatComplexMatrix::fsolve(), svd< T >::gesdd(), svd< T >::gesvd(), Givens(), FloatEIG::hermitian_init(), FloatEIG::init(), hess< T >::init(), gepbalance< T >::init(), qrp< T >::init(), schur< T >::init(), chol< T >::init(), qr< T >::init(), qr< T >::insert_col(), qr< T >::insert_row(), chol< T >::insert_sym(), FloatComplexMatrix::lssolve(), FloatComplexMatrix::ltsolve(), lu< T >::lu(), operator*(), FloatComplexMatrix::rcond(), octave::math::rsf2csf< FloatComplexMatrix, FloatMatrix >(), qr< T >::shift_cols(), chol< T >::shift_sym(), Sylvester(), FloatComplexMatrix::tinverse(), lu< T >::update(), chol< T >::update(), qr< T >::update(), lu< T >::update_piv(), FloatComplexMatrix::utsolve(), and xgemm().

#define F77_CONST_CMPLX_ARG

(

x

)

reinterpret_cast<const float _Complex *> (x)

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

Referenced by octave::math::airy(), octave::math::biry(), octave::math::cbesh1(), octave::math::cbesh2(), octave::math::cbesi(), octave::math::cbesj(), octave::math::cbesk(), octave::math::cbesy(), Givens(), qr< T >::insert_col(), FloatComplexMatrix::ltsolve(), operator*(), FloatComplexMatrix::rcond(), lu< T >::update_piv(), FloatComplexMatrix::utsolve(), and xgemm().

#define F77_CONST_DBLE_CMPLX_ARG

(

x

)

reinterpret_cast<const double _Complex *> (x)

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

Referenced by EigsComplexNonSymmetricMatrix(), EigsComplexNonSymmetricMatrixShift(), Givens(), qr< T >::insert_col(), ComplexMatrix::ltsolve(), operator*(), ComplexMatrix::rcond(), lu< T >::update_piv(), ComplexMatrix::utsolve(), vector_product(), and xgemm().

#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 356 of file f77-fcn.h.

#define F77_DBLE   double

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

#define F77_DBLE_CMPLX   double _Complex

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

#define F77_DBLE_CMPLX_ARG

(

x

)

reinterpret_cast<double _Complex *> (x)

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

Referenced by aepbalance< T >::aepbalance(), aepbalance< T >::balancing_matrix(), SparseComplexMatrix::bsolve(), chol2inv_internal(), qr< T >::delete_col(), qr< T >::delete_row(), chol< T >::delete_sym(), ComplexMatrix::determinant(), chol< T >::downdate(), EigsComplexNonSymmetricFunc(), EigsComplexNonSymmetricMatrix(), EigsComplexNonSymmetricMatrixShift(), ComplexMatrix::finverse(), qr< T >::form(), ComplexMatrix::fsolve(), svd< T >::gesdd(), svd< T >::gesvd(), Givens(), EIG::hermitian_init(), EIG::init(), hess< T >::init(), gepbalance< T >::init(), qrp< T >::init(), schur< T >::init(), chol< T >::init(), qr< T >::init(), qr< T >::insert_col(), qr< T >::insert_row(), chol< T >::insert_sym(), ComplexMatrix::lssolve(), ComplexMatrix::ltsolve(), lu< T >::lu(), operator*(), ComplexMatrix::rcond(), octave::math::rsf2csf< ComplexMatrix, Matrix >(), qr< T >::shift_cols(), chol< T >::shift_sym(), Sylvester(), ComplexMatrix::tinverse(), SparseComplexMatrix::trisolve(), SparseMatrix::trisolve(), lu< T >::update(), chol< T >::update(), qr< T >::update(), lu< T >::update_piv(), ComplexMatrix::utsolve(), vector_product(), and xgemm().

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

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

#define F77_INT   octave_idx_type

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

#define F77_INT4   int32_t

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

#define F77_LOGICAL   octave_idx_type

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

#define F77_REAL   float

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

Referenced by octave::math::acosh(), aepbalance< T >::aepbalance(), octave::math::asinh(), octave::math::atanh(), aepbalance< T >::balancing_matrix(), octave::math::betainc(), SparseMatrix::bsolve(), SparseComplexMatrix::bsolve(), chol2inv_internal(), qr< T >::delete_col(), qr< T >::delete_row(), chol< T >::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< T >::downdate(), octave::math::erf(), octave::math::erfc(), F__pchip_deriv__(), Matrix::finverse(), FloatMatrix::finverse(), ComplexMatrix::finverse(), FloatComplexMatrix::finverse(), qr< T >::form(), octave::math::fortran_psifn< double >(), octave::math::fortran_psifn< float >(), Matrix::fsolve(), FloatMatrix::fsolve(), ComplexMatrix::fsolve(), FloatComplexMatrix::fsolve(), octave::math::gamma(), octave::math::gammainc(), EIG::hermitian_init(), FloatEIG::hermitian_init(), hess< T >::init(), gepbalance< T >::init(), qrp< T >::init(), schur< T >::init(), EIG::init(), FloatEIG::init(), chol< T >::init(), qr< T >::init(), qr< T >::insert_col(), qr< T >::insert_row(), chol< T >::insert_sym(), DASRT::integrate(), octave::math::lgamma(), Matrix::lssolve(), FloatMatrix::lssolve(), ComplexMatrix::lssolve(), FloatComplexMatrix::lssolve(), Matrix::ltsolve(), FloatMatrix::ltsolve(), ComplexMatrix::ltsolve(), FloatComplexMatrix::ltsolve(), lu< T >::lu(), operator*(), octave::math::rc_lgamma(), Matrix::rcond(), FloatMatrix::rcond(), ComplexMatrix::rcond(), FloatComplexMatrix::rcond(), octave::math::rsf2csf< ComplexMatrix, Matrix >(), octave::math::rsf2csf< FloatComplexMatrix, FloatMatrix >(), qr< T >::shift_cols(), chol< T >::shift_sym(), Sylvester(), EIG::symmetric_init(), FloatEIG::symmetric_init(), Matrix::tinverse(), FloatMatrix::tinverse(), ComplexMatrix::tinverse(), FloatComplexMatrix::tinverse(), SparseMatrix::trisolve(), SparseComplexMatrix::trisolve(), lu< T >::update(), qr< T >::update(), chol< T >::update(), lu< T >::update_piv(), Matrix::utsolve(), FloatMatrix::utsolve(), ComplexMatrix::utsolve(), FloatComplexMatrix::utsolve(), vector_product(), 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 40 of file f77-fcn.h.

#define STRINGIZE

(

x

)

xSTRINGIZE(x)

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

#define xSTRINGIZE

(

x

)

#x

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

Function Documentation

OCTAVE_NORETURN OCTAVE_API F77_RET_T F77_FUNC	(	xstopx	,
		XSTOPX
	)

Variable Documentation

OCTAVE_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().