Почему элементы массива форматируются как нули, когда они умножаются на 1/2 или 1/3?
Я пишу элементы массива следующим образом:
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?