Anonymous user
Matrix transposition: Difference between revisions
→{{header|Fortran}}
No edit summary |
|||
Line 202:
REAL, DIMENSION(N,M) :: A = (/ ((i+2*j,i=1,n),j=1,m) /)
REAL, DIMENSION(M,N) :: B
B = TRANSPOSE(A)
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:
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}}==
| |||