온도변환(외부 함수에 대한 Interface 사용)

외부 함수에 대하여 Interface 정의하여 프로그램 작성

PROGRAM Temp_Conv

IMPLICIT NONE

INTERFACE
FUNCTION Fahr_To_Celsius(Temp)
REAL :: Fahr_To_Celsius
REAL, INTENT(IN) :: Temp
END FUNCTION Fahr_To_Celsius
END INTERFACE

REAL :: Fahr_To_Celsius
REAL :: FahrenheitTemp, CelsiusTemp

PRINT *, "화씨온도를 입력하시오"
READ *, FahrenheitTemp

CelsiusTemp = Fahr_To_Celsius(FahrenheitTemp)

PRINT *, "화씨온도 ", FahrenheitTemp, " = 섭씨온도 ", CelsiusTemp

END PROGRAM Temp_Conv

FUNCTION Fahr_To_Celsius(Temp)

IMPLICIT NONE

REAL :: Fahr_To_Celsius

REAL, INTENT(IN) :: Temp

Fahr_To_Celsius = (Temp - 32.0) / 1.8

END FUNCTION Fahr_To_Celsius

위 소스를 06_08_Temp_Conv.f95로 저장

컴파일 및 프로그램 테스트