! 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.2.
  program H02
    use H02M
    implicit none
! start program H02
    write (unit = *, fmt = *) Complex_To_Polar( cmplx( -sqrt( 2.0 ), -sqrt( 2.0 ) ) )
    stop
  end program H02
