program time_zone
implicit none
integer,dimension(-180:180)::time=0
integer::degree,strip
real::value
do degree = -180,165,15
value=degree/15
do strip=0,14
time(degree+strip)=value
end do
end do
do degree=-180,180
print *,degree,' ',time(degree)
end do
end program time_zone
vvt 发表于 2014-10-6 19:27
这通常是由于 windows 的 console 命令行缓存有限。
你可以:
1.修改windows命令行缓存大小。(命令行黑色 ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |