!
! =====> 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