Fortran Coder

标题: 用IMSL出现Aborting due to internal error错误 [打印本页]

作者: a95545481 时间: 2014-7-25 16:19
标题: 用IMSL出现Aborting due to internal error错误

[Fortran] 纯文本查看 复制代码

USE IMSL_LIBRARIES

IMPLICIT NONE

INTEGER LDA, LDB, LDEVEC, N

PARAMETER (N=3, LDA=N, LDB=N, LDEVEC=N)

!

INTEGER I, NOUT

REAL PI

COMPLEX A(LDA,N), ALPHA(N), B(LDB,N), BETAV(N), EVAL(N), &

EVEC(LDEVEC,N)

!

! Define values of A and B

! A = ( 1+0i 0.5+i 0+5i )

! (-10+0i 2+i 0+0i )

! ( 5+i 1+0i 0.5+3i )

!

! B = ( 0.5+0i 0+0i 0+0i )

! ( 3+3i 3+3i 0+i )

! ( 4+2i 0.5+i 1+i )

!

! Declare variables

DATA A/(1.0,0.0), (-10.0,0.0), (5.0,1.0), (0.5,1.0), (2.0,1.0), &

(1.0,0.0), (0.0,5.0), (0.0,0.0), (0.5,3.0)/

DATA B/(0.5,0.0), (3.0,3.0), (4.0,2.0), (0.0,0.0), (3.0,3.0), &

(0.5,1.0), (0.0,0.0), (0.0,1.0), (1.0,1.0)/

! Compute eigenvalues

CALL GVCCG (A, B, ALPHA, BETAV, EVEC)

EVAL = ALPHA/BETAV

! Compute performance index

PI = GPICG(N,A,B,ALPHA,BETAV,EVEC)

! Print results

CALL UMACH (2, NOUT)

CALL WRCRN ('EVAL', EVAL, 1, N, 1)

CALL WRCRN ('EVEC', EVEC)

WRITE (NOUT, '(/,A,F6.3)') ' Performance index = ', PI

END

这是求复数矩阵特征值与特征向量问题，但是调用IMSL函数库这个命令不知道怎么输入，调试的时候出现下面问题。我用的是IMSL6.0
1>------ 已启动生成: 项目: Console3, 配置: Debug Win32 ------
1>Compiling with Intel(R) Visual Fortran Compiler XE 12.0.0.104 [IA-32]...
1>Source2.f90
1>D:\analysis\Console3\Console3\Source2.f90(26): internal error: Please visit 'http://www.intel.com/software/products/support' for assistance.
1>CALL GVCCG (A, B, ALPHA, BETAV, EVEC)
1>^
1>[ Aborting due to internal error. ]
1>compilation aborted for D:\analysis\Console3\Console3\Source2.f90 (code 1)
1>
1>Build log written to "file://D:\analysis\Console3\Console3\Debug\BuildLog.htm"
1>Console3 - 1 error(s), 0 warning(s)
========== 生成: 成功 0 个，失败 1 个，最新 0 个，跳过 0 个 ==========

求大神解答。谢谢

作者: fcode 时间: 2014-7-25 16:25
代码没问题，应该是编译器或函数库安装或设置错误
我这里可以运行

作者: a95545481 时间: 2014-7-25 16:31

fcode 发表于 2014-7-25 16:25
代码没问题，应该是编译器或函数库安装或设置错误
我这里可以运行

我刚才看了一下，设置搜索IMSL的路径弄错了，我再试试。。

作者: a95545481 时间: 2014-7-25 16:39

fcode 发表于 2014-7-25 16:25
代码没问题，应该是编译器或函数库安装或设置错误
我这里可以运行

还是不行啊

，函数库都安装了，设置对着呢，还是出现错误。

作者: 楚香饭 时间: 2014-7-25 16:51
难道是SB的360安全卫士捣的乱？

作者: 楚香饭 时间: 2014-7-26 09:38
已确认，此问题系360引起，卸载后正常

作者: a95545481 时间: 2014-7-27 10:24

chuxf 发表于 2014-7-26 09:38
已确认，此问题系360引起，卸载后正常

360安全卫士和杀毒软件都卸载了，那个浏览器还用卸载么？

作者: 楚香饭 时间: 2014-7-27 10:27
360所有产品，一律卸载。

作者: 吉大渣渣-固体 时间: 2015-12-29 22:58
虽然说是一年后看到这个帖子，我用的Win7的32位旗舰版，VS2013+IVF2013+IMSL Library 5.0 for Intel(R) Fortran Compiler 9.1,直接测试了一下你的代码会报错.我将你的第一行改成 use imsl_libraries,第二行添加 include 'link_f90_static.h'之后可以正常运行出计算结果。不知这个回复还有没有意义，但愿为之后看到的游客提供借鉴吧，加油Fortran Coder !么么哒.................

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)