00001 #include <stdlib.h>
00002 #include <stdio.h>
00003 #include <math.h>
00004 #include "ranlxd.h"
00005
00006 int rlxdinit_(int *lux,int *seed)
00007 { int lux1,seed1;
00008 lux1=*lux;seed1=*seed;
00009
00010
00011 rlxd_init(lux1,seed1);
00012 }
00013
00014 int ranlxdf_(double vec[],int *lvec)
00015 { int lvec1,k;
00016 lvec1=*lvec;
00017
00018 ranlxd(vec,lvec1);
00019
00020
00021 }
00022
00023 int rlxdgetf_(int *state)
00024 { int k;
00025 rlxd_get(state);
00026
00027
00028
00029 }
00030
00031 int rlxdresetf_(int *state1)
00032 { int k;
00033 rlxd_reset(state1);
00034
00035
00036
00037 }
00038
00039 int rlxd_sizef_(int *n)
00040 { int n1;
00041 n1=rlxd_size();
00042 *n=n1;
00043
00044 }