| 查看: 1563 | 回复: 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人回复
-
到新单位后，换了新的研究方向，没有团队，持续积累2区以上论文，能申请到面上吗
已经有8人回复
-
申请2026年博士
已经有6人回复
-
请问哪里可以有青B申请的本子可以借鉴一下。
已经有5人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有7人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有6人回复
-
Bioresource Technology期刊，第一次返修的时候被退回好几次了
已经有7人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
2楼2017-01-23 20:28:29