问题再具体些：当不用 
       open(20,file="G0BAR_SEARCH.dat")
       do imatu=1,Matsu
      write(20,"(I5,4D20.10)")imatu,re_gfimag(1,1,imatu), 
     $                                 gfimag(1,1,imatu)
       end do
       close(20)
 这段程序时，整个迭代能完成。只要遇见这样的输出程序就可能在某次迭代处中断！！

Open和Close都在并行体内么？如果是，那必然不可以。

OPEN 和 CLOSE 部分是 串行的，不在并行体内。呵呵

读写文件如果用并行也不可以，除非是用记录方式。