! 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 8.8. Keyword arguments.
  program I08
    use I08M
    implicit none
! start program I08
  ! All three of the following function references are equivalent.
    write (unit = *, fmt = *) Series_Sum (400, 700, 100.0, 0.1)
    write (unit = *, fmt = *) Series_Sum (D = 0.1, M = 400, N = 700, S = 100.0)
    write (unit = *, fmt = *) Series_Sum (400, 700, D = 0.1, S = 100.0)
    stop
  end program I08
