Urma unei matrice

Urma unei matrice este suma elementelor de pe diagonala principală a matricei.

         SUBROUTINE ADMAT (A,M,N,URMA)

         URMA=0.
         DO 10 I=1,M

10     URMA)=URMA+A(I,I)

         RETURN

         END

Urma unei matrice se realizează și folosind adunarea elementelor unui șir după ce se copiază elementele diagonalei principale a matricei într-un șir. Asta numai pentru a face reutilizare de cod.

         SUBROUTINE CPYDIA (A,M,N,X)

         DO 10 I=1,M

10     X(I)=A(I,I)

         RETURN

         END

         SUBROUTINE SUMSIR (X,N,SUMA)
         SUMA=0.         

         DO 10 I=1,M

10     SUMA=SUMA+X(I)

         RETURN

         END

         SUBROUTINE URMAT (A,M,N,URMA)
         DIMENSION X(1)
         CALL CPYDIA (A,M,N,X)  
         CALL SUMSIR (X,N,SUMA)       

         URMA=SUMA

         RETURN

         END

(26 decembrie 2017)