| 查看: 1589 | 回复: 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 |
回复此楼» 猜你喜欢
材料考研调剂
已经有7人回复
-
270调剂
已经有7人回复
-
275学硕081000服从调剂到其他专业，保不住本专业了
已经有6人回复
-
0710生物学，325求调剂
已经有3人回复
-
296材料专硕求调剂
已经有5人回复
-
385分 生物学（071000）求调剂
已经有5人回复
-
377求调剂
已经有3人回复
-
【求调剂】新能源材料本科，一志愿211，初试321
已经有6人回复
-
316求调剂
已经有11人回复
-
321求调剂
已经有9人回复
2楼2017-01-23 20:28:29
