Fortran - reducir matriz

Soubrutine Resucir()

     array Matriz_A(10,10)

     array Matriz_B(10,10)

N = 10

do i =1, N / 2 + 1

      k = (i - 1) * 2 + 1

      do j = 1, N

            Matriz_B(k, j) = Matriz_A(i, j)

      next

next

end subrutine

Sub Mover()

'   Subrutina para crear una MatrizB a partir de otra MatrizA, pero eliminando las columnas pares

Dim MatrizA(10, 10) As Integer, MatrizB(5, 10) As Integer

Dim i As Integer, j As Integer, k As Integer, N As Integer

N = 10

For i = 1 To N / 2 + 1

    k = (i - 1) * 2 + 1

    For j = 1 To N

        MatrizB(k, j) = MatrizA(i, j)

    Next j

Next i

End Sub