FortranのSUBROUTINE文

FortranのSUBROUTINE文とは、戻り値のないサブルーチンを定義する構文です。

C言語やJavaなどでいうvoid関数です。

戻り値のある関数を定義する場合はFUNCTION文を使います。

サブルーチンや関数を利用する場合はCALL文です。

PROGRAM Main
    ! サブルーチンを呼び出す
    CALL Hello('YourName')

CONTAINS
    SUBROUTINE Hello(name)
        CHARACTER(LEN=*) :: name
        PRINT *, 'Hello, ', name, '!'
    END SUBROUTINE Hello

END PROGRAM Main

ちなみにEND以降は省略できますが、省略すると宗教上の理由により古参のプログラマーから叩かれます。

PROGRAM Main
    ! サブルーチンを呼び出す
    CALL Hello('YourName')

CONTAINS
    SUBROUTINE Hello(name)
        CHARACTER(LEN=*) :: name
        PRINT *, 'Hello, ', name, '!'
    END

END