! 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 4.25. Recursive factorial.
  program E25
    use E25M
    implicit none
    integer :: Limit
! start program E25
    write (unit = *, fmt = *) " Please enter the number whose factorial is wanted. "
    read (unit = *, fmt = *) Limit
    write (unit = *, fmt = *) " Factorial of: ", Limit, " is: ", Factorial( Limit )
    stop
  end program E25
