fortran程序有点问题不知道出在哪里,这是我写的程序,判断年份是不是闰年的.（年数是4的倍数时,是闰年.是100的倍数时除外,不是闰年.除非又刚好是400的倍数）我运行程序后不管输入什么都是3

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才是实型运算