您所在位置：主题：请教调用IMSL6.0的问题
simpleone
[专家分：30] 发布于 2012-06-27 14:55:00
我按照http://bbs.pfan.cn/post-310268.html 安装和设置imsl，可以通过所提供的例子，但是按照imsl说明，使用简单的矩阵相乘问题时，却出现“compilation aborted(code 1)”的错误。请高手指点。
program main
INCLUDE 'link_fnl_shared.h'
use numerical_libraries
! use lin_sol_gen_int
USE linear_operators
implicit none
real :: A(3,3) = (/ 1,3,2,1,2,1,2,1,3 /)
real :: B(3,1) = (/ 4,6,6 /)
real :: X(3,1)
! call lin_sol_gen(A,B,X) ! A*X=B,解X
X = A .x. B
write(*,"(3F5.2)") X
pause
end program
program main
INCLUDE 'link_fnl_shared.h'
use numerical_libraries
! use lin_sol_gen_int
USE linear_operators
implicit none
real :: A(3,3) = (/ 1,3,2,1,2,1,2,1,3 /)
real :: B(3,1) = (/ 4,6,6 /)
real :: X(3,1)
! call lin_sol_gen(A,B,X) ! A*X=B,解X
X = A .x. B
write(*,"(3F5.2)") X
pause
end program