c **********************************************************************
      function f1(x)
c **********************************************************************
c
c     function f1(x)=pi*sin(pi*x)
c
c **********************************************************************
      implicit real*8 (a-h,o-z)
      pi=4.0d0*atan(1.0d0)
c
      f1=pi*sin(pi*x)
c
      end