! 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.

  program I07
    use I07M1
    use I07M2  ! Procedures that appear as actual arguments
    implicit none
! start program I07
    write (unit = *, fmt = *) Quadrature( Poly_4, -2.0, 2.0, 100 ), &
      Quadrature( Distribution, -2.0, 2.0, 100 )
    stop
  end program I07

