490
4
0
大宗师
do j=1,nt associate(csum=>G_0t(j))then do ic0=1,ndims CP0(j,ic0)=CP0(j,ic0)*csum enddo end associate enddo
使用道具 举报
dypang 发表于 2018-1-8 12:24 谢谢。不过, csum 是声明成复数类型了的,因此应该不是这个原因
dypang 发表于 2018-1-9 13:48 谢谢。我问这个问题只是想了解一下fortran的更细致的规则。这两段代码,一般情况下应该是一样的。可是, ...
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给发帖量超过一定数量的坛友
颁发给论坛注册3年以上的网友
颁发给论坛热心帮助他人的网友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-10 21:05
Powered by Tencent X3.4
© 2013-2024 Tencent