      REAL FUNCTION mu0(X)

      COMMON/PAWPAR/PAR(3)

      MU0=PAR(1)*EXP(-X/PAR(2))+PAR(3)

      RETURN
      END
