Fortran判断是否为闰年

liudy02 · 发表于 2020-7-3 00:21:57

li913 发表于 2020-7-2 22:29
(mod(year,400)==0) .or. (mod(year,100)/=0.and.mod(year,4)==0)

这个写法不符合尽量减少计算量的原则，虽然没啥大影响……
最节省计算量的写法应该是三个表达式的次序完全倒过来

liudy02 · 发表于 2020-7-3 00:23:49

fcode 发表于 2020-7-2 10:54
[mw_shl_code=fortran,true]program test0504
implicit none
integer year

版主，判断表达式似乎不太对劲……

liudy02 · 发表于 2020-7-7 09:41:29

本帖最后由 liudy02 于 2020-7-7 09:44 编辑

15235312522 发表于 2020-7-3 09:25
谢谢老师的指教，问题处理好了

最合理的判断语句应该是：
(mod(year,4）==0 .and. (mod(year,100)/=0 .or. mod(year,400)==0))
这样才是最节省计算量的办法

[求助] Fortran判断是否为闰年