! 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.

! Exercise P.1, Number 1: Ohm's Law. (This program has eight lines.)
  program A1X01
    implicit none
    real, parameter :: Curr = 1.2, Resist = 3.4
! start program A1X01
    write (unit = *, fmt = *) Curr, Resist, Curr * Resist
    stop
  end program A1X01

