Anonymous user
Matrix transposition: Difference between revisions
m
→{{header|Fortran}}
Line 199:
=={{header|Fortran}}==
In ISO Fortran 90
REAL, DIMENSION(N,M) :: A = RESHAPE( (/ (i,i=1,n*m) /), (/ n, m /) )
REAL, DIMENSION(M,N) :: B
Line 205:
B = TRANSPOSE(A)
In MIL-STD-1753 Fortran
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/
Line 215:
END DO
In ANSI FORTRAN 66
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/
| |||