PROGRAM Circle
!-------------------------------------------------------------------------------
!Karl Harris                                ENGR225
!January-20-2012
!                                      ASSIGNMENT #1
!
!Program will calculate and display the radius, circumfrence, and area of a 
!circle whose diameter is chosen by the user.
! Input :Diameter
!  
!Output : Radius, Circumfrence, Area
!-------------------------------------------------------------------------------

IMPLICIT NONE
Real :: Diameter, Radius, Circumfrence, Area, PI= 3.14159

! Get Diameter

Write(*,*)"Please enter the diameter of your circle."
Read(*,*) Diameter

!Calculate and write radius 
Radius= Diameter/2
Write(*,*)"Radius=", Radius


!Calculate and write circumfrence
Circumfrence=2*PI*Radius
Write(*,*)"Circumfrence=", Circumfrence

!Calculate and write area
Area=PI*(Radius**2)
Write(*,*)"Area=", Area

END PROGRAM Circle