- 积分
- 4396
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-8-13
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
安装环境win10x64+VS2015update3
IVF:
Intel® Parallel Studio XE 2017 Composer Edition for Fortran Windows* Integration for Microsoft Visual Studio* 2015, Version 17.0.0036.14
IMSL7.0
测试代码编译通过
program fnl
! Include the necessary header file:
! For the dynamic library:
INCLUDE 'link_fnl_shared.h'
! For the static library:
!INCLUDE 'link_fnl_static.h'
!!DEC$ OBJCOMMENT lib:"libguide.lib"
! Declare which IMSL functions will be used
USE LSARG_INT
USE WRRRN_INT
! Declare variables
PARAMETER (LDA=3, N=3)
REAL A(LDA,LDA), B(N), X(N)
!
! Set values for A and B
! A = (33.0 16.0 72.0)
! (-24.0 -10.0 -57.0)
! (18.0 -11.0 7.0)
! B = (129.0 -96.0 8.5)
!
DATA A/33.0, -24.0, 18.0, 16.0, -10.0, -11.0, 72.0, -57.0, 7.0/
DATA B/129.0, -96.0, 8.5/
!
! The main IMSL function call to solve for x in Ax=B.
! This is the floating point version, to use double-precision, call DLSARG.
!
CALL LSARG(A,B,X)
!
! Now print the solution x using WRRRN, a printing utility
!
CALL WRRRN('X',X,1,N,1)
Read(*,*)
END PROGRAM fnl
运行出错,换了好多测试代码,运行时候均出现DLL错误,截图如下
|
-
imsl出错
|