function sinus(x)
      common/pawpar/par(2)
      Pi=3.1415928
      sinus=par(1)*sin(x*par(2))
      end