Compararea de matrice

dacă se dau două matrice cu același număr de linii și de coloane, a le compara înseamnă a vedea dacă au toate elementele corespondente de pe linii și de pe coloane identice. Subprogramul are o variabilă de stare IK=0 dacă matricele sunt diferite și IK=1 dacă matricele sunt identice.
Subprogramul este:

         SUBROUTINE COMPAR (A,B,M,N,IK)
         IK=0.
         DO 10 I=1,M

         DO 10 J=1,N
         F(A(I,J).NE.B(I,J)) GO TO 20

10     CONTINUE

         IK=1

20     CONTINUE

         RETURN
         END

(24 decembrie 2017)