将已关联的数组指针赋值给另一个数组,oneAPI会对源数组进行一次copy,并默认存放于堆栈中。如果源数组过大,造成性能损失,甚至可能导致栈溢出。
1、如何将临时数据移至内存而不是堆栈中?
2、指针赋值给数组,可否有其他高效的赋值函数或手段?
[Fortran] 纯文本查看 复制代码 program Test
implicit none
integer(4),allocatable,target:: a(:,:,:), b(:,:,:)
integer(4), pointer::p(:,:,:)
allocate(a(1024,1024,10),b(1024,1024,10)) !大小各40M
a=0
b=1
p=>b !任务管理器显示使用91M
a=p !内存使用 131M。如果数组过大,会栈溢出
write(*,*) a(1,1,1)
pause
end program Test
|