Return to ranlib.h CVS log

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

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

1.1       albertel    1: /* Prototypes for all user accessible RANLIB routines */
                      2: 
                      3: 
                      4: #ifndef  _RAND_H
                      5: #define _RAND_H
                      6: 
                      7: #define  F_ARG(x)  x
                      8: 
                      9: 
                     10: 
                     11: float genbet  F_ARG((float aa,float bb));
1.2     ! albertel   12: float capa_gennor  F_ARG((double *num_d, float av,float sd));
1.1       albertel   13: #define EXTERN_F  
                     14: 
                     15: EXTERN_F void  advnst  F_ARG((long k));
                     16: /* EXTERN_F float genbet  F_ARG((float aa,float bb)); */
                     17: EXTERN_F float genchi  F_ARG((float df));
                     18: EXTERN_F float genexp  F_ARG((float av));
                     19: EXTERN_F float genf    F_ARG((float dfn, float dfd));
                     20: EXTERN_F float gengam  F_ARG((float a,float r));
                     21: EXTERN_F void genmn    F_ARG((float *parm,float *x,float *work));
                     22: EXTERN_F float gennch  F_ARG((float df,float xnonc));
                     23: EXTERN_F float gennf   F_ARG((float dfn, float dfd, float xnonc));
                     24: EXTERN_F float gennor  F_ARG((float av,float sd));
1.2     ! albertel   25: /* EXTERN_F float capa_gennor  F_ARG((double *num_d, float av,float sd)); */
1.1       albertel   26: EXTERN_F void genprm   F_ARG((long *iarray,int larray));
                     27: EXTERN_F float genunf  F_ARG((float low,float high));
                     28: EXTERN_F void getsd    F_ARG((long *iseed1,long *iseed2));
                     29: EXTERN_F void gscgn    F_ARG((long getset,long *g));
                     30: EXTERN_F long ignbin   F_ARG((long n,float pp));
                     31: EXTERN_F long ignlgi   F_ARG((void));
                     32: EXTERN_F long ignpoi   F_ARG((float mu));
                     33: EXTERN_F long ignuin   F_ARG((long low,long high));
                     34: EXTERN_F void initgn   F_ARG((long isdtyp));
                     35: EXTERN_F long mltmod   F_ARG((long a,long s,long m));
                     36: EXTERN_F void phrtsd   F_ARG((char* phrase,long* seed1,long* seed2));
                     37: EXTERN_F float ranf    F_ARG((void));
1.2     ! albertel   38: EXTERN_F float capa_ranf    F_ARG((void));
1.1       albertel   39: EXTERN_F void setall   F_ARG((long iseed1,long iseed2));
                     40: EXTERN_F void setant   F_ARG((long qvalue));
                     41: EXTERN_F void setgmn   F_ARG((float *meanv,float *covm,long p,float *parm));
                     42: EXTERN_F void setsd    F_ARG((long iseed1,long iseed2));
                     43: EXTERN_F float sexpo   F_ARG((void));
                     44: EXTERN_F float sgamma  F_ARG((float a));
                     45: EXTERN_F float snorm   F_ARG((void));
                     46: 
                     47: #endif