关于数组越界的问题

fcode

在我这里运行没有问题啊，也没有越界。

问题1：
do while (cout<Particles)
应该是
do while (count<Particles)

问题2：
打开文件通道号是 13，输出文件通道号是30

修改后，部分输出结果为：
           8         100
          50          49
           8          99
           8          98
           9          98
          51          49
           7          99
          50          48
           9          99
          51          50
          49          48
          48          48
          50          47
          52          49
          48          49
          53          49
          48          47
          52          50
          10          98
          10          97
          11          97
          10          96
          52          48
           6          99

fcode

关于报错呢，一定要给错误提示的。

只说报错，神仙都不知道为啥。

fcode

if(A(i,j-1)==1.OR.A(i,j+1)==1.OR.A(i+1,j)==1.OR.A(i-1,j)==1) then      

这里你要考虑 i = 1 或 j = 1 的情况。以及 i = 100 或 j = 100 的情况。