5-1 DO J = 1, N C(1:N,J) = 0 ENDDO 5-2 DO J = 1, N 7-2 DO K = 1, N C(1:N,J)=C(1:N,J)+A(1:N,K)*B(K,J) ENDDO ENDDO