! ! =====> Program - P36.F90 ! ! ! Nested IF blocks ! LOGICAL SINGLE CHARACTER (LEN=20) :: NAME ! ! PRINT *, 'This is Program >> P36 - Nested IF blocks' ! ! Tell program where data for READ * is coming from OPEN(UNIT=5, FILE='P36.DAT') ! UNIT=5 is the default input ! N=0 TAGE=0.0 L1: DO READ * ,NAME,SINGLE,AGE PRINT * ,NAME,SINGLE,AGE IF(SINGLE)THEN N=N+1 TAGE=TAGE+AGE IF(N == 5)THEN AVE=TAGE/5.0 PRINT * ,'AVERAGE AGE OF ', & 'FIRST FIVE SINGLES IS' PRINT * ,AVE STOP ENDIF ENDIF END DO L1 END DATA: 'Bruce Perras' T 17.0 'Donna Smith' F 23.0 'Suzie Gascon' T 19.0 'Mary Brown' T 22.0 'Jane Jones' T 35.0 'Sophie Rochon' F 29.0 'Alex Reid' T 25.0 OUTPUT: Program entered This is Program >> P36 - Nested IF blocks Bruce Perras T 17.0000000 Donna Smith F 23.0000000 Suzie Gascon T 19.0000000 Mary Brown T 22.0000000 Jane Jones T 35.0000000 Sophie Rochon F 29.0000000 Alex Reid T 25.0000000 AVERAGE AGE OF FIRST FIVE SINGLES IS 23.6000004 Fortran-90 STOP
Page builder: Charles Boivin
Last modified: 11/07/95