function FF(xx)
      IMPLICIT REAL*8 (a-h, o-z)
c
      ff=.5*(5.d0/xx+xx)
c
      RETURN
      END