[Fortran] 프로시저 (Procedure)

포트란은 태초언어다보니, 언어 설계자들의 잡다한 번민이 지저분하게 묻어있다.
그 예로, 요즘 언어들에서 "함수"라고 부르는 단위가 2가지로 분리되어 있다.

하나는 함수, 하나는 서브루틴이다.

함수 (Function)

포트란의 함수는 상당히 원시적인 구조를 갖고 있다.
아래는 정수 2개를 받아서 더한 후 반환하는 간단한 코드를 함수로 구현한 것이다.

함수명 오른편에 인자를 나열하는건 특별할게 없지만, 지역변수 선언으로 또 타입을 지정해서 명시적으로 선언해줘야하는게 조잡스런 부분이다.

게다가 함수의 반환값을 지정하는 부분도 뻑적지근하게 되어있다.
함수명과 동일한 이름의 변수를 선언해놓으면, 그게 반환값으로 사용된다.
named return이 너무 이르게 탄생했다...

호출방법도 원시적인건 마찬가지다.

해당 스코프 내에 호출할 함수의 이름과 동일한 변수를 선언해줘야 한다.
변수의 타입은 함수의 반환타입이어야 한다.

그래야 타입을 찾는다.

아무튼 그러면 실행은 될 것이다.

서브루틴

함수가 입력을 받고 출력은 반환하는 형태로 동작했다면, 서브루틴은 입력값에 대해 mutation을 가하는 기능을 가진다. 그 대신 반환 기능이 따로 없다.

모든 파라미터를 사실상 포인터로 받아서 처리하는 것과 다름이 없다.

아래는 서브루틴을 이용해서 swap을 수행하는 코드 예제다.

파라미터를 선언하는 방법은 함수와 다름이 없다.

그리고 사용할 때는 call 키워드를 통해 호출할 수 있다.
그러면 서브루틴이 실행되고, 내부의 로직을 실행해서 변수의 값을 치환할 것이다.

잘 동작한다.