23 #if ! defined (octave_lo_amos_proto_h)
24 #define octave_lo_amos_proto_h 1
26 #include "octave-config.h"
36 const F77_INT&, F77_CMPLX*,
41 const F77_INT&,
const F77_INT&,
42 F77_DBLE&, F77_DBLE&, F77_INT&,
49 const F77_INT&,
const F77_INT&,
50 const F77_INT&, F77_CMPLX*,
54 F77_FUNC (
zbesh, ZBESH) (
const F77_DBLE&,
const F77_DBLE&,
const F77_DBLE&,
55 const F77_INT&,
const F77_INT&,
56 const F77_INT&, F77_DBLE*, F77_DBLE*,
63 const F77_INT&,
const F77_INT&,
64 F77_CMPLX*, F77_INT&, F77_INT&);
67 F77_FUNC (
zbesi, ZBESI) (
const F77_DBLE&,
const F77_DBLE&,
const F77_DBLE&,
68 const F77_INT&,
const F77_INT&,
69 F77_DBLE*, F77_DBLE*, F77_INT&,
76 const F77_INT&,
const F77_INT&,
77 F77_CMPLX*, F77_INT&, F77_INT&);
80 F77_FUNC (
zbesj, ZBESJ) (
const F77_DBLE&,
const F77_DBLE&,
const F77_DBLE&,
81 const F77_INT&,
const F77_INT&,
82 F77_DBLE*, F77_DBLE*, F77_INT&,
89 const F77_INT&,
const F77_INT&,
90 F77_CMPLX*, F77_INT&, F77_INT&);
93 F77_FUNC (
zbesk, ZBESK) (
const F77_DBLE&,
const F77_DBLE&,
const F77_DBLE&,
94 const F77_INT&,
const F77_INT&,
95 F77_DBLE*, F77_DBLE*, F77_INT&,
102 const F77_INT&,
const F77_INT&,
103 F77_CMPLX*, F77_INT&,
104 F77_CMPLX*, F77_INT&);
107 F77_FUNC (
zbesy, ZBESY) (
const F77_DBLE&,
const F77_DBLE&,
const F77_DBLE&,
108 const F77_INT&,
const F77_INT&,
109 F77_DBLE*, F77_DBLE*, F77_INT&, F77_DBLE*,
110 F77_DBLE*, F77_INT&);
115 F77_FUNC (
cbiry, CBIRY) (
const F77_CMPLX*,
const F77_INT&,
const F77_INT&,
116 const F77_CMPLX*, F77_INT&);
120 const F77_INT&,
const F77_INT&,
121 F77_DBLE&, F77_DBLE&, F77_INT&);
subroutine cairy(Z, ID, KODE, AI, NZ, IERR)
subroutine zairy(ZR, ZI, ID, KODE, AIR, AII, NZ, IERR)
subroutine cbiry(Z, ID, KODE, BI, IERR)
subroutine zbesj(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, IERR)
subroutine cbesy(Z, FNU, KODE, N, CY, NZ, CWRK, IERR)
subroutine zbesi(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, IERR)
subroutine cbesk(Z, FNU, KODE, N, CY, NZ, IERR)
subroutine cbesi(Z, FNU, KODE, N, CY, NZ, IERR)
subroutine zbiry(ZR, ZI, ID, KODE, BIR, BII, IERR)
F77_RET_T F77_FUNC(cairy, CAIRY)(const F77_CMPLX *
subroutine zbesh(ZR, ZI, FNU, KODE, M, N, CYR, CYI, NZ, IERR)
subroutine cbesh(Z, FNU, KODE, M, N, CY, NZ, IERR)
subroutine cbesj(Z, FNU, KODE, N, CY, NZ, IERR)
subroutine zbesy(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, CWRKR, CWRKI, IERR)
subroutine zbesk(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, IERR)