Fortran Coder

查看: 2023|回复: 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] 纯文本查看 复制代码
01program main
02use openacc
03implicit none
04real,allocatable::v1(:)
05integer length,idx
06call acc_set_device_num(2,acc_device_nvidia)
07length=102410241024
08allocate(v1(length))
09v1(1:length)=0.0
10!$acc data copy(v1(1:length))
11call add1(v1,length)
12!$acc update host(v1(1:5))
13print*,‘v1(1)=,v1(1:5)
14do idx=1,length
15v1(idx)=v1(idx)+10
16enddo
17print*,‘v1(1)=,v1(1:5)
18!$acc update host(v1(1:5))
19print*,‘v1(1)=,v1(1:5)
20!$acc end data
21deallocate(v1)
22end program
23subroutine add1(vec,length)
24use openacc
25implicit none
26integer,intent(in)::length
27real,intent(inout)::vec(1:length)
28integer idx
29!$acc parallel loop present(vec(1:length))
30do idx=1,length
31vec(idx)=vec(idx)+idx
32enddo
33end subroutine


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

本版积分规则

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

GMT+8, 2025-5-3 01:22

Powered by Discuz! X3.4

© 2013-2025 Comsenz Inc.

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