「FortranのSUBROUTINE文」を編集中

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

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

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

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

<source lang="fortran">
PROGRAM Main
    ! サブルーチンを呼び出す
    CALL Hello('YourName')

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

END PROGRAM Main
</source>

ちなみにEND以降は省略できますが、省略すると[[宗教上の理由]]により古参の[[プログラマー]]から叩かれます。
<source lang="fortran">
PROGRAM Main
    ! サブルーチンを呼び出す
    CALL Hello('YourName')

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

END
</source>

<amazon> Fortran </amazon>

[[category: Fortran]]