(i) v(i) u(i)*v(i) CumSum' do k=1,8 t = u(k)*v(k) b = b+t print '(i3,2es25.14,2f19.15)',k,u(k),v(k),t,b end do ib=transfer(b,ib) print'(/,A,es25.15,1x,A,4x,2Z8,1x,A)',' Result = ',b,'(Decimal)',ib(2),ib(1),'(IEEE-64)' end program ...
(i) v(i) u(i)*v(i) CumSum' do k=1,8 t = u(k)*v(k) b = b+t print '(i3,2es25.14,2f19.15)',k,u(k),v(k),t,b end do ib=transfer(b,ib) print'(/,A,es25.15,1x,A,4x,2Z8,1x,A)',' Result = ',b,'(Decimal)',ib(2),ib(1),'(IEEE-64)' end program ...