14 lines
149 B
C
14 lines
149 B
C
|
|
#include <math.h>
|
|
|
|
float expdev(long *idum)
|
|
{
|
|
float ran1(long *idum);
|
|
float dum;
|
|
|
|
do
|
|
dum=ran1(idum);
|
|
while (dum == 0.0);
|
|
return -log(dum);
|
|
}
|