온도 변환(External Function : 외부함수)

외부함수를 이용한 온도 변환 프로그램 작성

END PROGRAM 다음에 Function을 작성

PROGRAM Temp_Conv

IMPLICIT NONE

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_07_Temp_Conv.f95로 저장

컴파일 및 프로그램 테스트