PROGRAM SWAP
IMPLICIT NONE

REAL::A,B,C,D

PRINT *,'INPUT THE VALUE OF A '
READ *, A

PRINT *,'INPUT THE VALUE OF B '
READ *, B

C = B
D = A

PRINT 10, 'THE SWAPPED ARE',C,'AND',D
10 FORMAT (A,1X,F0.2,1X,A,1X,F0.2)




END PROGRAM SWAP