PROGRAM Circle
!----------------------------------------------------------------------------
! Dakota Gillette
! This program calculates the Radius, Circumference, and Area of a circle given the circle's Diameter. 
! Variables used are:
!   Diameter        : Diameter of the circle 
!   Radius          : Radius of the circle
!   Circumference   : Circumference of the circle
!   Area            : Area of the circle 
!
! Input:   Diameter
! Output:  Radius, Circumference, Area
!-----------------------------------------------------------------------------

  IMPLICIT NONE
  REAL :: Diameter, Radius, Circumference, Area, Pi

  Pi = 3.14 

 ! Get value for Diameter

  WRITE (*,*) "Enter a value for the Diameter of the circle:"
  READ (*,*) Diameter	
 
 ! Compute the Radius of the circle from the specified Diameter.
 Radius = Diameter * (0.5)

 ! Display Radius.
 WRITE (*,*) "Radius =", Radius

 ! Compute the Circumference of the circle from the specified Diameter.
 Circumference = Radius * (2) * (Pi) 
 
 ! Display Circumference
 WRITE (*,*) "Circumference =", Circumference
  
 ! Compute the Area of the circle from the specified Diameter.
 Area = (Radius ** (2)) * (Pi)

 ! Display Area.
 WRITE (*,*) "Area =", Area


END PROGRAM