Verificarea simetriei unei matrice

Subprogramul care verică dacă matricea A cu N linii și N coloane este simetrică are forma:

         SUBROUTINE SIMAT (A,N,N, IK)
         IK=0
         DO 10 I=1,M

         DO 10 J=1,N

         IF(A(I,J).NE.A(I,J)) GO TO 20
10     CONTINUE

         IK=1

20     CONTINUE

         RETURN
         END

Variabila IK are valoarea zero dacă matricea nu este simetrică și are valoarea 1 dacă matricea este simetrică.

(04 ianuarie 2018)