虚拟内存不足首先会是你内存不足.

8800*758*5000 * 4 字节 / 1024 KB / 1024 MB / 1024 = 124GB

你确认你的物理内存 + 虚拟内存有那么大？

我现在已经把符合条件的i,j,istep都输出到文件了，但是我需要计算相关函数，也就是说如果第一步出现120，,30，istep（分别对应i,j,istep），看看在istep=2,3,4-----3000时是否依然存在，所以我就将这种存在关系写在了三位矩阵h（i,j,istep）中，因为在后面的程序中，我使用了h作为判断条件，下面的程序就是我想要做的，应该如何改，才能避免使用这个大的三位数组h？？请大家帮忙看看，先谢了。
h=0
open (10,file='test.out')
do i=1,99999999
     read(10,*,end=2,err=2) istep,ia,ib
     h(istep,ia,ib)=1
enddo
2 continue
close(10)
do ia=1,30000
    do ib=1,800
         do istep=1,5000
              h(istep)=h(istep,ia,ib)
          enddo
         do ntel=1,nsteps
              if(h(ntel)/=0) then
                进行后面的程序
                -----------------
               endif
         enddo
         enddo
enddo