Fortran闰年判断

_Grape

用Fortran实现闰年判断
要求：输入任意年份，判断该年是否为闰年并输出该年份的天数。
分析：1.满足以下条件为闰年：年份是4的倍数，年份是400的倍数，注意年份是100的倍数不是闰年！
2.闰年有366天，平年有365天
代码仅供参考：

program main

implicit none

integer flag,year !flag用于区分闰年/平年，设置闰年：flag=1，平年：flag=0

print*,"请输入年份："

read*,year

if (mod(year,400)==0) then !条件判断用连等号‘==’

  flag=1

else if(mod(year,100)==0) then

  flag=0

else if(mod(year,4)==0) then

  flag=1

end if

if (flag==1) then

  print*,year,"年有366天，是闰年"

else

  print*,year,"年有365天，是平年"

end if

end