float
gasdev
(
long
*idum)
;