OUTPUT1.f95

	PROGRAM OUTPUT1
!
! Purpose: To direct output to a file.
!
	IMPLICIT NONE
	REAL::PI			!To hold value of pi
	CHARACTER(LEN=30)::NAME		!To hold name
!
	WRITE(*,*)'Enter your name enclosed in single quotes'
	READ(*,*)NAME
	PI=4.0*ATAN(1.0)
!	OPEN(10,FILE='OUT')
	OPEN(10,FILE='A:\OUT')
	WRITE(10,*)PI,NAME
	CLOSE(10)
	STOP
	END PROGRAM OUTPUT1