real function fit(t)
      real t
      real pard
      common /pawpar/pard(6)
      f = pard(1)*exp(-t*pard(2))*sin(abs((t-5.0e-8)*pard(3))**0.5) +
     +    pard(4)*exp(-t*pard(5))*sin(abs((t-5.0e-8)*pard(6))**0.5)
      end

      real function fitf(t)
      real t
      real pard
      common /pawpar/pard(6)
      vector par(6)
      pard(1)=par(1)
      pard(2)=par(2)
      pard(3)=par(3)
      pard(4)=par(4)
      pard(5)=par(5)
      pard(6)=par(6)
      ff = f(t)
      end