GNU Octave  4.4.1
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-2018 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
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
11 
12 Octave is distributed in the hope that it will be useful, but
13 WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License 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 <https://www.gnu.org/licenses/>.
20 
21 */
22 
23 #if ! defined (octave_lo_ranlib_proto_h)
24 #define octave_lo_ranlib_proto_h 1
25 
26 #include "octave-config.h"
27 
28 #include "f77-fcn.h"
29 
30 extern "C"
31 {
32  F77_RET_T
33  F77_FUNC (dgenexp, DGENEXP) (const F77_DBLE&, F77_DBLE&);
34 
35  F77_RET_T
36  F77_FUNC (dgengam, DGENGAM) (const F77_DBLE&, const F77_DBLE&, F77_DBLE&);
37 
38  F77_RET_T
39  F77_FUNC (dgennor, DGENNOR) (const F77_DBLE&, const F77_DBLE&, F77_DBLE&);
40 
41  F77_RET_T
42  F77_FUNC (dgenunf, DGENUNF) (const F77_DBLE&, const F77_DBLE&, F77_DBLE&);
43 
44  F77_RET_T
45  F77_FUNC (dignpoi, DIGNPOI) (const F77_DBLE&, F77_DBLE&);
46 
47  F77_RET_T
48  F77_FUNC (fgenexp, FGENEXP) (const F77_REAL&, F77_REAL&);
49 
50  F77_RET_T
51  F77_FUNC (fgengam, FGENGAM) (const F77_REAL&, const F77_REAL&, F77_REAL&);
52 
53  F77_RET_T
54  F77_FUNC (fgennor, FGENNOR) (const F77_REAL&, const F77_REAL&, F77_REAL&);
55 
56  F77_RET_T
57  F77_FUNC (fgenunf, FGENUNF) (const F77_REAL&, const F77_REAL&, F77_REAL&);
58 
59  F77_RET_T
60  F77_FUNC (fignpoi, FIGNPOI) (const F77_REAL&, F77_REAL&);
61 
62  F77_RET_T
63  F77_FUNC (getsd, GETSD) (F77_INT4&, F77_INT4&);
64 
65  F77_RET_T
66  F77_FUNC (setall, SETALL) (const F77_INT4&, const F77_INT4&);
67 
68  F77_RET_T
69  F77_FUNC (setcgn, SETCGN) (const F77_INT4&);
70 
71  F77_RET_T
72  F77_FUNC (setsd, SETSD) (const F77_INT4&, const F77_INT4&);
73 }
74 
75 #endif
subroutine setsd(iseed1, iseed2)
Definition: setsd.f:2
double F77_DBLE
Definition: f77-fcn.h:301
subroutine dignpoi(mu, result)
Definition: wrap.f:30
float F77_REAL
Definition: f77-fcn.h:302
subroutine fgenunf(low, high, result)
Definition: wrap.f:44
int32_t F77_INT4
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)
subroutine dgenunf(low, high, result)
Definition: wrap.f:9
subroutine dgenexp(av, result)
Definition: wrap.f:16
subroutine dgengam(a, r, result)
Definition: wrap.f:23
F77_RET_T F77_FUNC(dgenexp, DGENEXP)(const F77_DBLE &
subroutine fgenexp(av, result)
Definition: wrap.f:51
subroutine setall(iseed1, iseed2)
Definition: setall.f:2
subroutine fgennor(av, sd, result)
Definition: wrap.f:37
subroutine dgennor(av, sd, result)
Definition: wrap.f:2
subroutine getsd(iseed1, iseed2)
Definition: getsd.f:2
subroutine fignpoi(mu, result)
Definition: wrap.f:65
subroutine fgengam(a, r, result)
Definition: wrap.f:58