PROGRAM restheartrate
IMPLICIT NONE
INTEGER, PARAMETER :: patients = 100
REAL, DIMENSION(patients) :: heartrate
CHARACTER (LEN=20), DIMENSION(patients) :: comment
INTEGER :: i

CALL random_number (heartrate)
heartrate = heartrate * 120

WHERE (heartrate < 30)
    comment = "Too low"
ELSEWHERE (heartrate > 90)
    comment = "Too high"
ELSEWHERE
    comment = "Normal"
ENDWHERE

DO i = 1, patients
    PRINT 100, i, heartrate(i), comment(i)
END DO

100 FORMAT (I4, F7.1, 2X, A)
END PROGRAM restheartrate