! 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 5.13. Parallel evaluation of polynomials.
  program F13
    use F13M
    implicit none
    real, dimension(2, 4) :: Coefficients
    real :: X
! start program F13
    read (unit = *, fmt = *) Coefficients, X
    write (unit = *, fmt = *) Quetzal( Coefficients, X )
    stop
  end program F13
