8 lines
167 B
Forth
8 lines
167 B
Forth
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
|