您所在位置：主题：赋值时出现的问题
juzishitou
[专家分：0] 发布于 2010-04-17 14:27:00
do 10 i4=ifirst,ncells
told=time
call second(time)
msaro=0
Aaro=16
Aox=0.13
totmw=0
totms=0
maro(i4)=spd(i4,kc6h5ch3)+spd(i4,ka3)
msaro(i4)=Aaro*maro(i4)*p(i4)**0.5
& *exp(-6313/temp(i4))
if(crank.gt.-5 .and. crank.le.5)then
write(96,*) crank,maro(i4),p(i4)
endif
10 continue
end
在我写的这个小程序中，为什么将spd（i4，kc5h6ch3）导出时有值，但是导出maro(i4)时，值却为0，请高手指点一下，这是为什么？
told=time
call second(time)
msaro=0
Aaro=16
Aox=0.13
totmw=0
totms=0
maro(i4)=spd(i4,kc6h5ch3)+spd(i4,ka3)
msaro(i4)=Aaro*maro(i4)*p(i4)**0.5
& *exp(-6313/temp(i4))
if(crank.gt.-5 .and. crank.le.5)then
write(96,*) crank,maro(i4),p(i4)
endif
10 continue
end
在我写的这个小程序中，为什么将spd（i4，kc5h6ch3）导出时有值，但是导出maro(i4)时，值却为0，请高手指点一下，这是为什么？