File: sprng.C

package info (click to toggle)
sprng 2.0a-16
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 3,308 kB
  • sloc: ansic: 30,353; fortran: 1,618; makefile: 575; cpp: 58; sh: 5
file content (48 lines) | stat: -rw-r--r-- 1,446 bytes parent folder | download | duplicates (9)
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
47
48
/***************************************************************************/
/*            ____Demonstrates the use of sprng in C++____                 */
/* A random number stream is initialized and a few random double precision */
/* numbers are printed.                                                    */
/***************************************************************************/
#include <stdio.h>
#include <string.h>
#include <iostream.h>

#include "sprng.h"  /* SPRNG header file                                   */

#define SEED 985456376



main()
{
  int streamnum, nstreams, *stream;
  double rn;
  int irn;
  int i;
  int gtype; /*---*/
/*--- reading in a generator type */
#include "gen_types_menu.h"
  printf("Type in a generator type (integers: 0,1,2,3,4,5):  ");
  scanf("%d", &gtype);       
/*---*/  
  /****************** Initialization values *******************************/
            
  streamnum = 0;
  nstreams = 1;

  stream = init_sprng(gtype,streamnum,nstreams,SEED,SPRNG_DEFAULT); /* initialize stream */
  cout << " Print information about new stream:\n";
  print_sprng(stream);	

  /*********************** print random numbers ***************************/

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

  free_sprng(stream);  /* free memory used to store stream state */

}