bea(j)=hmrho(j)*0.5d0+frho(j)*radius*vo2/2.0d0
kvalue(j)=-hmrho(j)+vo2*brho(j)
write(6,'(4f15.6)')radius,bea(j),
& -hmrho(j)+vo2*brho(j),kvalue(j)
wxyyyy 发表于 2023-10-17 17:24
请问怎么解决的呀
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |