! 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 8.2. Assumed-shape arrays.
  program I02
    use I02M
    implicit none
    integer, parameter :: BIG = 40, JIG = 4
    real, dimension(BIG, BIG) :: Wig
    real, dimension(JIG, JIG) :: Fig
! start program I02
    open (unit = 1, file = "i02.txt", status = "old", action = "read", position = "rewind")
    read (unit = 1, fmt = *) Wig
    write (unit = *, fmt = *) Frobenius_Norm( Wig)
    read (unit = 1, fmt = *) Fig
    write (unit = *, fmt = *) Frobenius_Norm( Fig)
    stop
  end program I02
