Fortran Coder

查看: 1613|回复: 0
打印 上一主题 下一主题

[并行] CUDA11.2+PVF14.10环境下OpenAcc加速失败原因

[复制链接]

10

帖子

5

主题

0

精华

入门

F 币
57 元
贡献
23 点
跳转到指定楼层
楼主
发表于 2023-5-20 16:06:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
各位老师好,我在PGI Visual Fortran14.10环境下在language中打开了OpenAcc 指令,但是会出现这个错误是什么原因?希望能够得到老师的指导。错误指示为:Call to cuModuleLoadData returned error 209 :No binary for GPU

程序如下:
[Fortran] 纯文本查看 复制代码
program main
use openacc
implicit none
real,allocatable::v1(:)
integer length,idx
call acc_set_device_num(2,acc_device_nvidia)
length=102410241024
allocate(v1(length))
v1(1:length)=0.0
!$acc data copy(v1(1:length))
call add1(v1,length)
!$acc update host(v1(1:5))
print*,‘v1(1)=’,v1(1:5)
do idx=1,length
v1(idx)=v1(idx)+10
enddo
print*,‘v1(1)=’,v1(1:5)
!$acc update host(v1(1:5))
print*,‘v1(1)=’,v1(1:5)
!$acc end data
deallocate(v1)
end program
subroutine add1(vec,length)
use openacc
implicit none
integer,intent(in)::length
real,intent(inout)::vec(1:length)
integer idx
!$acc parallel loop present(vec(1:length))
do idx=1,length
vec(idx)=vec(idx)+idx
enddo
end subroutine


分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-22 22:08

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表