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


      SUBROUTINE SWAP (X, Y)
      IMPLICIT NONE
      INTEGER X, Y, Z

      Z = X
      X = Y
      Y = Z
      RETURN
      END



      PROGRAM TEST
      IMPLICIT NONE
      INTEGER A
      INTEGER B

      A = 1
      B = 2
      PRINT *, 'The value of A before the call is ', A
      PRINT *, 'The value of B before the call is ', B
      CALL SWAP(A, B)
      PRINT *, 'The value of A after the call is ', A
      PRINT *, 'The value of B after the call is ', B

      STOP
      END