BOSS 7.1.0
BESIII Offline Software System
Loading...
Searching...
No Matches
BesEvtGen/BesEvtGen-00-04-26/src/phokhara/PHOKHARA/ranlux_fort.c File Reference
#include <stdlib.h>
#include <stdio.h>
#include <math.h>
#include "ranlxd.h"

Go to the source code of this file.

Functions

int rlxdinit_ (int *lux, int *seed)
 
int rlxdgetf_ (int *state)
 
int rlxdresetf_ (int *state1)
 
int rlxd_sizef_ (int *n)
 

Function Documentation

◆ rlxd_sizef_()

int rlxd_sizef_ ( int *  n)

Definition at line 40 of file BesEvtGen/BesEvtGen-00-04-26/src/phokhara/PHOKHARA/ranlux_fort.c.

41{ int n1;
42 n1=rlxd_size();
43 *n=n1;
44/* printf("n1= "); printf("%d\t",n1); */
45}
const Int_t n
int n1
Definition: SD0Tag.cxx:54

◆ rlxdgetf_()

int rlxdgetf_ ( int *  state)

Definition at line 24 of file BesEvtGen/BesEvtGen-00-04-26/src/phokhara/PHOKHARA/ranlux_fort.c.

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

◆ rlxdinit_()

int rlxdinit_ ( int *  lux,
int *  seed 
)

Definition at line 6 of file BesEvtGen/BesEvtGen-00-04-26/src/phokhara/PHOKHARA/ranlux_fort.c.

7{ int lux1,seed1;
8 lux1=*lux;seed1=*seed;
9/* printf("%d\t",lux1);
10 printf("%d\n\n",seed1); */
11 rlxd_init(lux1,seed1);
12}

◆ rlxdresetf_()

int rlxdresetf_ ( int *  state1)

Definition at line 32 of file BesEvtGen/BesEvtGen-00-04-26/src/phokhara/PHOKHARA/ranlux_fort.c.

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