FUNCTION EXPRAN(AVERAG)
      EXPRAN=-AVERAG*ALOG(RANF(0)) 
      RETURN
      END