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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 程序语言 » Fortran » 【求助】请问如何解决insufficient virtual memory
51/1返回列表
查看: 4020  |  回复: 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-22 18:40:52:
主要看你要算啥。

我的想法是：有两组数，第一组是a1,a2----a30000,第二组b1,b2---b800分别存在数组A，B中，一共5000步的循环。假如第一步时，数组A中的数与数组B中的数是否满足一定的条件condition，如果满足，就检查在之后循环中这种关系是否仍然存在，如果存在就用一个函数标记。其实我要实现的就是找出这个标记函数。我用了一个三维数组h标记，程序如下：
h=0
do istep=1,5000
    do i=1,30000
         do j=1,800
             if(a(i)*b(j)==1) then
               h（j,i,istep）=1
               endif
          enddo
     enddo
enddo
现在的问题是这个三维数组h太大，应该怎样写这个程序才能实现我的想法。
赞一下 回复此楼
6楼2011-03-22 20:08:24
已阅   回复此楼   关注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 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭