Scăderea de matrice

Dacă se dau matricele A și B fiecare având m linii și n coloane, pentru calculul diferenței 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 .Se observă un nivel foarte ridicat de reutilizare de cod de la subrutina de adunare de matrice.

(24 decembrie 2017)