1: /* Prototypes for all user accessible RANLIB routines
2: Copyright (C) 1992-2000 Michigan State University
3:
4: The CAPA system is free software; you can redistribute it and/or
5: modify it under the terms of the GNU Library General Public License as
6: published by the Free Software Foundation; either version 2 of the
7: License, or (at your option) any later version.
8:
9: The CAPA system is distributed in the hope that it will be useful,
10: but WITHOUT ANY WARRANTY; without even the implied warranty of
11: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12: Library General Public License for more details.
13:
14: You should have received a copy of the GNU Library General Public
15: License along with the CAPA system; see the file COPYING. If not,
16: write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17: Boston, MA 02111-1307, USA. */
18:
19:
20:
21: #ifndef _RAND_H
22: #define _RAND_H
23:
24: #define F_ARG(x) x
25:
26:
27:
28: float genbet F_ARG((float aa,float bb));
29: float capa_gennor F_ARG((double *num_d, float av,float sd));
30: #define EXTERN_F
31:
32: EXTERN_F void advnst F_ARG((long k));
33: /* EXTERN_F float genbet F_ARG((float aa,float bb)); */
34: EXTERN_F float genchi F_ARG((float df));
35: EXTERN_F float genexp F_ARG((float av));
36: EXTERN_F float genf F_ARG((float dfn, float dfd));
37: EXTERN_F float gengam F_ARG((float a,float r));
38: EXTERN_F void genmn F_ARG((float *parm,float *x,float *work));
39: EXTERN_F float gennch F_ARG((float df,float xnonc));
40: EXTERN_F float gennf F_ARG((float dfn, float dfd, float xnonc));
41: EXTERN_F float gennor F_ARG((float av,float sd));
42: /* EXTERN_F float capa_gennor F_ARG((double *num_d, float av,float sd)); */
43: EXTERN_F void genprm F_ARG((long *iarray,int larray));
44: EXTERN_F float genunf F_ARG((float low,float high));
45: EXTERN_F void getsd F_ARG((long *iseed1,long *iseed2));
46: EXTERN_F void gscgn F_ARG((long getset,long *g));
47: EXTERN_F long ignbin F_ARG((long n,float pp));
48: EXTERN_F long ignlgi F_ARG((void));
49: EXTERN_F long ignpoi F_ARG((float mu));
50: EXTERN_F long ignuin F_ARG((long low,long high));
51: EXTERN_F void initgn F_ARG((long isdtyp));
52: EXTERN_F long mltmod F_ARG((long a,long s,long m));
53: EXTERN_F void phrtsd F_ARG((char* phrase,long* seed1,long* seed2));
54: EXTERN_F float ranf F_ARG((void));
55: EXTERN_F float capa_ranf F_ARG((void));
56: EXTERN_F void setall F_ARG((long iseed1,long iseed2));
57: EXTERN_F void setant F_ARG((long qvalue));
58: EXTERN_F void setgmn F_ARG((float *meanv,float *covm,long p,float *parm));
59: EXTERN_F void setsd F_ARG((long iseed1,long iseed2));
60: EXTERN_F float sexpo F_ARG((void));
61: EXTERN_F float sgamma F_ARG((float a));
62: EXTERN_F float snorm F_ARG((void));
63:
64: #endif
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>