Hello. In the main program in this approximate block, ini is not overwritten, because of this, the om_ value is calculated, for example, equal to 0.4, and that's it. Next, the program leaves the original ini array. Tell me, please, what could be the error?
ini = reshape(ini_st, forma) fin = reshape(fin_st, forma) do 652 while (om_ > 0.01) do i = 1, 3 do k = 1, m vector (i,k) = fin(i,k)-ini(i,k) end do end do ................................................... om_ = sqrt(om(1)**2 + om(2)**2 + om(3)**2) !om зависят от ini do i = 1, 3 do j= 1, m ini(i,j) = cos(om_)*ini(i,j) end do end do 652 continue