主题:intel Fortran 10无法调用 IMSL 6.0
lib 和 include都配置了路径,但调用 IMSL失败……,IMSL版本是对 ivf 11 的。
用如下程序测试
编译通过,无错误,但运行就会显示找不到 imsl_dll.dll。去掉注释行添加use声明则编译出错……,难道仅仅是IMSL和ivf版本的不兼容问题吗?
program main
INCLUDE 'link_fnl_shared.h'
! use numerical_libraries
implicit none
real A, B
real, parameter :: ERRABS = 0.001
real, parameter :: ERRREL = 0.001
integer, parameter :: IRULE = 6
real, external :: F,G,H
real :: ANS
real :: ERREST
A = 0.0
B = 5.0
write(*,*) "A=",A
call TWODQ (F, A, B, G, H, ERRABS, ERRREL, IRULE, ANS, ERREST)
write(*,*) ANS
stop
end program
real function F(X,Y)
implicit none
real X, Y
F = X+Y
return
end function
real function G(X)
implicit none
real X
G = 0.0
return
end function
real function H(X)
implicit none
real X
H = 5.0
return
end function
用如下程序测试
编译通过,无错误,但运行就会显示找不到 imsl_dll.dll。去掉注释行添加use声明则编译出错……,难道仅仅是IMSL和ivf版本的不兼容问题吗?
program main
INCLUDE 'link_fnl_shared.h'
! use numerical_libraries
implicit none
real A, B
real, parameter :: ERRABS = 0.001
real, parameter :: ERRREL = 0.001
integer, parameter :: IRULE = 6
real, external :: F,G,H
real :: ANS
real :: ERREST
A = 0.0
B = 5.0
write(*,*) "A=",A
call TWODQ (F, A, B, G, H, ERRABS, ERRREL, IRULE, ANS, ERREST)
write(*,*) ANS
stop
end program
real function F(X,Y)
implicit none
real X, Y
F = X+Y
return
end function
real function G(X)
implicit none
real X
G = 0.0
return
end function
real function H(X)
implicit none
real X
H = 5.0
return
end function