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