Verificarea matricelor pozitiv definite

O matrice este pozitiv definită dacă toate elementele sale sunt mai mari strict decât zero. Subprogramul care verifică dacă matricea A cu M linii și N coloane este pozitiv definită este:

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

         DO 10 J=1,N

         IF(A(I,J).LE.0) 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)