! 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 7.6. Selection sort.
  program H06
    use H06M
    implicit none
    integer, parameter :: MANY = 12
    real, dimension(MANY) :: Vector
! start program Variety
    open (unit = 1, file = "file_in.txt", status = "old", action = "read", position = "rewind")
    read (unit = 1, fmt = *) Vector
    call Selection_Sort( Vector )
    write (unit = *, fmt = *) Vector
    stop
  end program H06
