GNU Octave  4.2.1
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Properties Friends Macros Pages
lo-amos-proto.h
Go to the documentation of this file.
1 /*
2 
3 Copyright (C) 2016-2017 John W. Eaton
4 
5 This file is part of Octave.
6 
7 Octave is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by the
9 Free Software Foundation; either version 3 of the License, or (at your
10 option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but WITHOUT
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
15 for more details.
16 
17 You should have received a copy of the GNU General Public License
18 along with Octave; see the file COPYING. If not, see
19 <http://www.gnu.org/licenses/>.
20 
21 */
22 
23 #if ! defined (octave_lo_amos_proto_h)
24 #define octave_lo_amos_proto_h 1
25 
26 #include "octave-config.h"
27 
28 #include "f77-fcn.h"
29 
30 extern "C"
31 {
32  // AIRY
33 
34  F77_RET_T
35  F77_FUNC (cairy, CAIRY) (const F77_CMPLX*, const F77_INT&,
36  const F77_INT&, F77_CMPLX*,
37  F77_INT&, F77_INT&);
38 
39  F77_RET_T
40  F77_FUNC (zairy, ZAIRY) (const F77_DBLE&, const F77_DBLE&,
41  const F77_INT&, const F77_INT&,
42  F77_DBLE&, F77_DBLE&, F77_INT&,
43  F77_INT&);
44 
45  // BESH
46 
47  F77_RET_T
48  F77_FUNC (cbesh, CBESH) (const F77_CMPLX*, const F77_REAL&,
49  const F77_INT&, const F77_INT&,
50  const F77_INT&, F77_CMPLX*,
51  F77_INT&, F77_INT&);
52 
53  F77_RET_T
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*,
57  F77_INT&, F77_INT&);
58 
59  // BESI
60 
61  F77_RET_T
62  F77_FUNC (cbesi, CBESI) (const F77_CMPLX*, const F77_REAL&,
63  const F77_INT&, const F77_INT&,
64  F77_CMPLX*, F77_INT&, F77_INT&);
65 
66  F77_RET_T
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&,
70  F77_INT&);
71 
72  // BESJ
73 
74  F77_RET_T
75  F77_FUNC (cbesj, cBESJ) (const F77_CMPLX*, const F77_REAL&,
76  const F77_INT&, const F77_INT&,
77  F77_CMPLX*, F77_INT&, F77_INT&);
78 
79  F77_RET_T
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&,
83  F77_INT&);
84 
85  // BESK
86 
87  F77_RET_T
88  F77_FUNC (cbesk, CBESK) (const F77_CMPLX*, const F77_REAL&,
89  const F77_INT&, const F77_INT&,
90  F77_CMPLX*, F77_INT&, F77_INT&);
91 
92  F77_RET_T
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&,
96  F77_INT&);
97 
98  // BESY
99 
100  F77_RET_T
101  F77_FUNC (cbesy, CBESY) (const F77_CMPLX*, const F77_REAL&,
102  const F77_INT&, const F77_INT&,
103  F77_CMPLX*, F77_INT&,
104  F77_CMPLX*, F77_INT&);
105 
106  F77_RET_T
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&);
111 
112  // BIRY
113 
114  F77_RET_T
115  F77_FUNC (cbiry, CBIRY) (const F77_CMPLX*, const F77_INT&, const F77_INT&,
116  const F77_CMPLX*, F77_INT&);
117 
118  F77_RET_T
119  F77_FUNC (zbiry, ZBIRY) (const F77_DBLE&, const F77_DBLE&,
120  const F77_INT&, const F77_INT&,
121  F77_DBLE&, F77_DBLE&, F77_INT&);
122 }
123 
124 #endif
subroutine cairy(Z, ID, KODE, AI, NZ, IERR)
Definition: cairy.f:1
subroutine zairy(ZR, ZI, ID, KODE, AIR, AII, NZ, IERR)
Definition: zairy.f:1
subroutine cbiry(Z, ID, KODE, BI, IERR)
Definition: cbiry.f:1
subroutine zbesj(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, IERR)
Definition: zbesj.f:1
subroutine cbesy(Z, FNU, KODE, N, CY, NZ, CWRK, IERR)
Definition: cbesy.f:1
#define F77_REAL
Definition: f77-fcn.h:332
subroutine zbesi(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, IERR)
Definition: zbesi.f:1
subroutine cbesk(Z, FNU, KODE, N, CY, NZ, IERR)
Definition: cbesk.f:1
#define F77_CMPLX
Definition: f77-fcn.h:334
subroutine cbesi(Z, FNU, KODE, N, CY, NZ, IERR)
Definition: cbesi.f:1
subroutine zbiry(ZR, ZI, ID, KODE, BIR, BII, IERR)
Definition: zbiry.f:1
F77_RET_T F77_FUNC(cairy, CAIRY)(const F77_CMPLX *
subroutine zbesh(ZR, ZI, FNU, KODE, M, N, CYR, CYI, NZ, IERR)
Definition: zbesh.f:1
#define F77_INT
Definition: f77-fcn.h:335
subroutine cbesh(Z, FNU, KODE, M, N, CY, NZ, IERR)
Definition: cbesh.f:1
subroutine cbesj(Z, FNU, KODE, N, CY, NZ, IERR)
Definition: cbesj.f:1
subroutine zbesy(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, CWRKR, CWRKI, IERR)
Definition: zbesy.f:1
subroutine zbesk(ZR, ZI, FNU, KODE, N, CYR, CYI, NZ, IERR)
Definition: zbesk.f:1
#define F77_DBLE
Definition: f77-fcn.h:331