发信人: peach1 (烦恼), 信区: NumComp
标  题: Re: 用FORTRAN90最大可以开多大的数组？
发信站: BBS 水木清华站 (Sun Aug 15 13:21:39 2004), 站内

这个程序可以检测你的机器本身能够开多大数组
你看有没有用吧

Program Tarray
   implicit none
   integer::size,error=0
   integer,parameter::one_mb=1024*1024
   character,allocatable::a(:)
   write(*,*) size,error
   open(unit=9,file='result.txt',status='unknown')

   do while(.true.)
   size=size+one_mb
   allocate(a(size),stat=error)
   if(error.ne.0)then
   exit
   end if
   write(9,"('allocate',I10,'byte')")size
   write(9,"(F10.2,'MB used')")real(size)/real(one_mb)
   write(9,"(F10.2,'MW used')") real(size)/(real(one_mb)*16.0)
   deallocate(a)
   end do
  
   stop
  
【 在 hhsy (河海水妖) 的大作中提到: 】
: 用FORTRAN90最大可以开多大的数组？我用1.5G内存的机子，一维单精度实型数组开到3.8亿个就开不下了。理论上讲应该是可以开到21亿左右的吧，就是2^32。有没有其它朋友在这方面有经验的？

--

※ 来源:·BBS 水木清华站 smth.org·[FROM: 166.111.26.*]