/home/bes3soft/bes3soft/Boss/7.0.2/dist/7.0.2/Generator/BesEvtGen/BesEvtGen-00-03-58/src/EvtGen/EvtGenModels/ranlux_fort.c File Reference

#include <stdlib.h>
#include <stdio.h>
#include <math.h>
#include "EvtGenModels/ranlxd.h"

Go to the source code of this file.

Functions
int	rlxdinit_ (int *lux, int *seed)
int	ranlxdf_ (double vec[], int *lvec)
int	rlxdgetf_ (int *state)
int	rlxdresetf_ (int *state1)
int	rlxd_sizef_ (int *n)

---

Function Documentation

int ranlxdf_	(	double	vec[],
		int *	lvec
	)

Definition at line 15 of file ranlux_fort.c.

References ranlxd().

{   int lvec1,k; 
   lvec1=*lvec;
   //  printf("\n%d\n",lvec1); 
  ranlxd(vec,lvec1);
  //   for (k=0;k<lvec1;k++) 
  //    { printf("%d\t",k); printf("%12.9f\n",vec[k]); } 
 
}

int rlxd_sizef_

(

int *

n

)

Definition at line 42 of file ranlux_fort.c.

References n1, and rlxd_size().

{ int n1;
  n1=rlxd_size();
  *n=n1;
/*   printf("n1= "); printf("%d\t",n1); */
}

int rlxdgetf_

(

int *

state

)

Definition at line 26 of file ranlux_fort.c.

References rlxd_get().

{  int k;
rlxd_get(state);
/* printf("========\n");
   for (k=0;k<=rlxd_size();k++) 
   {printf("%d\t",k); printf("%d\n",state[k]);}; */
}

int rlxdinit_	(	int *	lux,
		int *	seed
	)

Definition at line 6 of file ranlux_fort.c.

References rlxd_init().

{     int lux1,seed1;
  lux1=*lux;seed1=*seed;
/*   printf("%d\t",lux1);
      printf("%d\n\n",seed1); */ 
  rlxd_init(lux1,seed1);
}

int rlxdresetf_

(

int *

state1

)

Definition at line 34 of file ranlux_fort.c.

References rlxd_reset().

{  int k;
rlxd_reset(state1);
/* printf("========\n");
   for (k=0;k<=rlxd_size();k++) 
   {printf("%d\t",k); printf("%d\n",state1[k]);}; */
}

---