! 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.7. Input and output including character data.
  program G07
    implicit none
    integer, parameter :: S_LEN = 14, SRK7 = selected_real_kind( 12 )
    real, parameter :: X = 987.65
    real (kind = SRK7), parameter :: Big_One = 1.0e9_SRK7
    character (len = S_LEN), parameter :: Author = " Maria Flores "
    complex (kind = SRK7), parameter :: Pi_Eye = (0.0_SRK7, 3.14159265358979_SRK7)
    character (len = S_LEN) :: El_Name
    integer :: Atomic_Number
    real :: Atomic_Mass
! start program G07
    write (unit = *, fmt = *) " Element name, Atomic Number, Atomic Mass: "
    read (unit = *, fmt = *) El_Name, Atomic_Number, Atomic_Mass
    write (unit = *, fmt = *) Big_One, El_Name, Atomic_Mass
    write (unit = *, fmt = *) X, Atomic_Number + 2, Author, exp( Pi_Eye )
    stop
  end program G07
