Re: 用FORTRAN90最大可以开多大的数组？

发信人: 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.*]