cccccccccc Fortran routine: fthrt.f cccccccccc

c For computing the fourth-root of
c a non-negative number.

c Last changed: 18 SEP 2003

      subroutine fthrt(x,ans)
      double precision x,ans

      ans = sqrt(sqrt(x))

      return
      end

ccccccccc End of fthrt.f ccccccccc