urand.c File Reference

#include <math.h>
#include "machine.h"
#include "sciprint.h"

Include dependency graph for urand.c:

Go to the source code of this file.

Functions
unsigned long	urandc ()
int	set_state_urand (double g)
void	get_state_urand (double g[])
Variables
static unsigned long	s = 0

---

Function Documentation

void get_state_urand

(

double

g[]

)

Definition at line 51 of file urand.c.

References s.

Referenced by RandI().

{
  g[0] = (double) s;
}

Here is the caller graph for this function:

int set_state_urand

(

double

g

)

Definition at line 37 of file urand.c.

References long, s, and sciprint().

Referenced by RandI().

{
  if ( g == floor(g) &&  0 <= g && g <= 2147483647 )
    {
      s = (unsigned long) g;
      return ( 1 );
    }
  else
    {
      sciprint("\n\r bad seed for urand, must be an integer in [0,  2147483647]\n\r");
      return ( 0 );
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

unsigned long urandc

(

)

Definition at line 27 of file urand.c.

References s.

{
  s = 843314861ul * s + 453816693ul;  /* => on obtient ici un resultat modulo 2^32 */

  /* il suffit du test suivant pour obtenir le modulo 2^31 */
  if (s >= 2147483648ul) s -= 2147483648ul;

  return ( s );
}

---

Variable Documentation

unsigned long s = 0 [static]

Definition at line 25 of file urand.c.

---