PROGRAM MAXPRG
C
C Demonstrates the use of MAX
C
      IMPLICIT NONE
      REAL X,Y
      INTEGER I,J

      PRINT *, 'Please enter two real numbers: '
      READ *, X, Y
      PRINT *, 'The larger of the two numbers is ', MAX(X,Y)

      PRINT *, 'Please enter two integers: '
      READ *, I, J
      PRINT *, 'The larger of the two numbers is ', MAX(I,J)

      STOP
      END