! 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 6.16. Convert uppercase letters to lowercase letters.
  program G16
    use G16M
    implicit none
    integer, parameter :: STRING_LENGTH = 80
    character (len = STRING_LENGTH) :: Text_1
! start program G16
    read (unit = *, fmt = *) Text_1
    write (unit = *, fmt = *) Text_1
    write (unit = *, fmt = *) Decap( Text_1 )
    stop
  end program G16
