! 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 2.9.  Examples of intrinsic library functions.
  program C09
    implicit none
    real :: A, B, C, Term
! start program C09
    write (unit = *, fmt = *) atan2( 0.0, -1.0 ), exp( 1.0 )
    read (unit = *, fmt = *) A, B, C
    Term = sqrt( abs( B ** 2 - 4.0 * A * C ) )
    write (unit = *, fmt = *) A, B, C, Term
    stop
  end program C09
