FUNCTION EXPDEV(IDUM)
      EXPDEV=-LOG(RAN1(IDUM))
      RETURN
      END