빈도구하기

빈도 구하기

PROGRAM Frequency

IMPLICIT NONE

INTEGER, PARAMETER :: MaxDefective = 5

INTEGER, DIMENSION(0:MaxDefective) :: Count = 0

INTEGER :: OpenStatus, InputStatus, NumDefects, I

CHARACTER(20) :: FileName

WRITE (*, '(1X, A)', ADVANCE = "NO") "Enter name of data file : "

READ *, FileName

OPEN (UNIT = 10, FILE = FileName, STATUS = "OLD", IOSTAT = OpenStatus)

IF (OpenStatus > 0) THEN

STOP "*** Cannot open the file ***"

END IF

DO

READ (10, *, IOSTAT = InputStatus) NumDefects

IF (InputStatus > 0) THEN

STOP "*** Input error ***"

END IF

IF (InputStatus < 0) THEN

EXIT

END IF

NumDefects = MIN(NumDefects, MaxDefective)

Count(NumDefects) = Count(NumDefects) + 1

END DO

CLOSE(10)

PRINT *

PRINT *, "# of defectives # of hours"
PRINT *, "=============== ============================"
DO I = 0, MaxDefective
PRINT '(1X, I8, I11, " : ", 20A)', I, Count(I), ("***", J = 1, Count(I))

END DO

END PROGRAM Frequency

위 소스를 08_08_Frequency.f95로 저장

자료

0

1

0

2

2

0

1

6

3

0

3

1

2

0

1

2

0

위 자료를 08_08_Fre.dat로 저장

소스 컴파일 및 프로그램 테스트