「FortranのSUBROUTINE文」の版間の差分
Administrator (トーク | 投稿記録) 編集の要約なし |
Administrator (トーク | 投稿記録) 編集の要約なし タグ: 手動差し戻し |
||
| (同じ利用者による、間の4版が非表示) | |||
| 9行目: | 9行目: | ||
<source lang="fortran"> | <source lang="fortran"> | ||
PROGRAM Main | PROGRAM Main | ||
! サブルーチンを呼び出す | ! サブルーチンを呼び出す | ||
CALL Hello('YourName') | CALL Hello('YourName') | ||
CONTAINS | CONTAINS | ||
SUBROUTINE Hello(name) | SUBROUTINE Hello(name) | ||
CHARACTER(LEN=*) :: name | CHARACTER(LEN=*) :: name | ||
| 23行目: | 20行目: | ||
END PROGRAM Main | END PROGRAM Main | ||
</source> | </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]] | [[category: Fortran]] | ||
2025年2月28日 (金) 06:56時点における最新版
FortranのSUBROUTINE文とは、戻り値のないサブルーチンを定義する構文です。
戻り値のある関数を定義する場合は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