[交流] 【求助】请问如何解决insufficient virtual memory

open(10, "h.txt")
lines = 0
do istep=1,5000
    do i=1,30000
         do j=1,800
             if(a(i)*b(j)==1) then
               write(10,'(3A7)'), i, j, istep
                lines = lines + 1
               endif
          enddo
     enddo
enddo
close(10)
open(20, 'h.txt')
do k = 1, lines
     read(20, '(3A7)'), i,j,istep
     ! do something
enddo
close(20)

Originally posted by astringent at 2011-03-22 05:37:27:
最近写了一个程序，里面用了一个大的三维数组p(8800,758,5000)，但是在运行时出现了这个错误insufficient virtual memory。我在网上查，说这个错误是虚拟内存不够，但是没找到解决方法，请大家指点？
program ge ...

Originally posted by holmescn at 2011-03-22 09:25:56:
8800*758*5000*4/1024/1024/1024=124G

显然就算你有足够的虚拟内存，这个程序也会慢死的。
解决方法是不用这样的数组。修改你的算法，使每次计算的格点保持在你内存允许的范围内，然后，将结果写入文件，并重 ...