PPT Slide

! Example 3.24.

program D24

implicit none

real :: X, Y

logical :: Big_X

! start program D24

write (unit = *, fmt = *) " Please enter values for X and Y. "

read (unit = *, fmt = *) X, Y

Big_X = X > Y

write (unit = *, fmt = *) " The proposition 'X exceeds Y' is: ", Big_X

stop

end program D24