File: sprng-simple.c

package info (click to toggle)
sprng 2.0a-2
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,076 kB
  • ctags: 2,031
  • sloc: ansic: 30,361; fortran: 1,618; makefile: 566; cpp: 58; sh: 5
file content (46 lines) | stat: -rw-r--r-- 1,418 bytes parent folder | download | duplicates (10)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
/***************************************************************************/
/*            ____Demonstrates the use of sprng and isprng____             */
/* A random number stream is initialized and a few random double precision */
/* numbers and a few integers are printed.                                 */
/***************************************************************************/

#include <stdio.h>
 
#define SIMPLE_SPRNG		/* simple interface                        */
#include "sprng.h"              /* SPRNG header file                       */

#define SEED 985456376



main()
{
  int seed, i, irn;
  double rn;


  /************************** Initialization *******************************/

  init_sprng(DEFAULT_RNG_TYPE,SEED,SPRNG_DEFAULT);     /* initialize stream                       */
  printf(" Print information about new stream:\n");
  print_sprng();	

  /*********************** print random numbers ****************************/
            
  printf(" Printing 3 random numbers in [0,1):\n");
  for (i=0;i<3;i++)
  {
    rn = sprng();		/* generate double precision random number */
    printf("%f\n",rn);
  }

  /*********************** print random integers ***************************/
            
  printf(" Printing 3 random integers in [0,2^31):\n");
  for (i=0;i<3;i++)
  {
    irn = isprng();	       /* generate an integer random number        */
    printf("%16d\n",irn);
  }

}