GNU Octave  8.1.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
lo-slatec-proto.h
Go to the documentation of this file.
1 ////////////////////////////////////////////////////////////////////////
2 //
3 // Copyright (C) 2016-2023 The Octave Project Developers
4 //
5 // See the file COPYRIGHT.md in the top-level directory of this
6 // distribution or <https://octave.org/copyright/>.
7 //
8 // This file is part of Octave.
9 //
10 // Octave is free software: you can redistribute it and/or modify it
11 // under the terms of the GNU General Public License as published by
12 // the Free Software Foundation, either version 3 of the License, or
13 // (at your option) any later version.
14 //
15 // Octave is distributed in the hope that it will be useful, but
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 // GNU General Public License for more details.
19 //
20 // You should have received a copy of the GNU General Public License
21 // along with Octave; see the file COPYING. If not, see
22 // <https://www.gnu.org/licenses/>.
23 //
24 ////////////////////////////////////////////////////////////////////////
25 
26 #if ! defined (octave_lo_slatec_proto_h)
27 #define octave_lo_slatec_proto_h 1
28 
29 #include "octave-config.h"
30 
31 #include "f77-fcn.h"
32 
33 extern "C"
34 {
35  // PCHIM
36 
37  F77_RET_T
38  F77_FUNC (dpchim, DPCHIM) (const F77_INT& n, const F77_DBLE *x,
39  const F77_DBLE *f, F77_DBLE *d,
40  const F77_INT& incfd,
42 
43  F77_RET_T
44  F77_FUNC (pchim, PCHIM) (const F77_INT& n, const F77_REAL *x,
45  const F77_REAL *f, F77_REAL *d,
46  const F77_INT& incfd,
47  F77_INT& ierr);
48 
49  // PSIFN
50 
51  F77_RET_T
52  F77_FUNC (psifn, PSIFN) (const F77_REAL&, const F77_INT&,
53  const F77_INT&, const F77_INT&,
54  F77_REAL&, F77_INT&, F77_INT&);
55 
56  F77_RET_T
57  F77_FUNC (dpsifn, DPSIFN) (const F77_DBLE&, const F77_INT&,
58  const F77_INT&, const F77_INT&,
59  F77_DBLE&, F77_INT&, F77_INT&);
60 }
61 
62 #endif
subroutine dpchim(N, X, F, D, INCFD, IERR)
Definition: dpchim.f:3
subroutine dpsifn(X, N, KODE, M, ANS, NZ, IERR)
Definition: dpsifn.f:3
float F77_REAL
Definition: f77-fcn.h:303
double F77_DBLE
Definition: f77-fcn.h:302
octave_f77_int_type F77_INT
Definition: f77-fcn.h:306
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)
F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE * d
F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE const F77_INT F77_INT & ierr
F77_RET_T const F77_DBLE * x
F77_RET_T F77_FUNC(dpchim, DPCHIM)(const F77_INT &n
F77_RET_T const F77_DBLE const F77_DBLE * f
F77_RET_T const F77_DBLE const F77_DBLE F77_DBLE const F77_INT & incfd
octave_idx_type n
Definition: mx-inlines.cc:753
subroutine pchim(N, X, F, D, INCFD, IERR)
Definition: pchim.f:3
subroutine psifn(X, N, KODE, M, ANS, NZ, IERR)
Definition: psifn.f:3