! ! =====> Program - P61.F90 ! ! ! 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 DATA: 39 47 OUTPUT: Program entered This is Program >> P61 - Swap 2 elements 39 47 47 39 Fortran-90 STOP
Page builder: Charles Boivin
Last modified: 11/07/95