23 #if ! defined (octave_lo_amos_proto_h) 24 #define octave_lo_amos_proto_h 1 26 #include "octave-config.h" subroutine ZBESK(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, IERR)
subroutine CBESH(Z, FNU, KODE, M, N, CY, NZ, IERR)
subroutine ZBESY(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, CWRKR, CWRKI, IERR)
static Complex zbesk(const Complex &z, double alpha, int kode, octave_idx_type &ierr)
subroutine ZBESI(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, IERR)
subroutine CAIRY(Z, ID, KODE, AI, NZ, IERR)
subroutine ZBESH(ZR, ZI, FNU, KODE, M, N, CYR, CYI, NZ, IERR)
subroutine ZBESJ(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, IERR)
F77_RET_T(F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, F77_CONST_CHAR_ARG_DECL, const F77_INT &, const F77_INT &, const F77_INT &, F77_INT &, F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, F77_DBLE *, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, const F77_INT &, F77_DBLE *, F77_INT *, F77_INT &F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL F77_CHAR_ARG_LEN_DECL)
static Complex zbesj(const Complex &z, double alpha, int kode, octave_idx_type &ierr)
subroutine CBIRY(Z, ID, KODE, BI, IERR)
static FloatComplex cbesk(const FloatComplex &z, float alpha, int kode, octave_idx_type &ierr)
subroutine CBESK(Z, FNU, KODE, N, CY, NZ, IERR)
static Complex zbesi(const Complex &z, double alpha, int kode, octave_idx_type &ierr)
F77_RET_T F77_FUNC(cairy, CAIRY)(const F77_CMPLX *
static FloatComplex cbesy(const FloatComplex &z, float alpha, int kode, octave_idx_type &ierr)
static Complex zbesy(const Complex &z, double alpha, int kode, octave_idx_type &ierr)
subroutine CBESI(Z, FNU, KODE, N, CY, NZ, IERR)
subroutine ZBIRY(ZR, ZI, ID, KODE, BIR, BII, IERR)
octave_f77_int_type F77_INT
static FloatComplex cbesi(const FloatComplex &z, float alpha, int kode, octave_idx_type &ierr)
subroutine CBESY(Z, FNU, KODE, N, CY, NZ, CWRK, IERR)
static FloatComplex cbesj(const FloatComplex &z, float alpha, int kode, octave_idx_type &ierr)
subroutine ZAIRY(ZR, ZI, ID, KODE, AIR, AII, NZ, IERR)