Searched refs:r48 (Results 1 – 1 of 1) sorted by relevance
17 static double _dorander48(PetscRandom_Rander48 *r48) in _dorander48() argument22 accu = (unsigned long)r48->mult[0] * (unsigned long)r48->seed[0] + (unsigned long)r48->add; in _dorander48()25 …accu += (unsigned long)r48->mult[0] * (unsigned long)r48->seed[1] + (unsigned long)r48->mult[1] * … in _dorander48()28 …ccu += (unsigned long)r48->mult[0] * r48->seed[2] + (unsigned long)r48->mult[1] * r48->seed[1] + (… in _dorander48()29 r48->seed[0] = temp[0]; in _dorander48()30 r48->seed[1] = temp[1]; in _dorander48()31 r48->seed[2] = (unsigned short)accu; in _dorander48()32 …return ldexp((double)r48->seed[0], -48) + ldexp((double)r48->seed[1], -32) + ldexp((double)r48->se… in _dorander48()37 PetscRandom_Rander48 *r48 = (PetscRandom_Rander48 *)r->data; in PetscRandomSeed_Rander48() local40 r48->seed[0] = RANDER48_SEED_0; in PetscRandomSeed_Rander48()[all …]