! 6. WRITE MATRIX (DEBUG)
!write(0,*)
!do i=1,size_x
!	write(0,*)
!	do j=1,size_y
!		write(0,FMT='(F6.1)') M(i,j)
!	end do
!end do