평균 계산(함수의 인자로 배열 사용)

평균 계산(함수의 인자로 배열 사용)

PROGRAM Main

IMPLICIT NONE

INTEGER, PARAMETER :: NumItems = 10
REAL, DIMENSION(NumItems) :: Item

PRINT *, "Enter the", NumItems, " real numbers:"
READ *, Item

PRINT '(1X, "Mean of the ", I3, " Numbers is ", F6.2)', NumItems, Mean(Item)

CONTAINS

FUNCTION Mean(X)
INTEGER, PARAMETER :: NumElements = 10
REAL, DIMENSION(NumElements), INTENT(IN) :: X
REAL :: Mean

Mean = SUM(X) / REAL(NumElements)
END FUNCTION Mean

END PROGRAM Main

위 소스를 08_03_Mean.f95로 저장

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