Fortran Coder

查看: 7102|回复: 3
打印 上一主题 下一主题

[数学库] 求助,IMSL库调用失败

[复制链接]

1

帖子

1

主题

0

精华

新人

F 币
13 元
贡献
4 点
跳转到指定楼层
楼主
发表于 2018-10-22 23:15:30 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
目前的编译环境是VS 2013 + IVF2015 +IMSL 7.0,执行下面的测试代码时,提示Cannot find license file,不知道是否是IMSL没有破解成功,还是什么问题,请各位大侠指点,谢谢了!
编译链接都没有任何问题。
[Fortran] 纯文本查看 复制代码
01include 'link_fnl_shared.h'
02use lin_sol_gen_int
03use rand_gen_int
04use error_option_packet
05  integer, parameter :: NDATA = 10, N = 20
06  real XDATA(NDATA), FDATA(NDATA)
07  real XVEC(N), VALUE(N)
08  real, parameter :: xmin = -5.0, xmax = 5.0
09  real xinc, xp
10  integer i
11 
12  xinc = (xmax-xmin)/(NDATA-1)
13  xp = xmin
14  do i=1, NDATA
15    XDATA(I) = xp
16    FDATA(I) = SIN( XDATA(I) )
17        xp = xp+xinc
18  end do
19 
20  xinc = (xmax-xmin)/(N-1)
21  xp = xmin
22  do i=1, N
23    XVEC(I) = xp
24        xp = xp+xinc
25  end do
26  ! 做插值
27  call CSIEZ (NDATA, XDATA, FDATA, N, XVEC, VALUE)
28  ! 输出插值结果
29  do i=1, N
30    write(*,"('(',F5.2,',',F5.2,') error:'F6.3)") &
31        XVEC(i), VALUE(i), VALUE(i)-sin( XVEC(i) )
32  end do
33  stop
34end




无标题.png (27.93 KB, 下载次数: 251)

无标题.png
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
沙发
发表于 2018-10-23 08:59:44 | 只看该作者
本帖最后由 vvt 于 2018-10-23 09:00 编辑

是的,授权问题。本论坛不讨论破解问题,请自行寻求其他途径解决。

22

帖子

5

主题

0

精华

熟手

F 币
158 元
贡献
82 点
板凳
发表于 2019-3-19 10:13:31 | 只看该作者
IVF2015能配合imsl7.0使用吗?

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
地板
发表于 2019-3-20 12:36:22 | 只看该作者
IMSL有针对IVF的发行许可。
IVF自8.0之后,没有改变过库的格式,一律通用。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2025-3-13 21:20

Powered by Discuz! X3.4

© 2013-2025 Comsenz Inc.

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