Array I/O Example

   INTEGER, DIMENSION(1:3,1:3) :: a
   a = RESHAPE((/1,2,3,4,5,6,7,8,9/),&
                            (/3,3/))
   PRINT*, 'Array element   =',a(3,2)
   PRINT*, 'Array section   =',a(:,1)
   PRINT*, 'Sub-array       =',a(:2,:2)
   PRINT*, 'Whole Array     =',a
   PRINT*, 'Array Transp''d =',TRANSPOSE(a)
   END

produces on the screen,

    Array element    = 6
    Array section    = 1 2 3
    Sub-array        = 1 2 4 5
    Whole Array      = 1 2 3 4 5 6 7 8 9
    Array Transposed = 1 4 7 2 5 8 3 6 9

For more information, click here