Interschimb a două coloane din matrice

Fiind dată matricea A cu m linii și n coloane se pune problema interschimbului dintre coloanele ICOL1 și ICOL2.

         SUBROUTINE ADMAT (A,M,N,LIN1,LIN2)
         DO 10 I=1,M

         AUX=A(I,ICOL1)

         A(I,ICOL1)=A(I,ICOL2)

         A(I,ICOL2)=AUX
10     CONTINUE

         RETURN
         END

Sublrogramul nu verifică dacă ICOL1 și ICOL2 sunt valori în afara matricei.

(25 decembrie 2017)