C Created:  Joe Zachary, October 26, 1992
C Modified:


C This function takes a real number "X" as an argument and computes
C its square root using an approximation algorithm.

      REAL FUNCTION SROOT (X, COUNT)

      IMPLICIT NONE
      REAL X, GUESS
      INTEGER COUNT, I

      GUESS = 1
      DO I = 1, COUNT
         GUESS = (GUESS + X/GUESS) / 2
      ENDDO

      SROOT = GUESS
      RETURN
      END



C This program repeatedly calculates square roots.

      PROGRAM ROOTS

      IMPLICIT NONE
      REAL SROOT
      INTEGER I

      DO I = 1, 10
         PRINT *, 'The approximate square root of ',
     +            I, ' is ', SROOT(I, 10)
      ENDDO

      STOP
      END