! ! =====> Program - P31.F90 ! ! ! Example to show use of logical variables ! INTEGER WEIGHT, AGE LOGICAL HEAVY,MINOR ! ! PRINT *, 'This is Program >> P31 - Logical Relations' ! ! ! Tell program where data for READ * is coming from OPEN(UNIT=5, FILE='P31.DAT') ! UNIT=5 is the default input ! READ * ,WEIGHT,AGE HEAVY=WEIGHT > 90 MINOR=AGE < 18 PRINT *,WEIGHT,HEAVY PRINT *,AGE,MINOR STOP END DATA: 65 17 OUTPUT: Program entered This is Program >> P31 - Logical Relations 65 F 17 T Fortran-90 STOP
Page builder: Charles Boivin
Last modified: 11/07/95