各位大侠好，我现在做一个程序，不过我对fortran用的不是很好，遇到一个问题，我怀疑是不是变量作用域的问题

      do 1400 i=4,4
        angle=(i-1)*10
        fname=int(angle)
            write(fna,'(i12)') fname
        open(unit=2,file='jsum_'//trim(adjustl(fna))//'.txt')
        read(2,*)j
        close(2)        

        call dongtai(angle,j,reltv)
1400  continue
和
      do 1400 i=3,4
        angle=(i-1)*10
        fname=int(angle)
            write(fna,'(i12)') fname
        open(unit=2,file='jsum_'//trim(adjustl(fna))//'.txt')
        read(2,*)j
        close(2)        

        call dongtai(angle,j,reltv)
1400  continue
都是调用同一个子程序，当i=4时的运行的结果两者是不一样的，那位朋友可以帮帮我哈，先谢过了请大家说说估计是哪方面有错误呀，不胜感激