DO iDegree = 0,Degree
!RL06VI(:,iDegree+1) = RL06VI(:,iDegree+1)&
!+((R+Zk)/a45)**(iDegree+2)*(Pressure0-Pressure1)/Gtheta
RL06VI(:,iDegree+1) = RL06VI(:,iDegree+1) + ((R+Zk)/a45)**(iDegree+2)*(Pressure0-Pressure1)/Gtheta
END DO
li913 发表于 2021-11-9 18:02
等号左边实际上是一维数组,如果右边是 (259200,1),那就是二维数组。
xxdw 发表于 2021-11-9 19:58
把后面那一坨再写一个变量加起来就行了。
DO iDegree = 0,Degree
RL06VI_tmp = ((R+Zk)/a45)**(iDegree+2)*(Pressure0-Pressure1)/Gtheta
RL06VI(:,iDegree+1) = RL06VI(:,iDegree+1) + RL06VI_tmp(:,1)
END DO
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |