function efit(x)
      common/pawpar/p(2)
      efit=p(1)*EXP(p(2)*x)
      end