PROGRAM Arithmetic
PROGRAM Arithmetic
!---------------------------------------------------------------------------------
! John Doe CPSC 141C MonthName dd, yyyy
!
! ASSIGNMENT #1
! Program to add two real numbersm Variable used are ;
! X, Y : the two real numbers
! Sum : the sum of X and Y
!
! Output : X, Y and Sum
!---------------------------------------------------------------------------------
IMPLICIT NONE
REAL :: X, Y, Sum
X = 1.234
Y = 5.5
Sum = X + Y
PRINT *, "Sum of", X, " and", y, " is", Sum
pause
End PROGRAM Arithmetic