PROGRAM ROOT
C
C Computes and prints the square root of a REAL
C
      IMPLICIT NONE
      REAL X, Y

      PRINT *, 'Please enter a positive real number: '
      READ *, X
      Y = SQRT(X)
      PRINT *, 'The square root of ', X, ' is ', Y

      Y = SQRT(X)*SQRT(X)
      PRINT *, 'The square of the square root of ', X, ' is ', Y

      PRINT *, 'Once again, the square root of ', X, ' is ', SQRT(X)

      STOP
      END