代码如下：
  filename = "D:\Rreflect3.txt"
  open (fileid2,file=filename ,status="unknown") 
  do i=1,dims(1)
    write(fileid2,"(I4,8I8)") i,(tempfld(i,j),j=1,8)   
  enddo
  close(fileid1)

以上为部分程序段代码！
   在write语句中
    write(fileid2,"(I4,8I8)") i,(tempfld(i,j),j=1,8)！这是最初的测试语句，输出前8列 
                                                      数，正常。
    enddo
       
   我在输出测试中，由于tempfld(i,j)数组巨大，约为125*37080，所以为想全部输出，把上面的语句改为   write(fileid2,"(I4,37080I8)") i,(tempfld(i,j),j=1,37080)
     i 是 从 1-125 个数。
     在write 改过之后，不能够每行输出37080个数字，而是输出约在第500个数组时转向下一行输出，如：
  1  234 357 4889 ........348(第500个数,开始转向下一行输出)
     678.........890（最后一个数）
  2  .........  （以后输出状态跟第一列行类似）
         .
         .
         .
  125 ......... 

  觉得没有错误啊，正确的输出应该输出成：

  1 234 357 4889 ........348  678.........890 （共37080个数）
  2 ..........................................（共37080个数）
  3 ..........................................（共37080个数）
         .
         .
         .
  125..........................................（共37080个数）

  不知什么原因？请教高人指点！
  非常感谢！