Fortran Coder

标题: 关于求协方差矩阵特征值的问题 [打印本页]

作者: 努力的大笨笨 时间: 2018-5-21 17:31
标题: 关于求协方差矩阵特征值的问题
本帖最后由努力的大笨笨于 2018-5-23 09:58 编辑

已解决，谢谢

作者: li913 时间: 2018-5-21 17:37
你这个程序中，从逻辑上讲，这句话没用，是废话。

作者: 渡箭 时间: 2018-5-21 18:59
楼上说的对

作者: 吉大渣渣-固体 时间: 2018-5-21 21:50
确实写和不写没啥分别。等价于：
IF(MATZ.NE.0)CALL ELTRAN(3,3,1,3,MC,IV1,XL)
或者
IF(MATZ.NE.0)then
CALL ELTRAN(3,3,1,3,MC,IV1,XL)
end if

作者: 胡文刚 时间: 2018-5-22 07:56
不满足也会执行 ELTRAN 的，所以这个判断相当于没写。
估计是原先的代码里，if 和 call eltran 中间有一些内容来处理什么，后来被删掉了。

作者: 努力的大笨笨 时间: 2018-5-22 09:27

胡文刚发表于 2018-5-22 07:56
不满足也会执行 ELTRAN 的，所以这个判断相当于没写。
估计是原先的代码里，if 和 call eltran 中间有一些 ...

感谢，我再好好看看

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)