! 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.3. Input and output lists with items of different types.
  program J03
    implicit none
    real :: X, B, D, Pay
    real, dimension(100) :: P, A
    integer, parameter :: I = 2, K = 5, L = 9
    integer, dimension(100, 100) :: J
! start program J03
    J = 999
    read (unit = *, fmt = *) X, B, D, P(14), J(I, K), J(25 * I - 4, L), A(K + 1), Pay, A(2 * L)
    write (unit = *, fmt = *) X, B, D, P(14), J(I, K), J(25 * I - 4, L), A(K + 1), Pay, A(2 * L)
    stop
  end program J03
