PIPROG.F95

	PROGRAM PIPROG
!
! Purpose: to find the value of pi.
!
	REAL:: X,PI
	
!
	X=1.0
	PI=4.0*ATAN(X)
	WRITE(*,*)PI
!
	END PROGRAM PIPROG