| 查看: 1588 | 回复: 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 |
回复此楼» 猜你喜欢
805600专硕材料与化工348分求调剂
已经有6人回复
-
重庆大学材料与化工085600，初试370+，求求调剂建议
已经有5人回复
-
309求调剂
已经有3人回复
-
一志愿北交大材料工程，总分358
已经有4人回复
-
302求调剂一志愿北航070300，本科郑大化学
已经有11人回复
-
化学工程专硕324分，一志愿中国矿业大学求调剂
已经有7人回复
-
材料求调剂
已经有11人回复
-
【求调剂】新能源材料本科，一志愿211，初试321
已经有4人回复
-
336求调剂
已经有5人回复
-
材料求调剂
已经有8人回复
2楼2017-01-23 20:28:29
120