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	ranlxdf_ (double vec[], int *lvec)
void	rlxdgetf_ (int *state)
void	rlxdresetf_ (int *state1)
void	rlxd_sizef_ (int *n)

Function Documentation

ranlxdf_()

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

Definition at line 15 of file Phokhara/src/ranlux_fort.c.

                                         {
  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]); } */
}

rlxd_sizef_()

void rlxd_sizef_

(

int *

n

)

Definition at line 40 of file Phokhara/src/ranlux_fort.c.

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

rlxdgetf_()

void rlxdgetf_

(

int *

state

)

Definition at line 24 of file Phokhara/src/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 Phokhara/src/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 32 of file Phokhara/src/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]);}; */
}