FortranのSUBROUTINE文

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

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

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

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

PROGRAM Main
    CHARACTER(LEN=100) :: name

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

CONTAINS

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

END PROGRAM Main