PROGRAM SPHERE

	!This is a program to calculate the volume of a sphere, given
	!its radius.
	!Christopher M. Godfrey		January 26, 2010

	IMPLICIT NONE
	REAL:: radius, volume, nun
	REAL, PARAMETER:: pi=3.141593

	!Get radius
	write(*,*)"Input the radius of the sphere: "
	read(*,*)radius

	!Compute the volume
	volume=(4.0/3.0)*pi*radius**3

	!nun=-10.0
	!write(*,*)sqrt(nun)
	
	!Write output
	write(*,*)"radius=",radius," volume=",volume

	STOP
	END