Return to ranlib.h CVS log

Up to [LON-CAPA] / loncom / homework / CAPA-converter

Annotation of loncom/homework/CAPA-converter/ranlib.h, revision 1.1

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));
        !            12: float capa_gennor  F_ARG((double *num_d, float av,float sd));
        !            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));
        !            25: /* EXTERN_F float capa_gennor  F_ARG((double *num_d, float av,float sd)); */
        !            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));
        !            38: EXTERN_F float capa_ranf    F_ARG((void));
        !            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