SUBROUTINE SUB(X,Y)
      WRITE(6,10) X, Y
   10 FORMAT(' THE SQUARE ROOT OF ',F4.1,' IS EQUAL TO',F6.3)
      RETURN
      END