program squares
! calculate squares
! JWP 29/10/98

implicit none

integer :: number
integer, parameter :: max = 10
real :: real_number, root
!
print *, 'Table of square roots'
print *, 'Number  ', '        Square root'
!
do number=1, max
   real_number = real(number)
   root = sqrt(real_number)
   print *,  number, root
end do
!
end program squares