| 查看: 1643 | 回复: 1 | |||
[交流]
咨询一个调用IMSL的问题
|
|
各位大侠好！小弟刚刚开始编程，在利用IMSL求矩阵逆时出现一个不理解的问题。 运行IMSL帮助里LINCG求逆程序是可以运行的，但是放到自己程序里面却报错，找不到这个程序。 error #6285: There is no matching specific subroutine for this generic subroutine call. [CSSCAL] 想问下哪里出问题了？ 附例子： include 'link_fnl_shared.h' USE LINCG_INT USE WRCRN_INT USE CSSCAL_INT ! Declare variables PARAMETER (LDA=3, LDAINV=3, N=3) REAL THIRD COMPLEX A(LDA,LDA), AINV(LDAINV,LDAINV),ccc(LDA,LDA) ! Set values for A ! ! A = ( 1.0+1.0i 2.0+3.0i 3.0+3.0i) ! ( 2.0+1.0i 5.0+3.0i 7.0+4.0i) ! ( -2.0+1.0i -4.0+4.0i -5.0+3.0i) ! DATA A/(1.0,1.0), (2.0,1.0), (-2.0,1.0), (2.0,3.0), (5.0,3.0), & (-4.0,4.0), (3.0,3.0), (7.0,4.0), (-5.0,3.0)/ ! ! Scale A by dividing by three THIRD = 1.0/3.0 DO 10 I=1, N CALL CSSCAL (N, THIRD, A(:,I), 1) 10 CONTINUE ! Calculate the inverse of A CALL LINCG (A, AINV) ! Print results ccc= matmul(rn,ra3) CALL WRCRN ('AINV', AINV) read(*,*) END |
回复此楼» 猜你喜欢
现代”学阀”该如何界定
已经有12人回复
-
国社科系统bug了，是不是要放榜了？
已经有10人回复
-
课题组招2027级博士 上海工程技术大学 激光智能制造方向
已经有4人回复
-
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有3人回复
-
上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告
已经有11人回复
-
我的奶奶
已经有3人回复
2楼2017-01-23 20:28:29