!
      PROGRAM P61
!
!
      IMPLICIT NONE
      INTEGER :: I,J,K
!
      PRINT *, 'This is Program >> P61  - Swap 2 elements'
!
!     Tell program where data for  READ *  is coming from
      OPEN(UNIT=5, FILE='P61.DAT')      ! UNIT=5 is the default input
!
      READ *,I,J
      PRINT *,I,J
!     EXCHANGE I AND J
      K=I
      I=J
      J=K
      PRINT *,I,J
      STOP
      END PROGRAM P61