Subversion Repositories gelsvn

Rev

Rev 417 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 417 Rev 595
Line -... Line 1...
- 
 
 1 
/* ----------------------------------------------------------------------- *
- 
 
 2 
 * This file is part of GEL, http://www.imm.dtu.dk/GEL
- 
 
 3 
 * Copyright (C) the authors and DTU Informatics
- 
 
 4 
 * For license and list of authors, see ../../doc/intro.pdf
- 
 
 5 
 * ----------------------------------------------------------------------- */
- 
 
 6 
 
1 
#include "CGLA.h"
 7 
#include "CGLA.h"
2 
 
 8 
 
3 
namespace
 9 
namespace
4 
{
 10 
{
5 
  unsigned int seed = 1;
 11 
  unsigned int seed = 1;
Line 28... Line 34...
28 
    return result;
 34 
    return result;
29 
  }
 35 
  }
30 
 
 36 
 
31 
  unsigned int gel_rand()
 37 
  unsigned int gel_rand()
32 
  {
 38 
  {
33 
    unsigned int b = 3125;
 39 
    const unsigned int b = 3125;
34 
    unsigned int c = 49;
 40 
    const unsigned int c = 49;
35 
 
 41 
 
36 
    current_rand = current_rand*b + c;
 42 
    current_rand = current_rand*b + c;
37 
    return current_rand;
 43 
    return current_rand;
38 
  }
 44 
  }
39 
}
 45 
}
40 
 
 46