REAL RECORD(5), AVERAGE, TOTAL, AGE, SEX, WEIGHT BYTE SEX INTEGER NUMBER TOTAL = 0. NUMBER = 0 OPEN(UNIT=UNIT1,NAME='DATAFILE',TYPE='OLD',READONLY) REPEAT [ READ(UNIT1,*,END=IEND) RECORD; (4F10.0,5X,A4) IF(IEND) BREAK AGE = RECORD(2) SEX = RECORD(5) WEIGHT = RECORD(3) IF(AGE >= 18 .AND. SEX == 'F') [ TOTAL = TOTAL + WEIGHT NUMBER = NUMBER + 1 ] ] AVERAGE = TOTAL / NUMBER PRINT *, AVERAGE; (' Average = ',F5.1) END
Slide show generated from sw.html by Weasel 2007 Mar 15