NK
if (prandgen->seedptr >= (prandgen->ira + NK))
prandgen->seedptr -= NK;
for (i = NK * initTimes; i; i--) {
if (prandgen->rndptrX >= (prandgen->ira + NK)) {
prandgen->rndptrX -= NK;
if (prandgen->rndptrA >= (prandgen->ira + NK))
prandgen->rndptrA -= NK;
if (prandgen->rndptrB >= (prandgen->ira + NK))
prandgen->rndptrB -= NK;
prandgen->seedptr = prandgen->ira + chrand (prandgen) % NK;
prandgen->rndptrX = prandgen->ira + chrand (prandgen) % NK;
prandgen->rndptrA = prandgen->ira + chrand (prandgen) % NK;
prandgen->rndptrB = prandgen->ira + chrand (prandgen) % NK;
if (sRandomCount >= NK/8) {
OCTET ira[NK]; /* numbers live here */