Concatenarea a două matrice

Condiția de a concatena matricele A și B este de a avea același număr de linii cadă prin concatenarea matricei B la matricea A înseamnă a lipi matricea B în dreapta matricei A. Dacă a concatena matricea B sub matricea A înseamnă că cele două matrice să aibe același număr de coloane. Prtopun ca prin concatenare să reculte o martrice C în care se copiază elementele matricelor A și B. 

         SUBROUTINE CONMTS (A,B,C,M,N)
         SUMAT=0.
         DO 10 I=1,M

         DO 10 J=1,N1
10     C(I,J)=A(I,J)

         DO 20 I=1,M

         DO 20 J=1,N2
20     C(I,N1+J)=B(I,J)

         RETURN
         END

Pentru concatenarea una sub alta:

         SUBROUTINE CONMTS (A,B,C,M,N)
         SUMAT=0.
         DO 10 I=1,M1

         DO 10 J=1,N
10     C(I,J)=A(I,J)

         DO 20 I=1,M2

         DO 20 J=1,N
20     C(M1+I,J)=B(I,J)

         RETURN
         END

Trebuie avut grijă la alocare ca matricea C să aibă suficiente linii sau coloane ca să suporte concatenarea.

(26 decembrie 2017)