Fortran Wiki
allocate_coin_toss