| 查看: 469 | 回复: 2 | |||
haiqing1987铜虫 (初入文坛)
|
[交流]
【求助】IMSL调用出错，求解！(已解决) 已有2人参与
|
|
先上子程序： SUBROUTINE VIBSOL(NQ1max,NQ1,RQ1,TMS,eigenvaluor,Vpot,eigenvalue) use imsl IMPLICIT REAL*8 (A-H,O-Z) DIMENSION RQ1(NQ1),HAR(NQ1,NQ1),Vpot(NQ1),eigenvalue(NQ1), $WK1(1),WK2(1),eigenvaluor(NQ1,NQ1) RL=RQ1(NQ1)-RQ1(1)+2.D0*(RQ1(2)-RQ1(1)) NDVR=NQ1+1 DO I=1,NQ1 HAR(I,I)=Vpot(I)+DVRKE1(I,NDVR,RL,TMS) DO J=1,I-1 HAR(J,I)=DVRKE2(I,J,NDVR,RL,TMS) HAR(I,J)=HAR(J,I) enddo enddo eigenvalue=eig(HAR,v=eigenvaluor) RETURN END 运行时提示堆栈出错，程序崩溃。调试时发现崩在了 EIG函数上，提示如截图。第一次用IMSL库，懂的不多。请教高手，代码哪里有问题？ 谢谢！ 附截图：  [ Last edited by haiqing1987 on 2010-12-28 at 19:47 ] |
回复此楼» 猜你喜欢
316求调剂
已经有14人回复
-
chinese chemical letters英文版投稿求助
已经有6人回复
-
264分，求任意工科调剂
已经有5人回复
-
求生物学调剂
已经有9人回复
-
求调剂 302分初试 0854
已经有3人回复
-
交通运输考试264分求工科调剂
已经有3人回复
-
材料与化工306分找调剂
已经有8人回复
-
一志愿北京科技材料科学与工程288分，求调剂
已经有13人回复
-
413求调剂
已经有3人回复
-
319求调剂
已经有14人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 高斯09中的L502出错的问题
已经有5人回复
- 请热心人能提供一个带imsl库的intel visual fortran编译器下载链接
已经有6人回复
- LC-MS 求解
已经有23人回复
- 求解实验室发酵酸奶分层了怎么回事？
已经有10人回复
- 出错 warning#2 #180
已经有7人回复
- 质量监督系统考试 色弱可以报吗求解
已经有4人回复
- 请教：orca 中用CCSD(T)计算单点能出错--提示内存不足 该怎么办？
已经有10人回复
- MS软件老出错，求指导
已经有3人回复
- 【求助】matlab 求解微分方程中的未知参数
已经有20人回复
- 【求助】在进行fluent模拟求解过程中，突然提醒出错，然后进入死循环，怎么回事？
已经有5人回复
- 【求助】fortran：如何求解 复数矩阵的秩【已完结】
已经有5人回复
- 【求助】用fortran求解大型线性方程组时出现的错误【已解决】
已经有11人回复
- 【转帖】IMSL在IVF中的安装和应用 (Windows系统)【搜索无重复】
已经有4人回复
maomao1210
金虫 (正式写手)
- 程序强帖: 5
- 应助: 2 (幼儿园)
- 金币: 1432.8
- 散金: 242
- 红花: 16
- 沙发: 1
- 帖子: 991
- 在线: 442.1小时
- 虫号: 253215
- 注册: 2006-05-20
- 性别: MM
- 专业: 考古理论
2楼2010-12-17 19:56:49
haiqing1987
铜虫 (初入文坛)
- 应助: 0 (幼儿园)
- 金币: 293.9
- 帖子: 36
- 在线: 39.8小时
- 虫号: 1155042
- 注册: 2010-11-24
- 性别: GG
- 专业: 原子和分子物理
3楼2010-12-18 22:21:37
