! 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.21. (Fortran 90 version.) Nested structures.
  program G21
    use Element_M
    implicit none
    type(Chem_El_Type_2) :: Linoleum
! start program G21
    Linoleum % Element_Name = "LINOLEUM"
    Linoleum % Symbol = "Lo"
    Linoleum % Atomic_Number = 200
    Linoleum % Atomic_Mass = 999.9
    Linoleum % Principal_Isotope % Nucleon_Count = 3
    Linoleum % Principal_Isotope % Abundance = 0.05
    write (unit = *, fmt = *) Linoleum
    stop
  end program G21
