! 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.18. (Fortran 90 version.) Initialization of structure components.
  program G18
    use G18M
    implicit none
! start program G18
    call Show( )
    stop
  end program G18

