program checkprime      
        integer n
        character result*9
c       This program determines whether an integer is prime. 

        print *, "Please enter a positive integer :"
        read *, n

        call check(n,result)
        print *
        print *, "The integer", n, " is ", result, ". Bye."
        end

        subroutine check(n,result)
        integer n, i, root
        character result*9
        if (n .eq. 1) then
                result = "not prime"
                return
        end if
        root = sqrt(real(n))
        do i = 2, root
                if (mod(n,i) .eq. 0) then
                        result = "not prime"
                        return
                end if
        end do
        result = "prime"
        end