C This illustrates how parameters are passed in Fortran

C Created:  Joe Zachary, October 19, 1992
C Modified:

C This subroutine assigns 10 to both of its arguments

      SUBROUTINE EXAMPLE (X, Y)
      IMPLICIT NONE
      INTEGER X, Y

      X = 10
      Y = 10

      RETURN
      END


C This tests out the subroutine above

      PROGRAM TEST
      IMPLICIT NONE
      INTEGER A, B

      A = 5
      B = 5
      PRINT *, 'The value of A before the call is ', A
      PRINT *, 'The value of B before the call is ', B
      CALL EXAMPLE(A, B+2)
      PRINT *, 'The value of A after the call is ', A
      PRINT *, 'The value of B after the call is ', B

      STOP
      END