运算结果显示不全

Shiev · 发表于 2014-10-5 16:48:30

[Fortran] 纯文本查看 复制代码

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

程序来自《fortran权威指南》，运行结果显示不全，本应从-180到180均有运算结果，可为什么debug后结果是从-118到180？求大家指教，新人勿喷

win7，IVF，Fortran95