Phokhara/Phokhara-00-01-00/src/ranlux_fort.c

Go to the documentation of this file.

#include <stdlib.h>
#include <stdio.h>
#include <math.h>
#include "ranlxd.h"
 
int rlxdinit_(int *lux,int *seed)
{     int lux1,seed1;
  lux1=*lux;seed1=*seed;
/*   printf("%d\t",lux1);
      printf("%d\n\n",seed1); */ 
  rlxd_init(lux1,seed1);
}
 
int ranlxdf_(double vec[],int *lvec)
{   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 rlxdgetf_(int *state)
{  int k;
rlxd_get(state);
/* printf("========\n");
   for (k=0;k<=rlxd_size();k++) 
   {printf("%d\t",k); printf("%d\n",state[k]);}; */
}
 
  int rlxdresetf_(int *state1)
{  int k;
rlxd_reset(state1);
/* printf("========\n");
   for (k=0;k<=rlxd_size();k++) 
   {printf("%d\t",k); printf("%d\n",state1[k]);}; */
}
 
  int rlxd_sizef_(int *n)
{ int n1;
  n1=rlxd_size();
  *n=n1;
/*   printf("n1= "); printf("%d\t",n1); */
}