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

! Exercises 2.3, Number 13.
  program C3X13
    implicit none
    real :: Pi, E
! start program C3X13
    Pi = atan2( 0.0, -1.0 )
    E = exp( 1.0 )
    write (unit = *, fmt = *) Pi, 4.0 * atan( 1.0 )
    write (unit = *, fmt = *) sin( -Pi / 2 ), cos( Pi ), tan( Pi / 4.0 )
    write (unit = *, fmt = *) log( E ** 1.234 ), log10( 10000.0 )
    write (unit = *, fmt = *) acos( -1.0 ), asin( -1.0 )
    write (unit = *, fmt = *) cosh( 0.0 ), sinh( 0.0 ), tanh( 0.0 )
    write (unit = *, fmt = *) exp( cmplx( 0.0, Pi ) )
    stop
  end program C3X13

