请教一个fortran的问题
程序很简单，我就是想用一下imsl库，结果弄了一下午都没弄出来源程序如下：programwwwuseimslintegerintervrealbound,errabs,e...
程序很简单，我就是想用一下imsl库，结果弄了一下午都没弄出来
源程序如下：
program www
use imsl
integer interv
real bound,errabs,errrel,result,errest,f
external f,QDAGI
bound=1.0
interv=1
errabs=0.0
errrel=0.001
call QDAGI (f,bound,interv,errabs,errrel,result,errest)
write(*,*) result
end program www
real function f(x)
real x
f=1/x
RETURN
end
Error: The attributes of this name conflict with those made accessible by a USE statement. [QDAGI]
external f,QDAGI 展开
源程序如下：
program www
use imsl
integer interv
real bound,errabs,errrel,result,errest,f
external f,QDAGI
bound=1.0
interv=1
errabs=0.0
errrel=0.001
call QDAGI (f,bound,interv,errabs,errrel,result,errest)
write(*,*) result
end program www
real function f(x)
real x
f=1/x
RETURN
end
Error: The attributes of this name conflict with those made accessible by a USE statement. [QDAGI]
external f,QDAGI 展开
1个回答
展开全部
将external f,QDAGI改掉
调用IMSL的库函数不需要事先声明
所以直接声明external f就好了
不需要声明QDAGI
调用IMSL的库函数不需要事先声明
所以直接声明external f就好了
不需要声明QDAGI
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
威孚半导体技术
2024-08-19 广告
威孚（苏州）半导体技术有限公司是一家专注生产、研发、销售晶圆传输设备整机模块（EFEM/SORTER）及核心零部件的高科技半导体公司。公司核心团队均拥有多年半导体行业从业经验，其中技术团队成员博士、硕士学历占比80%以上，依托丰富的软件底层...
点击进入详情页
本回答由威孚半导体技术提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
