! Program Example from "Essential Fortran 90 & 95" by Loren P. Meissner
! Copyright 1996. Copying for sale requires permission from the author.
! Otherwise, distribution is permitted if these three lines are included.

! Example 9.4. Whole arrays, array sections, and structures as list items.
  program J04
    use J04M
    implicit none
    type (Big) :: A
    integer, dimension(5, 2, 4) :: X
! start program J04
    open (unit = 1, file = "j04.txt", status = "old", action = "read", position = "rewind")
    read (unit = 1, fmt = *) A
    write (unit = *, fmt = *) A % How_Many, A % Data(3)
    read (unit = 1, fmt = *) X
    write (unit = *, fmt = *) X(2: 4, :, 3)
    stop
  end program J04
