Adunare de matrice

Dacă se dau matricele A și B fiecare având m linii și n coloane, pentru calculul sumei lor se va scrie subprogramul:

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

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

         RETURN
         END

Matricea rezultat este C având și ea tot m linii și n coloane. Se utilizează relația cij=aij+bij .

(24 decembrie 2017)