24 #if defined (HAVE_CONFIG_H)
49 bool rows = (nargin == 3 &&
args(2).uint_value () == 2);
53 if (
args(0).is_single_type () ||
args(1).is_single_type ())
61 error (
"__pchip_deriv__: X must be at least of length 2");
66 if (nx != (rows ? nyc : nyr))
67 error (
"__pchip_deriv__: X and Y dimension mismatch");
79 ymat.
data () + k * inc,
86 error (
"__pchip_deriv__: PCHIM failed with ierr = %i", ierr);
99 error (
"__pchip_deriv__: X must be at least of length 2");
104 if (nx != (rows ? nyc : nyr))
105 error (
"__pchip_deriv__: X and Y dimension mismatch");
117 ymat.
data () + k * inc,
123 error (
"__pchip_deriv__: DPCHIM failed with ierr = %i", ierr);
F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T const F77_REAL const F77_REAL F77_REAL &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T const F77_DBLE F77_DBLE &F77_RET_T const F77_REAL F77_REAL &F77_RET_T F77_REAL F77_REAL &F77_RET_T F77_DBLE F77_DBLE &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE const F77_INT F77_INT * ierr
subroutine dpchim(N, X, F, D, INCFD, IERR)
octave_idx_type numel(void) const
Number of elements in the array.
#define DEFUN(name, args_name, nargout_name, doc)
void error(const char *fmt,...)
#define F77_XFCN(f, F, args)
octave_idx_type rows(void) const
const T * data(void) const
F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T const F77_REAL const F77_REAL F77_REAL &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T F77_DBLE &F77_RET_T F77_REAL &F77_RET_T F77_REAL &F77_RET_T F77_DBLE &F77_RET_T const F77_DBLE F77_DBLE &F77_RET_T const F77_REAL F77_REAL &F77_RET_T F77_REAL F77_REAL &F77_RET_T F77_DBLE F77_DBLE &F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE const F77_INT & incfd
subroutine pchim(N, X, F, D, INCFD, IERR)
=val(i)}if ode{val(i)}occurs in table i
const T * fortran_vec(void) const
octave_idx_type columns(void) const