R binomial RNG stuck at 1 via Fortran call

???????????????????????????????????????????????????????????????????
Gilles Guillot 
INRA - MIA Paris 

Currently working from G?teborg Stochastic Centre
Eklandagatan 86 - Rum1439 
Chalmers University of Technology
SE 412-96 G?teborg Sweden 
Phone +46 31 772 3514 / Fax +46 31772 3508

www.inapg.inra.fr/ens_rech/mathinfo/personnel/guillot/welcome.html
???????????????????????????????????????????????????????????????????