class WHITE_GEN < $RANDOM_GEN |
---|
$RANDOM_GEN |
attr seed : CARD ; |
---|
**** | Current state of generator. |
create : SAME |
---|
get : FLTD .. Included as get |
---|
init( .. Included as init |
---|
const Def_Seed : CARD := 42 ; |
---|
**** | must not be zero!!!!! |
const ms_a : FLTD := 16807.0d ; |
---|
**** |
shared ms_m : FLTD ; |
---|
shared ms_m : FLTD ; |
---|
shared ms_md : FLTD ; |
---|
shared ms_md : FLTD ; |
---|
attr seed : CARD ; |
---|
**** | Current state of generator. |