应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】请问如何解决insufficient virtual memory
51/1返回列表
查看: 4015  |  回复: 10
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

astringent

铜虫 (著名写手)

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

最近写了一个程序，里面用了一个大的三维数组p(8800,758,5000)，但是在运行时出现了这个错误insufficient virtual memory。我在网上查，说这个错误是虚拟内存不够，但是没找到解决方法，请大家指点？
program get_projection
implicit none
integer i,j,k
integer,allocatable::p(:,:,
allocate(p(8800,758,5000))


p=0
do i=1,8800
   do j=1,758
       do k=1,5000
              if(i==j.and.j==k) then
                     p(i,j,k)=1
                         write(*,*)'test',p,i,j,k
           endif
        enddo
    enddo
enddo

end
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2011-03-22 05:37:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

astringent

铜虫 (著名写手)
引用回帖:
Originally posted by holmescn at 2011-03-23 08:34:17:
显然你想记录的就是 i j step 这三个数，而且还有一个条件限制，我想h 应该是一个稀疏矩阵，所以不如把 i j step 都写入文件，判断的时候再读入

[code]
open(10, "h.txt"
lines = 0
do istep=1, ...

我已经把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
赞一下 回复此楼
11楼2011-03-23 16:05:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答

sudo

木虫 (正式写手)
★ ★
cenwanglai(金币+2): 谢谢回复！ 2011-03-23 23:26:44
astringent(金币+5): 2011-04-01 01:58:03
引用回帖:
Originally posted by astringent at 2011-03-22 05:37:27:
最近写了一个程序，里面用了一个大的三维数组p(8800,758,5000)，但是在运行时出现了这个错误insufficient virtual memory。我在网上查，说这个错误是虚拟内存不够，但是没找到解决方法，请大家指点？
program ge ...

不会fortran，网上搜到：

WinNT/9x上运行的Visual Fortran动态内存分配受一些因素的限制，包括交换文件的大小和其它同时运行的应用程序所需的内存大小。如果动态分配的内存太大或试图使用其它应用程序的保护内存会产生一般内存保护错误。碰到这类问题可以通过控制面板来改变虚拟内存的大小或交换文件的大小，还有一些编程技术可以降低内存需要。

虚拟内存的调整：
右击“我的电脑”，属性->高级->“性能”设置->高级->这个时候就能看到虚拟内存更改了

[ Last edited by sudo on 2011-3-22 at 08:48 ]
赞一下(1人) 回复此楼
2楼2011-03-22 08:42:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

holmescn

金虫 (正式写手)
★ ★
cenwanglai(金币+2): 谢谢回复！ 2011-03-23 23:27:03
astringent(金币+5): 2011-04-01 01:58:17
8800*758*5000*4/1024/1024/1024=124G

显然就算你有足够的虚拟内存，这个程序也会慢死的。
解决方法是不用这样的数组。修改你的算法，使每次计算的格点保持在你内存允许的范围内，然后，将结果写入文件，并重复这种读文件，计算，写入文件的过程。
赞一下(1人) 回复此楼
3楼2011-03-22 09:25:56
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

astringent

铜虫 (著名写手)
引用回帖:
Originally posted by holmescn at 2011-03-22 09:25:56:
8800*758*5000*4/1024/1024/1024=124G

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

首先感谢您的解答。因为是新手，所以不是特别理解你说的，能不能给个可以实现你的说法的小程序的例子，先多谢了。
赞一下 回复此楼
4楼2011-03-22 15:54:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 11 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭