google闰年：
目前使用的格里历闰年规则如下：
 
西元年份除以400余数为0的，或者除以4为余数0且除以100不为余数0的，为闰年
算法：
if 西元年份是 400 的倍數 : 閏年
else if 西元年份是 4 的倍數 and 西元年份不是 100 的倍數: 閏年
else : 平年

余数如何判断？小弟初学，望海涵，希望能给出程序，谢谢

program test
            implicit none
            integer :: year
            do
                        print*, "please input the year, type -1 to exit"
                        read(*,*) year
                        if(year == -1)exit
                        if(mod(year,400) == 0)then
                                    print*,"this year is a leap year"
                        elseif(mod(year,4) == 0  .and.   mod(year,100) /= 0)then
                                    print*,"this year is a leap year"
                        else
                                    print*,"this year isn't a leap year"
                        endif
            enddo
end program test

3高手程序编的真好，简单，明确，一看就是高手写的程序。