Question

fortran程序有点问题不知道出在哪里，初学者请教

这是我写的程序，判断年份是不是闰年的。（年数是4的倍数时，是闰年。是100的倍数时除外，不是闰年。除非又刚好是400的倍数）我运行程序后不管输入什么都是366天。不知道问题出在哪里。初学者求问各大神。
program main5
implicit none
integer year,days
real a,b,c,d,e,f
write(*,*)"年份："
read(*,*)year
a=year/4
b=year/100
c=year/400
d=int(year/4)
e=int(year/100)
f=int(year/400)
if(a-d==0.0)then
if(b-e.ne.0.0)then
days=366
else
if(c-f==0.0)then
days=366
else
days=365
end if
end if
else
days=365
end if
write(*,"('这一年有',i3,'天')")days
stop
end program main5

Answer 1

a=year/4.0
b=year/100.0
c=year/400.0
默认整型计算
加.0才是实型运算