C234567890123456789012345678901234567890123456789012345678901234567890

        program roots
C<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C Print out first k square roots
C This program illustrates the use of intrinsic functions to evaluate
C numbers
C<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
        print *, ' Enter number of square roots to be evaluated'
        read *, k
        j  = 1
                do while (j.le. k)
                real = float(j)
                root = sqrt(real)
                strange = alog10(root**3)
                print *, ' Root of ', j, ' is ',root
                print *, ' Alog10 of root cubed is ', strange
                j = j + 1
                enddo
        end
C234567890123456789012345678901234567890123456789012345678901234567890