온도 변환(함수 - 내부 부프로그램)

내부 부프로그램으로 처리한 함수를 이용하여 온도 변환 프로그램 작성

PROGRAM Temp_Conv

IMPLICIT NONE

REAL :: FahrenheitTemp, CelsiusTemp

WRITE (*, '(1X, A)', ADVANCE = "NO") "화씨 온도를 입력하시오(ex:50) : "
READ *, FahrenheitTemp

CelsiusTemp = Fahr_To_Celsius(FahrenheitTemp)
! 함수를 이용하여 계산

PRINT '(/ 1X, 2(A, F6.2))', "화씨 온도 ", FahrenheitTemp, " = 섭씨 온도 ", CelsiusTemp

CONTAINS
! 함수 정의 구역 선언

! 함수 정의
FUNCTION Fahr_To_Celsius(Temp)

REAL :: Fahr_To_Celsius ! 함수 이름으로 함수가 리턴할 값의 타입 지정
REAL, INTENT(IN) :: Temp ! 받는 인수의 타입 지정

Fahr_To_Celsius = (Temp -32.0) / 1.8 ! 함수 이름에 값을 지정하면 리턴

END FUNCTION Fahr_To_Celsius

END PROGRAM Temp_Conv

위 소스를 06_01_Temp_Conv.f95로 저장

컴파일 및 프로그램 테스트