Matrix transposition: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 202: | Line 202: | ||
REAL, DIMENSION(N,M) :: A = (/ ((i+2*j,i=1,n),j=1,m) /) |
REAL, DIMENSION(N,M) :: A = (/ ((i+2*j,i=1,n),j=1,m) /) |
||
REAL, DIMENSION(M,N) :: B |
REAL, DIMENSION(M,N) :: B |
||
B = TRANSPOSE(A) |
B = TRANSPOSE(A) |
||
In MIL-STD-1753 Fortran and later, use nested structured DO loops: |
In MIL-STD-1753 Fortran and later, use nested structured DO loops: |
||
REAL A(3,5), B(5,3) |
|||
DATA ((A(I,J),I=1,3),J=1,5) /1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15/ |
|||
DO I = 1, 3 |
|||
DO J = 1, 5 |
|||
B(J,I) = A(I,J) |
|||
END DO |
|||
END DO |
|||
In ANSI FORTRAN 66 and later, use nested labeled DO loops: |
In ANSI FORTRAN 66 and later, use nested labeled DO loops: |
||
REAL A(3,5), B(5,3) |
|||
DATA ((A(I,J),I=1,3),J=1,5) /1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15/ |
|||
DO 10 I = 1, 3 |
|||
DO 20 J = 1, 5 |
|||
B(J,I) = A(I,J) |
|||
20 CONTINUE |
|||
10 COMTINUE |
|||
=={{header|Haskell}}== |
=={{header|Haskell}}== |