Fortran程序纠错，求助

菜鸟一个，求各位大神指教哪里有错误，断点调试J值跳动
求3-200的素数输出，万分感谢呀。
program main
integer i,j
print*,'2-200之间素数有:'
do i=3,200
do j=2,i-1
if(mod(i,j)/=0) then
print*,i
else
endif
enddo
enddo
end