气候中心160个站点数据提取至各个站点命名的文件中

wuxing3838 · 发表于 2017-3-7 08:35:11

{:eb502:}{:eb502:}

wuxing3838 · 发表于 2017-3-7 08:41:17

{:eb502:}{:eb502:}

guozhaodong221 · 发表于 2017-3-9 11:04:13

谢谢lz，学到了

将军 · 发表于 2017-3-10 07:53:26

谢谢大神了非常好

小猫咪 · 发表于 2017-3-10 08:23:32

学习了

罗素衣 · 发表于 2017-11-5 11:53:27

终于有不花钱就能看得了

Yangtzeriver · 发表于 2017-12-15 11:54:49

  do k = 1,12
      if(num(k)*20/160/=m) then
         kk = k-1
         exit
      end if
end do
还有 write(station,'(i5)') sta(i)
不知道这两段程序是什么意思啊？

大力水手 · 发表于 2017-12-15 12:28:08

谢谢分享！

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

[源代码] 气候中心160个站点数据提取至各个站点命名的文件中