GNU Octave  6.2.0
A high-level interpreted language, primarily intended for numerical computations, mostly compatible with Matlab
lo-ranlib-proto.h
Go to the documentation of this file.
1 ////////////////////////////////////////////////////////////////////////
2 //
3 // Copyright (C) 2016-2021 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_ranlib_proto_h)
27 #define octave_lo_ranlib_proto_h 1
28 
29 #include "octave-config.h"
30 
31 #include "f77-fcn.h"
32 
33 extern "C"
34 {
35  F77_RET_T
36  F77_FUNC (dgenexp, DGENEXP) (const F77_DBLE&, F77_DBLE&);
37 
38  F77_RET_T
39  F77_FUNC (dgengam, DGENGAM) (const F77_DBLE&, const F77_DBLE&, F77_DBLE&);
40 
41  F77_RET_T
42  F77_FUNC (dgennor, DGENNOR) (const F77_DBLE&, const F77_DBLE&, F77_DBLE&);
43 
44  F77_RET_T
45  F77_FUNC (dgenunf, DGENUNF) (const F77_DBLE&, const F77_DBLE&, F77_DBLE&);
46 
47  F77_RET_T
48  F77_FUNC (dignpoi, DIGNPOI) (const F77_DBLE&, F77_DBLE&);
49 
50  F77_RET_T
51  F77_FUNC (fgenexp, FGENEXP) (const F77_REAL&, F77_REAL&);
52 
53  F77_RET_T
54  F77_FUNC (fgengam, FGENGAM) (const F77_REAL&, const F77_REAL&, F77_REAL&);
55 
56  F77_RET_T
57  F77_FUNC (fgennor, FGENNOR) (const F77_REAL&, const F77_REAL&, F77_REAL&);
58 
59  F77_RET_T
60  F77_FUNC (fgenunf, FGENUNF) (const F77_REAL&, const F77_REAL&, F77_REAL&);
61 
62  F77_RET_T
63  F77_FUNC (fignpoi, FIGNPOI) (const F77_REAL&, F77_REAL&);
64 
65  F77_RET_T
67 
68  F77_RET_T
69  F77_FUNC (setall, SETALL) (const F77_INT4&, const F77_INT4&);
70 
71  F77_RET_T
72  F77_FUNC (setcgn, SETCGN) (const F77_INT4&);
73 
74  F77_RET_T
75  F77_FUNC (setsd, SETSD) (const F77_INT4&, const F77_INT4&);
76 }
77 
78 #endif
float F77_REAL
Definition: f77-fcn.h:302
double F77_DBLE
Definition: f77-fcn.h:301
int32_t F77_INT4
Definition: f77-fcn.h:306
subroutine getsd(iseed1, iseed2)
Definition: getsd.f:2
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 F77_FUNC(dgenexp, DGENEXP)(const F77_DBLE &
subroutine setall(iseed1, iseed2)
Definition: setall.f:2
subroutine setsd(iseed1, iseed2)
Definition: setsd.f:2
subroutine fignpoi(mu, result)
Definition: wrap.f:65
subroutine fgennor(av, sd, result)
Definition: wrap.f:37
subroutine dgenunf(low, high, result)
Definition: wrap.f:9
subroutine fgenexp(av, result)
Definition: wrap.f:51
subroutine dgengam(a, r, result)
Definition: wrap.f:23
subroutine dgenexp(av, result)
Definition: wrap.f:16
subroutine fgengam(a, r, result)
Definition: wrap.f:58
subroutine fgenunf(low, high, result)
Definition: wrap.f:44
subroutine dgennor(av, sd, result)
Definition: wrap.f:2
subroutine dignpoi(mu, result)
Definition: wrap.f:30