小编use*_*141的帖子

我正在写出数组的元素如下:

write(6,'(i4,200(1x,e15.7))')Jtot0, (a*PJjv(i,Jtot0,j,iv),i=1,nenerdif,100)

哪里a是常数.但是,当此常量等于1/2或1/3时,输出为零,如果等于1,则每个事物都顺利进行.数组元素是real*8.

我怎么能克服这一点,让我有义务乘以1/3？