درخواست از کسایی که فرترن بلد هستن

[saeed6343]

دوستان من دانشجوی رشته مکانیک هستم و درسی دارم به نام برنامه نویسی که استاد اون فرترن رو درس داد و دو پروژه داد که یکی از اونها برنامه ای هست که دو عدد m و n رو بگیره و اعداد اول بینش رو چاپ کنه من فلوچارت زیر رو براش کشیدم.و برنامه پایین رو هم نوشتم ولی فقط تو جواب میزنه 0.00000 خواهشا کمک کنید:
این برنامه ای هست که نوشتم:
program saeed
implicit none
real :: m,n,k,r,t
integer:: d
read*,m,n
if (m<n) then
k=1
d=1
else
end if
do

m=t
n=m
t=n
if (m<n) then
k=1
d=1
end if

r=mod(m,k)
if (r==0) then
d=d+1
k=k+1
end if
if (k<=(m/2)) then
else
end if

if (d==2) then
print*,m
else
m=m+1
end if
end do
if (m<n) then
else
end if
end program saeed
این هم فلوچارت:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[saeed6343]

یعنی هیچ کس برای کمک اینجا نمیاد؟؟؟؟؟؟؟؟