Fortran批量为nc写ctl

花容天下重莲 · 发表于 2013-5-7 18:24:27

楼主太厉害了，需要继续学习啊

wc619lf · 发表于 2013-5-13 21:54:19

膜拜楼主，高手如云啊，谢谢

chuwang90 · 发表于 2013-5-15 11:19:32

谢谢分享！！

liuyy09 · 发表于 2013-5-17 11:33:48

用fortran批量写真的好方便啊……

sosofast · 发表于 2013-5-19 11:17:22

这个个很有用，谢谢···

{:eb334:}

river · 发表于 2013-5-22 06:52:45

言深深发表于 2012-5-4 16:19

登录/注册后可看大图

哎呀，沙发啊

你说这个程序里闰年判断是不是有点儿问题啊，闰年应该是①、普通年能被4整除且不能被100整除的为闰年。
②、世纪年能被400整除的是闰年这样判断的吧

言深深 · 发表于 2013-5-22 08:35:28

river 发表于 2013-5-22 06:52

登录/注册后可看大图

你说这个程序里闰年判断是不是有点儿问题啊，闰年应该是①、普通年能被4整除且不能被100整除的为闰年。
...

46. if(mod(m,100)==0)then
47. if(mod(m,400)==0)then
48. dys=dys+1
49. end if
50.else
51. if(mod(m,4)==0)then
52. dys=dys+1
53. end if
54.end if

这一段和你说的意思是一致的

river · 发表于 2013-5-22 17:29:04

言深深发表于 2013-5-22 08:35

登录/注册后可看大图

46. if(mod(m,100)==0)then
47. if(mod(m,400)==0)then
48. dys=dys+1

换了个方向判断啊，我当时没翻过来啊。我比较笨，思维比较固定，要是我肯定就是这样的了
if((mod(m,100)!=0&mod(m,4)==0)|mod(m,400)==0)then
dys=dys+1
end if

言深深 · 发表于 2013-5-23 08:39:34

river 发表于 2013-5-22 17:29

登录/注册后可看大图

换了个方向判断啊，我当时没翻过来啊。我比较笨，思维比较固定，要是我肯定就是这样的了
if((mod(m,100 ...

这个也是比较简洁的，逻辑算符用的比较厉害哦

linikiku · 发表于 2013-11-17 11:41:33

支持原创，谢谢啦

		自动登录	找回密码
密码			立即注册

[经验总结] Fortran批量为nc写ctl