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