Phokhara/src/ranlux_fort.c

Go to the documentation of this file.

#include "ranlxd.h"
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
 
void 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 );
}
 
void 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]); } */
}
 
void 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]);}; */
}
 
void 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]);}; */
}
 
void rlxd_sizef_( int* n ) {
  int n1;
  n1 = rlxd_size();
  *n = n1;
  /*   printf("n1= "); printf("%d\t",n1); */
}