我将数组元素按以下方式写出:
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的因子,我该如何克服这个问题?
1/2
和1/3
(它们都是零),还是一个半和一个三分之一?请展示变量a
的赋值。 - francescalus