[FORTRAN] FUNCTION & SUBROUTINE

FORTRAN 에는 FUNCTION 과 SUBROUTINE이 있습니다. 반환되는 값이 있으면 FUNCTION을 사용하며, 없다면 SUBROUTINE이 사용됩니다. 다음의 간단한 예제를 살펴보면 차이를 알 수 있습니다.

PROGRAM MAIN

INTEGER HELLOFUN

CALL HELLOROUTINE()

T = HELLOFUN()

END PROGRAM

SUBROUTINE HELLOROUTINE()

PRINT *, "HELLO WORLD FROM SUBROUTINE"

END SUBROUTINE

INTEGER FUNCTION HELLOFUN()

PRINT *, "HELLO WORLD FROM FUNCTION"

HELLOFUN = 0

END FUNCTION

----- compile & output
$ gfortran test.f90
$ /Users/leejijin/Desktop/a.out
HELLO WORLD FROM SUBROUTINE
HELLO WORLD FROM FUNCTION