ranlux_fort.c File Reference

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

Go to the source code of this file.

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

Function Documentation

rlxd_sizef_()

void rlxd_sizef_

(

int *

n

)

Definition at line 41 of file BesEvtGen/phokhara/PHOKHARA/ranlux_fort.c.

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

rlxdgetf_()

void rlxdgetf_

(

int *

state

)

Definition at line 25 of file BesEvtGen/phokhara/PHOKHARA/ranlux_fort.c.

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

rlxdinit_()

void rlxdinit_	(	int *	lux,
		int *	seed )

Definition at line 6 of file BesEvtGen/phokhara/PHOKHARA/ranlux_fort.c.

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

rlxdresetf_()

void rlxdresetf_

(

int *

state1

)

Definition at line 33 of file BesEvtGen/phokhara/PHOKHARA/ranlux_fort.c.

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