! 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.22. Constant structure constructors.
  program G22
    use Element_M
    implicit none
    type (Chem_El_Type_1) :: Carbon, Linoleum  ! Type declaration
! start program G22
    Carbon = Chem_El_Type_1( "Carbon", "C", 6, 12.01)
    Linoleum  = Chem_El_Type_1( "Linoleum", "Lo", 200, 499.9)
    write (unit = *, fmt = *) Carbon % Symbol, Linoleum % Atomic_Mass
    stop
  end program G22
