! ! =====> Program - P33.F90 ! ! ! Simple loop with IF-THEN-ELSE ! ! PRINT *, 'This is Program >> P33 - IF-THEN-ELSE' ! ! ! Tell program where data for READ * is coming from OPEN(UNIT=5, FILE='P33.DAT') ! UNIT=5 is the default input ! DO READ *,SUM ,COUNT IF(COUNT == 0.0) THEN PRINT *,'COUNT ZERO' STOP ELSE AVE=SUM/COUNT PRINT *,'SUM=', SUM PRINT *,'COUNT=', COUNT PRINT *,'AVERAGE=', AVE ENDIF END DO END DATA: 120.0 10.0 100.0 0.0 OUTPUT: Program entered This is Program >> P33 - IF-THEN-ELSE SUM= 1.2000000E+02 COUNT= 10.0000000 AVERAGE= 12.0000000 COUNT ZERO Fortran-90 STOP
Page builder: Charles Boivin
Last modified: 11/07/95