! 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 9.7. Format specification with an named character constant.
  program J07
    implicit none
    real :: A, B, C
    integer :: J, K
    character (len = *), parameter :: F14 = "(3 f12.0, 2 i3)"
! start program J07
    open (unit = 1, file = "JA.txt", status = "old", action = "read", position = "rewind")
    read (unit = 1, fmt = F14) A, B, C, J, K
    write (unit = *, fmt = *) A, B, C, J, K
    stop
  end program J07
