Return to ranlib.h CVS log

Up to [LON-CAPA] / capa / capa51 / pProj

Annotation of capa/capa51/pProj/ranlib.h, revision 1.5

1.3       albertel    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
1.5     ! albertel    5:    modify it under the terms of the GNU General Public License as
1.3       albertel    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
1.5     ! albertel   12:    General Public License for more details.
1.3       albertel   13: 
1.5     ! albertel   14:    You should have received a copy of the GNU General Public
1.3       albertel   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,
1.4       albertel   17:    Boston, MA 02111-1307, USA.
                     18: 
                     19:    As a special exception, you have permission to link this program
                     20:    with the TtH/TtM library and distribute executables, as long as you
                     21:    follow the requirements of the GNU GPL in regard to all of the
                     22:    software in the executable aside from TtH/TtM.
                     23: */
1.3       albertel   24: 
1.1       albertel   25: 
                     26: 
                     27: #ifndef  _RAND_H
                     28: #define _RAND_H
                     29: 
                     30: #define  F_ARG(x)  x
                     31: 
                     32: 
                     33: 
                     34: float genbet  F_ARG((float aa,float bb));
1.2       albertel   35: float capa_gennor  F_ARG((double *num_d, float av,float sd));
1.1       albertel   36: #define EXTERN_F  
                     37: 
                     38: EXTERN_F void  advnst  F_ARG((long k));
                     39: /* EXTERN_F float genbet  F_ARG((float aa,float bb)); */
                     40: EXTERN_F float genchi  F_ARG((float df));
                     41: EXTERN_F float genexp  F_ARG((float av));
                     42: EXTERN_F float genf    F_ARG((float dfn, float dfd));
                     43: EXTERN_F float gengam  F_ARG((float a,float r));
                     44: EXTERN_F void genmn    F_ARG((float *parm,float *x,float *work));
                     45: EXTERN_F float gennch  F_ARG((float df,float xnonc));
                     46: EXTERN_F float gennf   F_ARG((float dfn, float dfd, float xnonc));
                     47: EXTERN_F float gennor  F_ARG((float av,float sd));
1.2       albertel   48: /* EXTERN_F float capa_gennor  F_ARG((double *num_d, float av,float sd)); */
1.1       albertel   49: EXTERN_F void genprm   F_ARG((long *iarray,int larray));
                     50: EXTERN_F float genunf  F_ARG((float low,float high));
                     51: EXTERN_F void getsd    F_ARG((long *iseed1,long *iseed2));
                     52: EXTERN_F void gscgn    F_ARG((long getset,long *g));
                     53: EXTERN_F long ignbin   F_ARG((long n,float pp));
                     54: EXTERN_F long ignlgi   F_ARG((void));
                     55: EXTERN_F long ignpoi   F_ARG((float mu));
                     56: EXTERN_F long ignuin   F_ARG((long low,long high));
                     57: EXTERN_F void initgn   F_ARG((long isdtyp));
                     58: EXTERN_F long mltmod   F_ARG((long a,long s,long m));
                     59: EXTERN_F void phrtsd   F_ARG((char* phrase,long* seed1,long* seed2));
                     60: EXTERN_F float ranf    F_ARG((void));
1.2       albertel   61: EXTERN_F float capa_ranf    F_ARG((void));
1.1       albertel   62: EXTERN_F void setall   F_ARG((long iseed1,long iseed2));
                     63: EXTERN_F void setant   F_ARG((long qvalue));
                     64: EXTERN_F void setgmn   F_ARG((float *meanv,float *covm,long p,float *parm));
                     65: EXTERN_F void setsd    F_ARG((long iseed1,long iseed2));
                     66: EXTERN_F float sexpo   F_ARG((void));
                     67: EXTERN_F float sgamma  F_ARG((float a));
                     68: EXTERN_F float snorm   F_ARG((void));
                     69: 
                     70: #endif