c **********************************************************************
      function f2(x)
c **********************************************************************
c
c     function f2(x)=4*sqrt(1.0d0-x**2)
c
c     |x| > 1          it returns 0
c
c **********************************************************************
      implicit real*8 (a-h,o-z)
c
      if(abs(x).gt.1.0d0) then
         f2=0.0d0
      else
         f2=4*sqrt(1.0d0-x**2)
      endif
c
      end