Return to ranlib.h CVS log

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

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

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
        !             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: 
1.1       albertel   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));
1.2       albertel   29: float capa_gennor  F_ARG((double *num_d, float av,float sd));
1.1       albertel   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));
1.2       albertel   42: /* EXTERN_F float capa_gennor  F_ARG((double *num_d, float av,float sd)); */
1.1       albertel   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));
1.2       albertel   55: EXTERN_F float capa_ranf    F_ARG((void));
1.1       albertel   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