#include "ov.h"
#include "defun.h"
#include "error.h"
#include "dNDArray.h"
#include "fNDArray.h"
#include "lo-specfun.h"
Go to the source code of this file.
◆ FLOAT_BRANCH [1/2]
#define FLOAT_BRANCH |
( |
|
T, |
|
|
|
A, |
|
|
|
M, |
|
|
|
E |
|
) |
| |
Value:if (oct_z.is_ ## T ##_type ()) \
{ \
const
A ##
NDArray z = oct_z.M ## array_value (); \
\
const E *zv = z.
data (); \
E *psi_zv = psi_z.fortran_vec (); \
\
retval = psi_z; \
}
const T * data(void) const
F77_RET_T const F77_INT F77_CMPLX * A
◆ FLOAT_BRANCH [2/2]
#define FLOAT_BRANCH |
( |
|
T, |
|
|
|
A, |
|
|
|
M, |
|
|
|
E |
|
) |
| |
Value:if (oct_z.is_ ## T ##_type ()) \
{ \
const
A ##
NDArray z = oct_z.M ## array_value (); \
\
const E *zv = z.
data (); \
E *psi_zv = psi_z.fortran_vec (); \
{ \
if (*zv < 0) \
error ("psi: Z must be non-negative for polygamma (K > 0)"); \
\
} \
retval = psi_z; \
}
const T * data(void) const
F77_RET_T const F77_INT F77_CMPLX * A
◆ Fpsi()
◆ functions()
◆ ar
◆ defined
◆ function
◆ of