| 查看: 1581 | 回复: 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 |
回复此楼» 猜你喜欢
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
售SCI一区文章，我:8 O5 51O 54,科目齐全,可+急
已经有3人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有4人回复
-
今年春晚有几个节目很不错，点赞！
已经有6人回复
-
球磨粉体时遇到了大的问题，请指教！
已经有15人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有5人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有5人回复
-
江汉大学解明教授课题组招博士研究生/博士后
已经有3人回复
2楼2017-01-23 20:28:29