/home/bes3soft/bes3soft/Boss/7.0.2/dist/7.0.2/Generator/Phokhara/Phokhara-00-00-14/src/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	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 14 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 39 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 23 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 31 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]);}; */
}

---