! 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.26. Array in a structure.
  program G26
    use Element_M
    implicit none
    integer :: I  ! I is an ACID variable
    type (Isotope_Type), parameter :: X = Isotope_Type( 3, 17.0), Y = Isotope_Type(0, 0.0)
    type (Chem_El_Type_3) :: Linoleum
! start program G26
    Linoleum = Chem_El_Type_3( "LINOLEUM", "Lo", 200, 999.9, 2, (/ X, (Y, I = 2, 10) /) )
    write (unit = *, fmt = *) Linoleum
    stop
  end program G26
