fork download
  1. DIMENSION M(3, 4)
  2. READ*,((M(I, J), I= 1, 3), J = 1, 4)
  3. PRINT*, ((M(I,J),J = 1, 4), I = 1, 3)
  4. STOP
  5. END
  6.  
Success #stdin #stdout 0s 5276KB
stdin
1 
2 
3 
4
5
6
7
8
9
10
11
12
stdout
           1           4           7          10           2           5           8          11           3           6           9          12