用IMSL出现Aborting due to internal error错误

a95545481

[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

代码没问题，应该是编译器或函数库安装或设置错误
我这里可以运行

a95545481

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

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

a95545481

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

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

楚香饭

难道是SB的360安全卫士捣的乱？

楚香饭

已确认，此问题系360引起，卸载后正常

a95545481

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

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

楚香饭

360所有产品，一律卸载。

吉大渣渣-固体

虽然说是一年后看到这个帖子，我用的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 !么么哒.................