Skip to main content

ADD4.F95

	PROGRAM ADD4
!
! Purpose: A program to add two numbers and display numbers
!          and their sum.
!
	IMPLICIT NONE
	DOUBLE PRECISION::X,Y,Z
!
	WRITE(*,*)'Enter the two numbers to be added'
	READ(*,*)X,Y
	Z=X+Y
	WRITE(*,*)'When ',X,' and ',Y,' are added the result is ',Z
	STOP
	END PROGRAM ADD4